Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "You can't save this workbook!" Cancel = True End Sub
BeforeSave
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)