Bom dia!!

Tente adaptar.

]Private Sub Workbook_BeforeSave(Cancel As Boolean)

If Sheet1.Range("A1:B2").Value = "" Then 'Faça a adaptação de acordo com sua necessidade

MsgBox "O arquivo só será salvo depois do preenchimento das células!"

Cancel = True

End If

End Sub

Perfeito Alexandre funcionou, mas as células que eu queria que ficassem bloqueadas são essas, E12; E14; E16.
Tem alguma condição que eu possa aplicar a essa situação?

Perfeito Alexandre funcionou, mas as células que eu queria que ficassem bloqueadas são essas, E12; E14; E16.
Tem alguma condição que eu possa aplicar a essa situação?

Alexandre, pegando o gancho...

Adriano, fica assim:

If Sheet1.Range("E12").Value = "" Or Sheet1.Range("E14").Value = "" Or Sheet1.Range("E16").Value = "" Then

Boa tarde!!

OU...

Private Sub Workbook_BeforeSave(Cancel As Boolean)

If Sheet1.RRange("E12, E14, E16").Value = "" Then 'Faça a adaptação de acordo com sua necessidade

MsgBox "O arquivo só será salvo depois do preenchimento das células!"

Cancel = True

End If

End Sub

Caso as dicas te ajudaram favor clicar na mãozinha!!!!!!!!

A minha macro esta assim

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("E12") = "" Then
If MsgBox("Responda a pergunta" & vbCrLf & _
"Sem a resposta nao podera salvar o arquivo", _
vbDefaultButton2 + vbNo) = vbYes Then Exit Sub
Cancel = True
End If
End Sub

Eu fiz os 2 comandos que vc me indicou mas nao deu certo
:/

Adriano, talvés vc esteja colocando no lugar errado.
E só copiar o comando sugerido pelo Alexandre e colocar no "Esta pasta de trabalho"

At

Eu fiz o comando e esta aparecendo assim "ERRO EM TEMPO DE EXECUCAO ‘424’
O OBJETO E OBRIGATORIO"

Bom dia!!

Veja se te ajuda.

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

If Sheets("O-Nome_Sua_Planilha_Aqui").Range("E12, E14, E16").Value = "" Then

MsgBox "O arquivo só será salvo depois do preenchimento das células!"

Cancel = True

End If

End Sub

Fiz o comando e apareceu a segunte caixa de texto:
ERRO DE EXECUÇÃO ‘9’:
SUBSCRITO FORA DO INTERVALO.
Obrigado pelas respostas
Bom dia!

Boa tarde!!

Veja m exemplo..baixo pelo link
http://www.sendspace.com/file/8lhnxm

Segue,

att MarkoSoftware

Perdão, desconsiderar o anexo anterior nao tinha me atentado que queria que fosse no ato de salvar a planilha segue outro anexo, com a correção,

att MarkoSoftware

o subscrito fora do intervalo significa que seu código fez referencia a algum objeto que não existe na coleção.
Não li o tópico todo, mas... veja só, por exemplo, se seu arquivo tem uma planilha que chama "TESTE"
e no código vc escreve Sheets("TESTES"), vc verá esse erro.
Verifique então, no código que vc está tentando rodar, se não há alguma coisa dentro das aspas dentro dos parenteses, que não existe.
Sempre que te passarem um código de exemplo, é necessário rever estes itens para que vc adapte o código para seu arquivo.

Entendeu?

Agora vamos ao sei caso (agora eu li o tópico)
O Alexandre escreveu:

Sheets("O-Nome_Sua_Planilha_Aqui")

aonde ele escreveu "O NOME DA SUA PLANILHA AQUI"
vc precisa de fato trocar o nome da planilha ali, para o nome da planilha do seu arquivo....

p.s.: agora que eu vi que tinha mais paginas no tópico, rs

Adriano,
Boa noite!

Tentando ajudar...

O código do Alexandre estar perfeito, mais tem um ERRO só na letra "R" . Veja se agora atende ao seu critério.

ERRADO.

Private Sub Workbook_BeforeSave(Cancel As Boolean)

If Sheet1.RRange("E12, E14, E16").Value = "" Then 'Faça a adaptação de acordo com sua necessidade

MsgBox "O arquivo só será salvo depois do preenchimento das células!"

Cancel = True

End If

End Sub

CORRETO.

Private Sub Workbook_BeforeSave(Cancel As Boolean)

If Sheet1.Range("E12, E14, E16").Value = "" Then 'Faça a adaptação de acordo com sua necessidade

MsgBox "O arquivo só será salvo depois do preenchimento das células!"

Cancel = True

End If

End Sub