Want to disable save and save as- SOLVED

[dsnbld]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Save Is Disabled", vbOKOnly)
If a = vbOK Then Cancel = True
End Sub

How do I get out of this file with my changes? Don't laugh.

**EDIT**
This what I ended up with:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Saved = False Then
Msg = "Saving Changes Is Disabled In Evaluation Version"
Msg = MsgBox(Msg, vbOKOnly + vbExclamation)
Cancel = True
'Interupt here when saving this code for the first time. I type "bug" to interupt.
'Debug (delete bug) and reset- then save process will continue.
'In future you can set ThisWorkbook Saved property to True to save changes.
End If
End Sub
This message was edited by dsnbld on 2002-05-12 20:52
This message was edited by dsnbld on 2002-05-15 06:50

 

[Mark O'Brien]

On 2002-05-09 20:31, dsnbld wrote:
Thanks James. I've created a nice template that needs some VB code, and although I had wanted to do it myself, I'm just not ready.
Is it against forum rules to solicite help for hire?

Not if you use MrExcel. (sort of a by-product of this site if you like)

consult@mrexcel.com

(tell him Mark sent you, j/k )

If you want to persevere on your own though, like James says everything you want seems doable. You'll have to apply yourself and use this board, but you'll learn something.

 

[James]

Bump

 

[dsnbld]

Mark,
Understood. I have some folks waiting on this template, so I'll have to get some help this time around.

 

[XL-ntbuster]

Hi James,

You are right. Everything is not about $$$. The intention of this forum will be met only when the knowledge is shared.