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 vote319 views1 answer
Make all controls in an area not visable vb
VBA
5 votes312 views1 answer
Excel vba how to unit test vba code
VBA
0 vote319 views1 answer
Vbnet add axis labels to chart
VBA
0 vote332 views1 answer
Test if form is open vb
VBA
0 vote317 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote343 views1 answer
Vba is integer
VBA
0 vote364 views1 answer
Visual basic run command
VBA
0 vote319 views1 answer
Vba first cell in range
VBA
0 vote392 views1 answer
Excel vba delete columns in range
VBA
0 vote311 views1 answer
Vba verticalalignment
VBA