G
Guest
I am trying to disable saving in order to not overwrite a master file. But I still want others to be able to save as a different file. I tried this as a possibility:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Name = "master.xls" Then
MsgBox "Can not save with this name - do saveas with a new name"
Cancel = True
End If
End Sub
But it won't let me do the 'save as' action either. Any Suggestions?
Thanks,
Wes
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Name = "master.xls" Then
MsgBox "Can not save with this name - do saveas with a new name"
Cancel = True
End If
End Sub
But it won't let me do the 'save as' action either. Any Suggestions?
Thanks,
Wes