I created this macro to force the user to save the file as (something else) so that the original file is preserved:
Sub Save_file_as()
'Bring up SaveAs menu
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
'If user specified...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.