help! can't get the code to save in the workbook

[whiteghost]

Hi,

PCC gave me the code for disabling the "saveas"

private sub Workbook_BeforeSave(ByVal SaveAsUl As Boolean, Cancel As Boolean)
cancel = SaveAsUl
end sub

This works fine until the file is saved and closed. On reopening the file, this code has not been saved.

what am I doing wrong?

 

[Todd Bardoni]

Do you mean that the code is no longer in ThisWorkbook?

 

[whiteghost]

yes. The code will not save regardless of what I try. It works until the workbook is closed then re-opened.

 

[whiteghost]

yes. The code will not save regardless of what I try. It works until the workbook is closed then re-opened.

 

[Todd Bardoni]

Here's a goofy question, but it has to be asked...are you sure you're putting the code in the correct ThisWorkbook?

 

[whiteghost]

yes. i have triedseveral times

 

[Todd Bardoni]

Oh, well, your code says, "Before Save, Cancel." So actually, you can't save the workbook with that code in there because that code cancels the save.

 

[whiteghost]

ahh.. then any idea on how to disable the "save as" ?

 

[Todd Bardoni]

Yes. Put a Breakpoint in the code. Then try saving. It should stop when it hits the breakpoint. Now, hit save as. The code should be saved for the next time you open it! :D

 

[whiteghost]

ok forgive me if I'm being stupid, but you mean put the breakpoint at "cancel=SaveAsUl"?

tried that and it still does not save