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 vote243 views1 answer
Vbnet find highest value in chart
VBA
3 votes246 views1 answer
Excel vba change format of cell
VBA
0 vote235 views1 answer
Vbs write file
VBA
18 votes320 views2 answers
Vba make word from bytes
VBA
0 vote258 views1 answer
Vba character ascii code
VBA
0 vote245 views1 answer
Average vba
VBA
0 vote249 views1 answer
Delete all controls in an area vb
VBA
0 vote265 views1 answer
Vba integer to double
VBA
0 vote251 views2 answers
Excel vba copy paste after last row
VBA
0 vote223 views1 answer
Vb.net round to 2 decimal places
VBA