Disallow Save As feature

[shahravi14]

Hi Everyone,

I have a workbook which I built up on my own for me & my office colleagues. Its a very useful for all of us and because it contains very confidential data I also password protected it but now I want to even protect this workbook such that nobody can remove the password and copy it to other location and also get to know what are the formulas and functions that I used in this workbook.
At the same time I don't want to restrict them to use this workbook for their daily use. So how do I disable the SAVE AS feature?

 

[lokiluke]

enter the code below into your 'ThisWorkbook' module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

the saveasui will be true if the Save as user interface is opened (by clicking 'save as'), the cancel variable is true when pressing the cancel button.

 

[lokiluke]

oh and dont forget to password protect the VBProject. unfortunatly the above code can still be bypassed by going into design mode or having macros disabled