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 vote250 views1 answer
Vba sort multiple columns
VBA
0 vote227 views1 answer
Excel vba StartUpPosition
VBA
0 vote222 views1 answer
Vb get ip address
VBA
0 vote238 views1 answer
Vba exit while
VBA
4 votes222 views2 answers
Vba array length
VBA
0 vote231 views1 answer
Telephon call in vba
VBA
1 vote230 views1 answer
Change the first item in a queue vb.net
VBA
0 vote301 views1 answer
Excel vba delete columns in range
VBA
0 vote231 views1 answer
Move bindingnavigator vb
VBA
5 votes247 views1 answer
Excel vba right word from Long Integer
VBA