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

4 votes223 views2 answers
Vba create folder if not exist
VBA
0 vote211 views1 answer
Do until vb.net
VBA
0 vote220 views1 answer
Vba open report
VBA
4 votes214 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote273 views2 answers
Checking and changing system volume vb.net
VBA
0 vote229 views1 answer
Vba collection contains
VBA
0 vote234 views1 answer
Filesystemobject vba reference
VBA
1 vote219 views2 answers
Vba find last row in range for certain criteria
VBA
3 votes225 views1 answer
Vba make long from two words
VBA
1 vote231 views1 answer
Vba login website
VBA