Insert this in 'ThisWorkbook' code sheet.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ChDir "C:\Temp" 'Path to save copy to
Do
fName = Application.GetSaveAsFilename("", , , "Enter filename")
Loop Until fName < "false"
Debug.Print fName
ThisWorkbook.SaveCopyAs fName
Cancel = True
End Sub

Regards,
Per

On 24 Nov., 17:05, Johnnyboy5 wrote:
Hi
I have a sheet (not template) which is password protected - so when
a user has to use it they use read only and then should save it will
a
new file name. *The problem is some users ! forget and save a “copy”
version of the original file name. * I cant really use a template as
the default save it in templates and I want the new file saved in a
particular folder on the office Main frame.
I would like the “Save” box to be empty - (no file name in it) *so
the
user has to type in the new file name.
Thanks
Johnny