Modifying existing code to double prompt for password..

[omairhe]

Hey Excel Gurus,

How are you? I have a code that protects all sheets in a workbook.

Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd
Next wSheet
End Sub

I want to add two more features to it.
1. Ask the user to enter the same password twice.
2. I need a check mark option to hide the password with round circles for each character input. Thus by default the user can view the password but check marking "Hide Password" should hide the password.

Will appreciate plenty,

Thanks.

 

[dmt32]

1. Ask the user to enter the same password twice.
2. I need a check mark option to hide the password with round circles for each character input. Thus by default the user can view the password but check marking "Hide Password" should hide the password.

Hi,
first part of your requirement is quite straight forward

try this modified code & see if does what you want

Sub ProtectAll()
    Dim wSheet As Worksheet
    Dim Pwd(1 To 2) As String
    Dim i As Integer
    
    Do
        i = i + 1
        Pwd(i) = InputBox("Enter your password " & _
                          Choose(i, "to protect all worksheets", "again"), "Password Input -" & i)
'cancel pressed
        If StrPtr(Pwd(i)) = 0 Then Exit Sub
        If i = 2 And Pwd(1) <> Pwd(2) Then
            MsgBox "Passwords Do Not Match" & Chr(10) & "Please Try Again", 48, "Passwords Do Not Match"
            i = 0
        End If
    Loop Until Pwd(1) = Pwd(2)
    
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd(1)
    Next wSheet
End Sub

2nd part is a little more complex - whilst masking Inputbox entry has been done, it requires some quite extensive coding but you can achieve same result much easier with a userform.

Have a look here for an example:Excel Userform Login - Online PC Learning

Hope Helpful

Dave

 

[omairhe]

Hi,
first part of your requirement is quite straight forward

try this modified code & see if does what you want

Sub ProtectAll()
    Dim wSheet As Worksheet
    Dim Pwd(1 To 2) As String
    Dim i As Integer
   
    Do
        i = i + 1
        Pwd(i) = InputBox("Enter your password " & _
                          Choose(i, "to protect all worksheets", "again"), "Password Input -" & i)
'cancel pressed
        If StrPtr(Pwd(i)) = 0 Then Exit Sub
        If i = 2 And Pwd(1) <> Pwd(2) Then
            MsgBox "Passwords Do Not Match" & Chr(10) & "Please Try Again", 48, "Passwords Do Not Match"
            i = 0
        End If
    Loop Until Pwd(1) = Pwd(2)
   
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd(1)
    Next wSheet
End Sub

2nd part is a little more complex - whilst masking Inputbox entry has been done, it requires some quite extensive coding but you can achieve same result much easier with a userform.

Have a look here for an example:Excel Userform Login - Online PC Learning

Hope Helpful

Dave

This works perfect. Thanks. I would rather stick with your code than trying something new with the UserForm. One question though I have is how about if I mask the input characters by default. Because I will be prompted twice, hence looking the password isn't that necessary afterall. What will change in the code to do this please?

 

[dmt32]

This works perfect. Thanks. I would rather stick with your code than trying something new with the UserForm. One question though I have is how about if I mask the input characters by default. Because I will be prompted twice, hence looking the password isn't that necessary afterall. What will change in the code to do this please?

Not sure how you intend to "mask" the input characters without resorting to some complex coding which can be better seen & explained here:

Mask your Password with this VBA InputBox - wellsr.com

Use this VBA InputBox to mask passwords. This private InputBox was originally created by Daniel Klann many years ago, but I'll teach you how to use it.

wellsr.com

Personally, I think It would be far simpler to write some VBA to emulate the standard Inputbox with a userform where you can include your requirement for a checkbox to display the password.

Dave