Verificação de campo vazio e impedir salvar

[danielffem]

Boa Tarde, Preciso da ajuda de vocês!!!

Tenho uma planilha que deve ser preenchida diariamente com alguns numeros de atedimentos e vendas. Essa planilha é dividida por datas.

Ex: dia 01/05 possui tres colunas , dia 02/05 possui + 3 colunas e assim sucessivamente.

Eu quero criar um código que após a planilha aberta, a pessoa preencha esses campos obrigatorios e que antes de fechar a planilha confira se os campos correspondente a data de hoje foi preenchido. Caso Sim feche normalmente, caso contrário não permita fechamento.

Alguém tem ideia de como fazer isso???

Aguardo.

Abraços

[danielffem]

Pessoal,

Alguém consegue identificar o que há de errado nesse codigo. Eu quero que o excel identifique se há alguma celula vazia, ou seja, sem preenchimento, e não deixe o excel habilitar a opção salvar ou salvar como. Porém não está funcionando.

O Intervalo de células é B5 até DY48.

Alguem sabe o porque????

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

'Impede Salvar Como

Cancel = True

'Verifica se as células A1, B1 ou C1 estão vazias

If IsEmpty(Range("B5:DY48")) Then

Mensagem = MsgBox("O intervalo,B5:DY48 não está totalmente preenchido.", vbExclamation, "Documento não será salvo")

Exit Sub

End If

End Sub