You might like this idea. I have had problems with people saving a copy of a file, then complaining that the file doesn't work. What it is, is everyone has to have his or her copy of the file. They make the input, and then save their own file... so you end up with 22 copies that have the right data entries, but not in the same file where they're supposed to be! So I force the user to save it only where it came from by putting this in the
This Workbook module:
Code:
Private Sub Workbook_Open()
With Application
.CommandBars("File").Enabled = False
.CommandBars("Tools").Enabled = False
.CommandBars("View").Enabled = False
.CommandBars("Standard").Enabled = False
.CommandBars("Edit").Enabled = False
End With
MsgBox ("You are prevented from using any ""File Save"" or ""File Save As"" commands, ""Edit"", ""View"", and ""Tools""." & Chr(13) & "These options will return when you close this workbook using the ""x"" in the upper right hand corner." & Chr(13) & "Your work will be saved if you use the ""x"" but you must answer the question with ""YES.""")
Application.Goto Reference:="Shift1Home"
MsgBox ("PLEASE READ THE ""INSTRUCTIONS"" TAB!")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars("File").Enabled = True
.CommandBars("Tools").Enabled = True
.CommandBars("View").Enabled = True
.CommandBars("Standard").Enabled = True
.CommandBars("Edit").Enabled = True
End With
End Sub
Of course, you can make the message say whatever you like... I leave it clickable to close, that way the user can't give the excuse that he didn't have time to read the message. In this particular example, I also tell the user to go to the "Instructions" tab in the file to read how it works.
This will keep the file where you want it unless, of course, your users are more sophisticated than mine are! So far, none of my users have figured out how to run code from within VBE; and if you feel the need, you can password the code modules, too...
HTH, I thought you might be interested in another option!
Regards,
XLXRider