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 vote146 views1 answer
Enable macros on opening workbook vba
VBA
0 vote140 views1 answer
Excel vba ternary
VBA
0 vote148 views1 answer
Compare dates vb
VBA
0 vote151 views1 answer
Vbs write file
VBA
5 votes164 views1 answer
Excel vba tool to help with refactoring code
VBA
20 votes280 views1 answer
Excel vba recursive example factorial function
VBA
0 vote153 views1 answer
Sort dictionary by key vba
VBA
4 votes159 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote137 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote156 views1 answer
Dlete rows with blanks and space " " vba
VBA