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

1 vote185 views1 answer
How to do error handling in access vba
VBA
0 vote197 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote193 views1 answer
Excel vba range contains
VBA
0 vote210 views1 answer
Open file dialog in vb.net
VBA
0 vote223 views1 answer
Vbs exec hidden
VBA
0 vote206 views1 answer
Supprimer la valeur de celule vba
VBA
0 vote193 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote209 views1 answer
Enable macros on opening workbook vba
VBA
2 votes189 views1 answer
Vba uppercase first letter of each word
VBA
0 vote208 views1 answer
Remove last 8 characters from string vb
VBA