Thread: Disable Save/Save As in Excel 2010

Hello folks,

First off thanks for the help on my previous post..

I have an Exel 2010 workbook that I want people to fill out and print, but do not want Save or Save As function. I located the following, and it seems to work for me, but once I add it I can no longer save the file

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
    Cancel = True
    MsgBox "This file can not be saved - complete and print !"
End Sub

How can i save the file while this code is entered in?

Hi Todd, your post gave me an early morning laugh, thanks.

To answer your question this macro turns events on and off. If you run it to turn events OFF you'll be able to save your workbook just fine. Run the macro again afterwards to turn events back ON.

Sub Flip()

Application.EnableEvents = Not (Application.EnableEvents)

If Application.EnableEvents Then MsgBox "Events ON" Else MsgBox "Events OFF"

End Sub