Sub Salva_con_Nome
NomeFile = InputBox("Qual è il nome del file da salvare?", "Inserire il nome")
Path = "C:\Directory1\Direcory2\"
Psw = InputBox("Vuoi specificare una password?", "Inserisci la password o lascia il campo vuoto")
ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xls" Password:=Psw
End Sub
|