Stop User Saving Document under another name

This code stops a user saving a Workbook as another name. It basicly stops the Save as dialog box from showing.

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

Code Snippits