Macro que no permite guardar archivo si 2 celdas están en blanco

[Sebastian Vera]

Estimados,

Junto con saludar, quisiera pedirles ayuda con la siguiente macro.

Resulta que tengo un formulario en el cual no quiero que se guarde si las celdas D11 y D13 no se han ingresado datos, pero dada esta macro necesito algo que a la vez me permita guardarlo si el formulario esta completamente en blanco.

Esta macro me funciona bien al permitir que el archivo se guarde si ambas celdas no tienen datos, pero a la vez me genera problemas para guardar el formulario si este esta en blanco.

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

If Sheets("Formulario").Range("D11") = "" Or Sheets("Formulario").Range("D12") = "" Or Sheets("Formulario").Range("D13") "" Then

Cancel = True

MsgBox "No se puede guardar el archivo mientras " _

& vbLf & "no se completen los datos obligatorios :"

End If

End Sub

Favor si me pudieran ayudar con esto.

De ante mano muchas gracias.

Saludos,

[Antoni]

Sube el archivo con el formulario.

[Sebastian Vera]

Amigo, aqui va el formulario.

Formulario - copia.xls