Automatically saving a template

[TempoTours]

Hello, I work in an office where there are about 20 people that use excel templates that are found in one folder and they are *supposed* to save the template into a client folder elsewhere. The problem is that this doesn't always happen and the templates get worked in. What I would like to do is write a code that will automatically run when the template is opened, forcing the user to save as somewhere else, then when the template is saved, the autrun is disabled. Any suggestions?

 

[BoRacho]

If you have a template setup and you create a desktop shortcut, it will automatically open up a copy of the template and not the actual template. I'm now sure how else to get a copy open based off a template. Hope this helps!

 

[TempoTours]

Out desktops are already too full...to add another 20+ templates too it would be too much. I've been able to write a code where I place an 'X' in a cell in the template and then the auto open macro calls another macro that checks to see if the 'X' is there. If it isn't, it stops, if the 'X' is there, it asks you to save, then deletes the 'X'. I was hoping there would be a better way, expecially if someone actually does save as the template, then the template would have the 'X' deleted.

 

[TempoTours]

Okay, I have it figured out...In the worksheet, I have this auto run option:
Sub workbook_open()
Call NewFile
End Sub
Then, the code for the check to see if it should be saved or not is this:

Sub NewFile()

If ThisWorkbook.FullName = "F:\xdata\CAIS\Production Schedules.xls" Then

' This message box lets the user know that they are to save the file as

MsgBox "Please select the new location to save your file."

'Retrieve file name to use for Save
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")

'If user specified file name, perform Save and display msgbox
If fileSaveName <> False Then

ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal

MsgBox "Saved as " & fileSaveName
End If
Else
End
End If
End Sub