Disabling SAVE option in a worknook

and if you want to disable Save use

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = False Then
Cancel = True
End If
End Sub