Hello all!

Im having a hard time disabling Save and SaveAs in a shared workbook. I usually use the following code in the work book VBA:

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

Which is great, but when i share the workbook it is able to save and so unable to share. If i take the above code out then share the workbook, i am unable to add the above code as the macros are locked.

Does anyone know of a way around this???

Thanks for any help!!