VBA code for deactivating Save As feature

[alchavar]

hi there! Is it possible to deactivate the Save As feature so that anyone could not change my Excel 2003 files once they get'em?

[Tinbendr]

In the ThisWorkbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "The 'Save As' function has been disabled." & Chr(10) & "Only 'Save' will work.", vbInformation, "Save As Disabled"
Cancel = True
End If
End Sub

[alchavar]

Hi Tinbendr!

Thanks for your reply. However, now that I think it through, I guess that what I should have said was: is there a VBA code to disable or deactivate both the Save and Save As features in Excel 2003? The Save As feature is needed when you want to make a copy of an existing, previously saved worksheet using a different name. The Save feature is used to continue saving an existing, previously saved workbook as more changes are applied to it. What I intend is to hinder users/viewers from altering my files or making copies of them if I send my files on an email. Then, I would need another code for restoring both features to normality. Do you think this is possible to do with VBA?