Disable Save and Save As

[hkelly393]

I want to disable both Save and Save As - I have VBA that saves the document specifically for the user and I don't want them to try and save it as their own file.

I have this:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "The 'Save As' function has been disabled."
Cancel = True
End If
End Sub

It works perfectly - how can I also disable "Save" with the same/similiar message?
Thanks so much!

 

[frabulator]

You can try to open the workbook as 'read only'. That way the user only has the option to 'Save as'.

<code>Dim book As Workbook
Set book = Workbooks.Open(Filename:=filepath, ReadOnly:=True)</code>

 

[Fluff]

How about

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "The 'Save' function has been disabled."
End Sub