Blocking access to VBA code

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Aug 17, 2011

• #2

Tools > VBA Project Properties > Protection tab, tick Lock Project for Viewing and enter a password. Save, close and re-open to see the effect.

 

Upvote 0

B

Badnames

Board Regular

Joined

Jun 12, 2007

Messages

211

• Aug 17, 2011

• #3

This is not working. I am currently running Excel 2007. I go into view code --> tools --> VBA project properties --> protection tab and then I check the box and enter the password. I save, recheck it before closing and see that the password is still there and the box is ticked. After closing and reopening, I can go into my code and the protection tab is then blank. I've tried right clicking the module, but no luck. Any advice on what could be wrong?

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Aug 17, 2011

• #4

Sorry but you must be doing something wrong. I don't know what.

 

Upvote 0

S

stubarny

New Member

Joined

Apr 7, 2011

Messages

41

• Aug 18, 2011

• #5

Hi Vog,

Many thanks

Please could you tell me if it's possible to lock the VBA by using VBA code rather than going through the menus? I tried to use the macro record button but it didn't record anything that I did within the VBA window.

Thanks,

Stu

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Aug 18, 2011

• #6

No, I'm pretty sure you can't do that. If you could you could do the reverse which would defeat the object of protection.

 

Upvote 0

S

stubarny

New Member

Joined

Apr 7, 2011

Messages

41

• Aug 19, 2011

• #7

Thanks VoG.

(the reason that I was asking is that I have a macro file which populates a template report file - I'd like to leave the VBA unprotected in the template report file so that when I work on the VBA code I don't have to keep entering the password (which I currently have to do). Then when a new report is created using the template report file I'd like that new file to have the VBA protected).

 

Upvote 0

Kenneth Hobson

Well-known Member

Joined

Feb 6, 2007

Messages

3,183

Office Version

1. 365

Platform

1. Windows

• Aug 19, 2011

• #8

First, make a macro using SendKeys() to do it. Then play it from your personal workbook. Make another to protect it.

Another way to play the macros would be, put these into the workbooks Open and Close events. Put an IF to check for something unique. e.g.

Code:

If Environ("username") = "Ken" then ...

You could even use the Application.Run to run the personal workbook protect and unprotect macros just in case someone hacks your If() routine.

 

Upvote 0