Cancel Save/Save As except through Macro

[jsabin]

Here's what I'm using to stop anyone from saving a file. What I would like to do is to only allow a file to be saved through a macro assigned to a button on a sheet.
Thanks,

[Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "OH NO YOU DON'T!!!"
Cancel = True
End Sub]

 

[YasserKhalil]

Hello
Give this a try

'In Workbook Module
'------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not saveMode Then
        MsgBox "Oh No You Can't Save!" & vbCrLf & "Please Use The Save Button On Worksheet", vbExclamation
        Cancel = True
    End If
End Sub

'In Standard Module
'------------------
Public saveMode As Boolean

Sub SaveMe()
    saveMode = True
    ThisWorkbook.Save
    saveMode = False
End Sub

 

[jsabin]

It worked flawlessly!! Thank you so much for the help!

 

[YasserKhalil]

You're welcome. Glad I can offer some help