Boa tarde!!

Não testado

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("A1").Value = "" Then
        MsgBox "campo obrigatório"
        Else
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs FileName:="C:Documents" & Range("A1"), _
        FileFormat:=(As desired), _
        CreateBackup:=False
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False
    End If

End Sub

Leia:
http://msdn.microsoft.com/en-us/library ... 97585.aspx
http://www.rondebruin.nl/win/s5/win001.htm

Att

Boa tarde!!

Não testado

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("A1").Value = "" Then
        MsgBox "campo obrigatório"
        Else
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs FileName:="C:Documents" & Range("A1"), _
        FileFormat:=(As desired), _
        CreateBackup:=False
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False
    End If

End Sub

Leia:
http://msdn.microsoft.com/en-us/library ... 97585.aspx
http://www.rondebruin.nl/win/s5/win001.htm

Att

Fala amigo, vou ler os links que postou.

A princípio eu não consegui. No código há uma parte que cita o endereço onde esta o arquivo. Não terei como saber.
O arquivo vai ficar na intranet. Quem baixar vai ter de preencher, salvar onde quiser e enviar por e-mail.
VBou ler os links para ver se encontro algo.

Muito obrigado pela ajuda.

Abraçooo

Somente um if sem uma instrução do que fazer, a rotina tende a ser concluída. Experimente algo assim:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Value = "" Then
    MsgBox "Célula A1 é campo obrigatório"
    Cancel = True
End If
    End Sub

Somente um if sem uma instrução do que fazer, a rotina tende a ser concluída. Experimente algo assim:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Value = "" Then
    MsgBox "Célula A1 é campo obrigatório"
    Cancel = True
End If
    End Sub

Reinaldo, boa tarde.

Rapaz, ele executa mas mesmo assim salva.

Se eu deixar a1 em branco, ele mostra a mensagem mas mesmo assim salva.

Mesmo assim, obrigado por responder. Sigo na luta. Tenho procurado pela net mas não achei nada até o momento.

Abraçooo

No teste simples que efetuei, não salva.
Experimente no anexo:
limpe o valor de A1 e salve; porem vale a máxima é preciso que as macros estejam habilitadas, caso contrário nada feito

Boa tarde!!

O código citado está dentro de EstaPasta_de_trabalho??

Att

No teste simples que efetuei, não salva.
Experimente no anexo:
limpe o valor de A1 e salve; porem vale a máxima é preciso que as macros estejam habilitadas, caso contrário nada feito

Reinaldo e Alex,

funcionou. Eu havia colocado o código no modulo. Agora que coloquei no em "esta pasta de trabalho", ficou perfeito.

Muito obrigado amigos. Isto vai me ajudar num trabalho aqui na empresa.

Valeu, só tenho a agradecer a vocês.

Por isso que to sempre indicando o forum para meus amigos.

valeu !

Como adicional, de uma lida nos Tópicos abaixo (de Adilson Soledade):
http://usuariosdoexcel.wordpress.com/20 ... lvar-como/
http://usuariosdoexcel.wordpress.com/20 ... s-e-agora/