Protect excel with password from vba

Question

I want to design VBA code that protects excel document with password.

I know its possible with excel tools and its more secure, but I want to try this and use it in other projects.

I wrote this code

vPass = InputBox("Password : ")
If StrComp(vPass, "predefinedPass") <> 0 Then Application.Quit

But when I put it in Workbook_Open, the content of the file is still showing while while waiting for user to give password.

I don't want the content of file to be shown.

Any ideas??

Of course this won't protect the workbook as any user can open the workbook with macros disabled. — to StackOverflow
– to StackOverflow, Commented Jun 19, 2013 at 11:56
How to open workbook with macros disabled. and how to prevent user from doing that?? — Ould Abba
– Ould Abba, Commented Jun 19, 2013 at 12:17
@OuldAbba You don't put simply, Excel has a built in option to secure a file with a password, is there some reason why that wouldn't be suitable? — Matt Donnan
– Matt Donnan, Commented Jun 19, 2013 at 12:46
I know it has security option, and i know it 'perfect'. But I wanted this so i can run some actions before user can access the document. And now it OK. — Ould Abba
– Ould Abba, Commented Jun 19, 2013 at 14:26
"How to open workbook with macros disabled" - if a user configures macro security in Excel to anything other than "Low", then as a minimum he will be prompted to run macros or not. There's no way to prevent this: google for "open workbook without running macro" — to StackOverflow
– to StackOverflow, Commented Jun 20, 2013 at 5:46

Sudheej · Accepted Answer · 2013-06-19 11:51:24Z

1

It is simple before firing the event set

    Application.Screenupdating = False

once the condition is true set screenupdating back to true

answered Jun 19, 2013 at 11:51

Sudheej

2,0326 gold badges37 silver badges60 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Yes, that does the job. But i also had to use Workbooks("myWorkbook"). Close before Application.Quit to completely make the content disappear.