Prompt for Password

[kev6264]

How do I include a prompt for a user to enter a password when unprotecting a worksheet. Here is the procedure.. I have to unprotect sheet to sort and then I want to re-protect afterwards.

Range("C5:L1500").Select
    
    Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("C6").Select

 

[Zack Barresse]

Hi there,

Maybe something like this ..

Sub ShowPandUP()
    Dim strPwd As Variant
    strPwd = InputBox("Please enter password:", "PASSWORD", "Type password...")
    If strPwd <> "password" Then
        MsgBox "Nope, wrong password.", vbInformation, "NO WAY HOSE"
        Exit Sub
    End If
    With Sheets("Sheet1")
        .Unprotect Password:=strPwd
        .Range("C5:L1500").Sort Key1:=.Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
                   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                   DataOption1:=xlSortNormal
        .Protect Password:=strPwd
    End With
End Sub

 

[lenze]

Something like this

Sub Password()
    Dim pwd As String
    pwd = InputBox("Enter password")
    If pwd <> "password" Then
    MsgBox "Wrong Password"
    Exit Sub
    End If
    ActiveSheet.Unprotect pwd
End Sub

lenze

 

[Smitty]

Maybe something like this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> MySort()
    <SPAN style="color:#00007F">Dim</SPAN> pword <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> x
        pword = InputBox("Please enter a password", "Password")
        
        <SPAN style="color:#00007F">If</SPAN> pword <> "foo" <SPAN style="color:#00007F">Then</SPAN>
            x = MsgBox("Incorrect Password entered!  Retry?", _
                vbCritical + vbYesNoCancel, "Incorrect Pasword")
            <SPAN style="color:#00007F">If</SPAN> x = vbYes <SPAN style="color:#00007F">Then</SPAN>
                MySort
            Else:   <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
            
        ActiveSheet.Unprotect pword
            Range("C5:L1500").Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
        ActiveSheet.Protect pword
        
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

 

[kev6264]

Works great, thanks..