Add code to a macro for the purpose of unlocking a project for viewing

[ekr]

I want to protect my project 'Lock My Project from viewing.' This issue is that I need to delete all the macros before sending it for reviews. I have a macro I run that deletes all the macros in my workbook. However, because the project is 'Lock My Project from viewing' the macro will not run. Is there any code I can add to this macro that would first 'unlock the project' and the continue with the delete?

[BigBas]

I'm not sure if that is possible. Just an idea: why not try to develop a macro that copies and then pastes each sheet into a new, macro-less workbook, then send that new workbook out?

[HaHoBe]

Hi, ekr,

have you tried saving as *.xlsx which should delete all macro code from a workbook?

Ciao,
Holger

[ekr]

That will work - I will have to create a macro to save as this file type instead of deleting macros. Thanks.

[ekr]

If I create a macro to save as an .xlsx, then the user will get a popup that states .... do you want to save this as a macro-free workbook. I do not want them to have a choice. The workbook cannot get distributed with macros

[HaHoBe]

Hi, ekr,

use

Please Login or Register  to view this content.

Ciao,
Holger

[ekr]

Almost there ... I put the following code between the two lines you provided. I must have an error in my code because I am trying to save as excel 2010 .xlsx and it saves it as 97 - hence another error message for the user.

Please Login or Register  to view this content.

[HaHoBe]

Hi, ekr,

Fileformat for xlsx is either 51 or xlOpenXMLWorkbook but not x51Normal.

Ciao,
Holger

[ekr]

OK, I think it is the code I'm using to save

Please Login or Register  to view this content.

[HaHoBe]

Hi, ekr,

add the extension to the filename. I slightly altered your code for name and path:

Please Login or Register  to view this content.

Ciao,
Holger

[ekr]

I now get code out of range. All I want to do is have the macro save the doc as a .xlsx file and not prompt the user so that the user will not have a choice - otherwise they will choose to keep the macros. I have tried the following

Please Login or Register  to view this content.

I just cannot seem to get it to work.

[HaHoBe]

Hi, ekr,

Please Login or Register  to view this content.

The string from GetSaveAsFilename contains path, name and extension, so there is no need to add that once again.

Ciao,
Holger