How to mask the password using this code

Hi,

It's much easier to use a userform and textbox. If you want to use Inputbox, you must use API functions like this- http://www.ozgrid.com/forum/showthread.php?t=72794

Cannot do it with input box
Use text box in user form with PasswordChar set to *

TextBoxWithPassword.jpg

Originally Posted by JJFletcher

Thanks so much for the feed back...

The part that is missing in using a Form for the Password is the Read Only attribute that is available in this code

Please Login or Register  to view this content.

Regards,

John

I'm afraid I don't understand. The userform works exactly like the inputbox so I don't see what the problem with the remaining code could be?

Hello
In standard module put this code

Please Login or Register  to view this content.

In another module test that code

Please Login or Register  to view this content.

HI YasserKhalil,

I have put the code above in the workbook and it functions as it should except if the user enters the wrong password - they have a few more chances and then says "Incorrect Password Entered Too Many Times. Try Again Later".... Rather then try again later I would like the user to be able to use the workbook but with "Read Only" privileges.. Can that be added to this code supplied by you?

Regards,

John

Try this

Please Login or Register  to view this content.

I don't understand what you're after ..

What you are trying to do seems unnecessarily complicated
- especially when Excel offers this option free of charge

Saving the file with Password required to MODIFY the file but allowing it to be opened "read only" by anyone,
also masks the words entered
(seems to meet everything requested in post#1)

SaveAs\Tools\General Options


OpenReadOnly.jpg

Read and play yes, but cannot not save any modifications.

1 Save the file with relevant worksheets protected as default
(Protection is very flexible)
2. User opens file
- read-only : leave protection in place
- with password : lift sheet protection allowing user to modify

Control via VBA

I am away from my PC for several days and so cannot test, but I think this will allow you to distinguish between user who used a password and one who did not .

In the ThisWorkbook module

Please Login or Register  to view this content.

You could try:
Open file normally with no password required
Ask user for password with VBA
(With userform to allow masking)
Change file attribute if user fails to give password
Change file attribute back again when user closes file
Something like:

Please Login or Register  to view this content.

Then in the BeforeClose event macro set file back to ReadWrite

Please Login or Register  to view this content.

I'm just wondering why this portion of the code

Please Login or Register  to view this content.

that sets the workbook to Read Only cannot be placed into the Test Module somehow insuring that if the User fails entering the Password correctly that the entire workbook is Read Only...

Currently the User if has entered the wrong password, can still interact with the workbook and this is not desired...

Please Login or Register  to view this content.

This current code shuts down the workbook after 3 failed attempts... I do not want the workbook to close but be in a Read Only state and allow the user to view the workbook but not use the workbook to modify the workbook

Best Regards,

John

I will have brief access to a PC later today and see what I can come up with

Everything is being typed in manually, so apologies for any typos not spotted...
I could attach a file containing the working code on Tuesday - if that would be helpful let me know

This method works for me and is simple:

1. The workbook does not require password protection
2. When file is opened, a macro is called asking user for password
3. If user fails to provide password then file is set to ReadOnly (to prevent user saving the file) and sheets are protected (so that no cells can be selected) - stopping user interaction with workbook but allowing user to see contents
4. There is a further macro to prevent the file being saved under a different name
5. If user provides correct password, happy days - normal user action permitted

It would be easiest if all VBA is placed in ThisWorkbook module:

Please Login or Register  to view this content.

I will post a file on Tuesday which combines everything in post#23 with a userform to give you the requested masking
- too painful and error-prone re-typing all the code

Hi Kev,

Thanks so much... I will be looking forward to seeing the file next week... in the mean time, I will begin to integrate the above code...

Regards,

John

With Userform Password Masking

I have now moved from Windows 7 to Windows 10 as a result of my PC's untimely death
For some reason which I cannot fathom, Excel's behaviour appears to have changed in a couple of areas - it could simply be a setting , but have not had time to investigate
One line that refuses to "play ball" is the one setting the file to xlReadOnly -it could be something to do with how autosave is working on my new laptop which appears to be much more bossy

So the workaround is simply to rely on protecting all worksheets to prevent the user (with incorrect password) selecting or changing anything - it's crude but it appears to work. Try it in the attached file.

The userform is called when the workbook is opened
- if password correct all sheets unproteced
- 3 chances for user to provide correct password
- after 3 failures sheets are protected and the user can wander around the workbook but cannot change anything

Although user clicks on OK button, there is no code behind the button - clicking on it triggers the "Exit" event
The userform consists
- a textbox with PasswordChar set to *
- a label to communicate with user after 1st unsuccessful attempt
- OK button

Userform code is simply:

Please Login or Register  to view this content.

The userform calls these procedures which are also in the Userform module:

Please Login or Register  to view this content.