A volte può essere utile chiedere all’utente di salvare il file e utilizzare il nome che questi ci comunica. Questa è la procedura Macro da utilizzare in questa evenienza:
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