Password Issue

[gmazza76]

Good Evening,

I have been supplied some code that hides a password if a tick box is ticked.

Is there anyway the code below can be chnaged so the tick box isnt an issue and the password is just "******" out.

The code i am using is as below.

chkHide is the part on the userform says "Hide Password"

txtPass.PasswordChar = IIf(chkHide.Value, "*", "")

Many Thanks

 

[Smitty]

Sure, in the Text Box's Properties goto Password Charcter and enter *.

HTH,

 

[gmazza76]

Many Thanks, that worked.

I hope you dont mind but is there a chance you can answer this password issue please.

I have 8 spreadsheets in a workbook that i need to protect.
The issue i have is that I need to be able to run a userform that puls info out of one and saves into 3 of them. the other 3 are all stat related.

Is there anyway i can lock say all of them so that people cant delete info , but the userform can still enter information.
As well as allowing a 3 managers to open the other 3 if a userform is entered??

Many thanks
Gavin

 

[Smitty]

To protect and allow your code to make unrestricted changes to a sheet you can use the UserInterfaceOnly property:

<font face=Calibri><SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">Const</SPAN> pword <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "bigdog"<br><br><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets<br>            ws.Protect pword, UserInterfaceOnly:=<SPAN style="color:#00007F">True</SPAN><br>        <SPAN style="color:#00007F">Next</SPAN> ws<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

I'm not too sure about the last part. If you want to give people conditional editing ability, then you can give them the password.

 

[gmazza76]

Cheers

I take it i would put this VB in the worbook.

Will this stop anything be saved to it or just amending the spreadsheet.

Gavin

 

[Smitty]

Yes, you'd open the VB Editor (ALT+F11), then insert a module and paste the code in there. You can assign it to a button, call it from the Workbook_Open event, or choose it from the macro list.

This won't stop anyone from saving the workbook, but it will prevent them from making any entries other than from the user form.

 

[gmazza76]

Good Afternoon Smitty,

Sorry about the message out of the Blue but i need to ask you something concerning a password issue you have previosly helped me with.

You showed me how to create a password box that allows a name & password to be entered. If they are correct it loads a userform.

I want to use the same password form but instead of opening a userform i need it to unhide 2/3 sheets. The sheets that are unlocked would depend on the password entered. Is there any chance you can point me in the right direction.

If Worksheets("Info").Range("I" & cmbMgrs.ListIndex + 2) = txtPass Then ' Start of 1st If Block
        MsgBox "Correct password entered, please wait while open Car Parks are Checked", vbInformation
        
        Unload Me
    
    Application.ScreenUpdating = False

I am having trouble getting the password = "PW" unhide else "PW" unhide etc...

Many Thanks