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]

Let me re-iterate the steps.

1. Insert breakpoint at Cancel = SaveAsUl.

2. Switch to Excel and hit Save.

3. This should take you back to the VBE. Switch back to Excel.

4. Goto File/Save As and save your workbook.

Let me know if this helps.

 

[whiteghost]

ok. i followed the steps as you said. after saving in excel it did go back to the VBE screen and the line "cancel = SaveasUl" is yellow highlighted ( same as debug). Now, do I remove the breakpoint? and then save as?

 

[Todd Bardoni]

You don't need to touch anything in the VBE at this point. Just go back to Excel. Then File/Save As/Save.

Please post back.

 

[whiteghost]

no joy. still did not save the code. Looks like i must have done something wrong. Trying again

 

[Todd Bardoni]

Keep trying because it worked for me. Tell you what, email me your workbook. Click on my profile to get my email address.

 

[whiteghost]

thanks have sent the file.and will keep trying .

 

[whiteghost]

finally got it to work. I have no clue about what i done differently, but it works.

thanks for all your patience and help

 

[Todd Bardoni]

Glad to hear it. BTW, i never did get your workbook.

Have a good day/night!

 

[whiteghost]

it may still be en route... it was a large file and our mail server shunts large mail down the priorty list. Thanks once again