Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

The BeforeSave event for a workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)      If SaveAsUI Then          MsgBox "You cannot save a copy of this workbook!"          Cancel = True     End If End Sub