Code to Require Password to Unhide Rows on Already Password Protected Sheet

WadeExcel · Nov 2, 2009

The worksheet is already passord protected. I have assorted macros created to unlock the sheet with the password (without any user interface), perform a procedure and then reprotect the sheet. On the payroll portion of the worksheet, if the rows have been hidden, what is the code to require the user to provide a password that will unhide those rows (without unprotecting the entire sheet)?

dave3009 · Nov 2, 2009

Ultimately the sheet will need unprotected but you could do this all programmatically

Code:

Sub Unlockhide()
Dim pass As String
pass = InputBox("Please enter your password!", "Password Prompt")
Select Case pass
    Case "Password": With ActiveSheet
                        .Unprotect "SheetPWord"
                        .Rows("2:3").EntireRow.Hidden = False
                        .Protect "SheetPWord"
                    End With
    Case Else: MsgBox "Incorrect Password!"
End Select
End Sub

WadeExcel · Nov 3, 2009

Thank you! I tried an abbreviated version of what you provided and it works.

PHIL.Pearce84 · Oct 24, 2016

Hi this is exactly what I need!!

How would it look if I don't want to protect the sheet? I just want rows 118-143 to need a password to both hide and unhide

Code to Require Password to Unhide Rows on Already Password Protected Sheet

WadeExcel

New Member

Excel Facts

dave3009

Well-known Member

WadeExcel

New Member

PHIL.Pearce84

Board Regular

Similar threads

Forum statistics

Share this page

Code to Require Password to Unhide Rows on Already Password Protected Sheet

WadeExcel

New Member

Excel Facts

dave3009

Well-known Member

WadeExcel

New Member

PHIL.Pearce84

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock