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

5 votes291 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote272 views1 answer
Remove first character from string vb
VBA
0 vote280 views1 answer
How to set location and size of new from vb
VBA
0 vote300 views2 answers
Get unique random number in vb.net
VBA
0 vote271 views1 answer
Vba type
VBA
0 vote314 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote294 views1 answer
Find if year is leap year vb
VBA
0 vote289 views2 answers
How to concatenate more than 40 lines in vba
VBA
-1 vote289 views2 answers
Excel vba delete empty rows
VBA
0 vote302 views1 answer
Find database connection string vb
VBA