WilliansCB,

Boa tarde!

Porque?

preciso que o pedido gerado, seja salvo sem as macros

A macro salva o arquivo na pasta especificada como preciso.

o certo é colocar pelo menos a macro que vc usa para ser modificada

Esse pedido vai se enviado para fornecedores, para não correr o risco de alteração.

Segue a macro que utilizo na planilha:

Sub auto_Open()

Range("p7") = Range("p7") + 1

ThisWorkbook.Save

End Sub

Sub Salvar_como()

Dim FNome1 As String
Dim FNome2 As String
Dim FNome3 As String
Dim FNome4 As String

ChDir "f:ROMA CONSTRUTORAPEDIDOS"

FNome1 = Range("N7").Value
FNome2 = Range("P7").Value
FNome3 = Range("Q7").Value
FNome4 = Range("E7").Value

ActiveWorkbook.SaveAs Filename:="f:ROMA CONSTRUTORAPEDIDOS" + FNome1 + FNome2 + FNome3 + " - " + FNome4 + ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close Savechanges:


End Sub
Sub Gerar_PDF()

Dim FNome1 As String
Dim FNome2 As String
Dim FNome3 As String
Dim FNome4 As String

ChDir "f:ROMA CONSTRUTORAPEDIDOSGERADOS EM PDF"

FNome1 = Range("N7").Value
FNome2 = Range("P7").Value
FNome3 = Range("Q7").Value
FNome4 = Range("E7").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="f:ROMA CONSTRUTORAPEDIDOSGERADOS EM PDF" + FNome1 + FNome2 + FNome3 + " - " + FNome4 + ".xls", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

End Sub

WilliansCB,

Boa tarde!

Então... não há razão para tal. Basta você proteger seu projeto VBA com senha.

Solicitamos, por gentileza, das próximas vezes que postar código VBA aqui no fórum, utilizar a TAG CODE que fica no início da caixa de mensagem. Isso ajudará a manter o fórum mais organizado.