Code to unprotect VBAproject

[BX]

Hi
I have protected my project to hide the code from users. However, in one of the macros I use prior to sending the file, I delete extra sheets and user forms. Since the project is protect the code results in an error.
At the start of the code is there away to unprotect my project and then at the end reprotect the project.

something like: project ("name").unprotect "1234"
obviously not right, but what is the proper way to refer to a project and unprotect and re-protect it.

Thanks,
BX

 

[kskinne]

pretty boring here in fly-over country as well...TGIF

 

[Ivan F Moala]

good point Tom, I never even thought of sendkeys - but I still wouldn't put code like that into a workbook that I was going to distribute. otherwise what would be the point of protecting the project? unless you were going to change the "Password" part of the code to an inputbox - yes, you still have to enter a password when prompted, but it would still be easier than having to open the VBE.

kevin

Yes, neither would I. Plus you need to be aware that Opening up a protected project leaves it open until you close it again.
So what would it be useful for ?? changing /importing/exporting new Modules for updating (That you do and NOT the OP)

 

[Delip_Yogendra]

Hi Tom.. !!!!!!!
I am a big fan of you, Your book Excel VBA 24 hours Trainer is so fantastic, I am new to this forum but i am very glad to see you..
I have just made a very minute change on your main code, so that the position check can be skipped.

Thanks a lot for your book.. !! Its very helpful..

Sub TestUnprotectProject()
    Dim Wb As Workbook
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    Set Wb = Workbooks.Open("C:\Users\delip\Desktop\WorkbookToUnprotect.xlsx") 'Change the file name to open
        
        Do Until Application.Ready = True
        
        Loop
        
        With Application
            'Go to the VBE
            .SendKeys "%{F11}", True
            'Activate Project Explorer window
            .SendKeys "^r", True
            'Used down-arrow to request password .SendKeys "{DOWN}", True
            .SendKeys "{DOWN}", True
            'Enter your password - - this example is "Password"
            .SendKeys "Password"
            'Enter again
            .SendKeys "~", True
        End With
        
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
End Sub