Guru do Excel e Power BI

Olá


Criei um botão, mas não sei imputar ele na planilha para que possa ficar disponível. Quais comandos de devo usar ?




Pasta = Application.GetSaveAsFilename
ThisWorkbook.SaveCopyAs Pasta & ThisWorkbook.Name

'Dim Pasta As String

'Pasta = Application.GetSaveAsFilename
'ThisWorkbook.SaveCopyAs Pasta & ThisWorkbook.Name

MsgBox "não esquecer de usar mascara!", vbInformation, "SALVA CÓPIA"

End Sub

Private Sub UserForm_Click()

End Sub


Além disto.
Como colocar na programação para salvar a copia do arquivo com o mesmo "nome" com o comando abaixo (PastaNome = "Y:\Vendas\Pedido PDF\" & Range("g9").Value & ",pdf"), agregado no comando acima?

E tem como criar um critério de salva em pastas conforme Ano e mês e cliente ?




Sub PDF()
'
' PDF Macro
'

Dim PastaNome As String

PastaNome = "Y:\Vendas\Pedido PDF\" & Range("g9").Value & ",pdf"




Range("A1:K61").Select
ChDir "Y:\Vendas\Pedido PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PastaNome, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWindow.SmallScroll Down:=-42
Range("G9").Select
End Sub

E preciso proteger coluna 2, 4, 9 e 10. Só que não consigo escrever o comando na regra abaixo.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column =3 Then
If Target.Row >=4 Then
Beep
Cell(Target.Row, Target.Column).Offset(0,1).Select
End if
End if

End Sub



Ultima dúvida
Tem como mostrar o valor do campo H3 se a pessoa digitar uma senha ?



Grato

Sobre a dúvida como mostrar o Userform , faltou eu colocar o comando básico .

Fiquei agora somente com as notas abaixo
-Como colocar na programação para salvar a copia do arquivo com o mesmo "nome" com o comando abaixo (PastaNome = "Y:\Vendas\Pedido PDF\" & Range("g9").Value & ",pdf"), agregado no comando coloquei no quadro acima?
Tem como mostrar o valor do campo H3 se a pessoa digitar uma senha ?
E preciso proteger coluna 2, 4, 9 e 10. Só que não consigo escrever o comando na regra coloquei no quadro acima.




Private Sub Workbook_Open()

UserForm1.Show

End Sub


sobre