I have code below to save my workbook file as WriteResPassword, but is there any way to get current workbook's path in the interface from
Application.GetSaveAsFilename? For now saving as interface displays document folder, so it requires 5-10 more clicks to get where I wanted.
Anything helps!
Thank you!
Application.GetSaveAsFilename? For now saving as interface displays document folder, so it requires 5-10 more clicks to get where I wanted.
Code:
Sub PasswordSave()Application.DisplayAlerts = FalseApplication.ScreenUpdating = False
SaveAsName = Application.GetSaveAsFilename( _FileFilter:="Excel Files (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filename:=SaveAsName, FileFormat:= _xlNormal, WriteResPassword:="test", ReadOnlyRecommended:=False _, CreateBackup:=False
End Sub
Anything helps!
Thank you!