Amigo, disponibilize a sua planilha.

felipebc,

Boa tarde!

Veja se é assim.

Posso sim engeel 2014! Vou disponibiliza-la aqui!

Wag, testei a sua macro aqui e deu certo! Mas quando altero o filename para aparecer informações de determinadas células, aparece uma mensagem de erro.

Também quando tento alterar a condição para que meu usuário não utilize o "Salvar como", aparece outro erro.

Você sabe como resolver isso?
Caso saiba, pode me explicar ou me indicar um material para que eu também possa aprender?

Conhecimento é sempre bom!

Obrigado pela ajuda amigos! Sinto que com vocês estou próximo de resolver essa macro e começar a trabalhar com a planilha!

Estou anexando a planilha para verificação.

Vc tem uma macro que salva pdf ?

Se sim tente assim

Sub Gravar()

If Range("L1").value = "OK" Then

' Aqui vc pode escrever seu codigo ou simplesmente digitar o nome da macro em uma nova sub

Nome da Sua Macro que salva PDF

' Se quiser uma mensagem de aviso que falta inserir dados mantenha as linhas abaixo do contrario é so apagar.

Else

MsgBox "Dados Incompletos!!" & Chr(13) & "Preencha Corretamente a Planilha...", vbInformation, "Dados Incompletos"

End If

End Sub

Caro felipebc, poderá utilizar o código abaixo para a impressão do PDF sem a necessidade de colocar nas celulas "L1:O1" a mensagem. No lugar da mensagem você poderá inserir no código quais são as células que devem ser preenchidas. No caso deste exemplo as células são "C2" "C4" e "C6". O PDF será salvo na mesma pasta onde o arquivo "Exemplo.xlsm" está.

Function Caminho() As String
Caminho = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Function
Sub ImprimirPDF()
Application.ScreenUpdating = False
If Range("c2") <> "" And Range("c4") <> "" And Range("c6") <> "" Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Caminho & "exmplo" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Else
MsgBox "Favor preencher todos os campos antes de proseguir com a geração do PDF"
End If
End Sub

Adaptei na sua planilha o código abaixo, vê se te atende. Planilha anexa:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
Application.ScreenUpdating = False

If Sheets("Passo 1").Range("k1") = "OK" And Sheets("Passo 2").Range("O1") = "OK" And Sheets("Passo 3").Range("l1") = "OK" And Sheets("BRIEFING").Range("l1") = "OK" Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Caminho & "exmplo" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Else
MsgBox "Favor preencher todos os campos antes de proseguir com a geração do PDF"
End If

End Sub
Function Caminho() As String
Caminho = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Function

Certo Engeel2004, vou fazer o teste com essa planilha!

Você sabe a razão pela qual eu não estava conseguindo antes?

E como eu posso renomear o pdf de acordo com os valores contidos nas células, automaticamente?

Obrigado pela ajuga amigo!

substitua o código da postagem anterior por este abaixo. neste a planilha será renomeada com o valor da célula "L2", caso queira é só mudar para célula desejada:

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

Dim nome As String

Application.ScreenUpdating = False

nome = Range("l2").Value   'Aqui voce coloca a célula onde está o nome da planilha

If Sheets("Passo 1").Range("k1") = "OK" And Sheets("Passo 2").Range("O1") = "OK" And Sheets("Passo 3").Range("l1") = "OK" And Sheets("BRIEFING").Range("l1") = "OK" Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Caminho & nome & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Else
MsgBox "Favor preencher todos os campos antes de proseguir com a geração do PDF"
End If

End Sub
Function Caminho() As String
Caminho = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Function

Deu tudo certo!

Muito obrigado amigo! Você me ajudou muito!

Abraço a todos e mais uma vez, muito obrigado!