vba to lock/protect vba

Hello you beautiful people,

I hope you all are keeping well.

Excel Forum has been my go to point when I get lost so all I can do is thank you all.

The reason I am posting today as this has got me stumped?

I have a master workbook that creates multiple workbooks. In these workbooks there is a worksheet change timestamp.

What I am trying to achieve is to password protect the vba from viewing/amending.

I have never used sendkeys before and the below code isn't working for me?

Sub Test()

SendKeys "%{F11}"
SendKeys "%TE"
SendKeys "{TAB 9}"
SendKeys "{RIGHT}"
SendKeys "{TAB}"
SendKeys " "
SendKeys "{TAB}"
SendKeys "craig"
SendKeys "{TAB}"
SendKeys "craig"
SendKeys "{ENTER}"
SendKeys "%{F4}"

End Sub

I can't f8 the routine so I am unsure why it isn't working as all it is doing is adding the word "craig" to the worksheet. Have I missed something?

I know that this can be cracked via a HEX editor but these are daily spread sheets and the people it will go to won't bother.

Is there an alternative way of locking the VBA code or can I make the above work?

I have attached a sample workbook so you can see my issue.

Any help will be greatly appreciated as per normal

Hello,

I changed your code a bit. Even I do not like the sendkey method, but I don't get any other possibility in my mind to protect the VBA project.
Now the code is doing what it should. after running the code, the file needs to be saved, closed and reopened to have the protection finalised.

Sub Test()

SendKeys "%{F11}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%TE", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{TAB 9}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{RIGHT}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{TAB 2}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys " ", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{TAB 2}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "craig", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "craig", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{ENTER}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%{F4}", True
Application.Wait (Now + TimeValue("0:00:02"))

End Sub

Hello MRUTOR,

Many thanks for the reply but this does not seem to be working for me either.

It gets as far as opening VBAProject - Project Properties and stops until I either press OK or Cancel please see jpg below. It then runs after I hit a button

Attachment 681132

This is really odd as I have copied your macro to the T and am having no success.

Does there need to be some kind of setting in VBA that I need turning on?