VBA Code - Unhide multiple sheets with Password

[StuartUK]

Hello all

Am trying to find the VBA code to "ask a user for the password to unhide multiple sheets/tabs"

I have got the script for unhiding all sheets which is:

Sub Sheets_Unhide()

Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
End Sub

What i would like though is for it to prompt with a password first before the code is executed for unlocking 50 odd sheets....
Is it possible ?
I know its not 100% fool proof, but would do for what i need!
cheers

 

[VoG]

Try

Sub Sheets_Unhide()
Dim sh As Worksheet
If InputBox("Enter password") <> "passw" Then
    MsgBox "Wrong password"
    Exit Sub
End If
For Each sh In Worksheets
    sh.Visible = xlSheetVisible
Next
End Sub

 

[JackDanIce]

Welcome to the board.
Try:

Sub Sheets_Unhide()

Dim sh As Worksheet
Dim myPassword as String
myPassword = "Unicorn"
If InputBox("Please enter password to show sheets: ") = myPassword Then
  Application.ScreenUpdating = False
  For Each sh In Worksheets
    sh.Visible = True
  Next sh
  Application.ScreenUpdating = True
Else
  MsgBox("Incorrect password, macro stopping")
End If
End Sub

Change part in red to whatever your password is, but make sure it's surrounded by speach marks.

 

[StuartUK]

Thank you kindly for the reply!
It works a treat!!!

Is there a way to make excel run a macro when the user goes to quit that spreadsheet ?

(I have a macro that hides the selected records, but just in case the user forgets to run the macro which hides them all, is there a command to make it do it before the spreadsheet closes ?)

Cheers

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor, in the Project window double click ThisWorkbook and paste in

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call nameofyourmacro
End Sub

change the name of the macro to suit.

 

[StuartUK]

Wow!
liking these quick replies!
Thank You!!

All works a treat now my spreadsheet/staff planner.... just to keep 1 person happy, have to put these macros in to hide certain worksheets despite not containing any important info!

 

[bighum]

Is there a way to insert code so that if the sheets do not need to a password to unhide them it will just unhide them but if a password is required then the user will be prompted for a password?