Excel vba prevent save

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True 
    msgbox "Forbidden."
End Sub

Excel vba prevent saving workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True                       ' Cancels in any case
    ' Or :
    If SaveAsUI Then Cancel = True      ' Cancels only if saving is asked by user, not via code
End Sub

' Prevents Excel from requesting a save before closing
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ThisWorkbook.Saved = True
End Sub

Similar codes

0 vote222 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote234 views1 answer
Weekday vba
VBA
0 vote229 views1 answer
Excel vba join variant array
VBA
0 vote242 views2 answers
VB
VBA
0 vote227 views1 answer
Openfiledialog specific folder
VBA
12 votes269 views1 answer
Excel vba write string to text file
VBA
5 votes228 views1 answer
Excel-vba get integer high byte
VBA
0 vote224 views1 answer
How to set location and size of new from vb
VBA
0 vote221 views1 answer
Refer to resource using string variable vb.net
VBA
5 votes210 views1 answer
Excel vba tool to help with refactoring code
VBA