Simple Code to open multiple hidden worksheets

[gstullo]

Hello,

Very new to VBA. Working off a code that hides worksheets until a password given to open them.

I want to modify this so that it will open more than one sheet...

What I have:

Option Compare Text
Const pWord2 = "XXX"


Sub showsheets2()
Select Case InputBox("Enter Raw Data Password")

Case Is = pWord2
With Worksheets("Raw Data Dashboard")
.Visible = xlSheetVisible


End With
Case Else
MsgBox "Nope! Please enter correct password to see raw data"
End Select

End Sub

How do I make it so another sheet opens at the same time?

Thanks!

 

[lenze]

Sub showsheets2()
rspn = InputBox("Enter Raw Data Password")
Select Case rspn
Case  "password"
Worksheets("Raw Data Dashboard").Visible = xlSheetVisible
WorkSheets("whatever").Visible = xlSheetVisible 
Case Else
MsgBox "Nope! Please enter correct password to see raw data"
End Select
End Sub

lenze

 

[gstullo]

Sub showsheets2()
rspn = InputBox("Enter Raw Data Password")
Select Case rspn
Case  "password"
Worksheets("Raw Data Dashboard").Visible = xlSheetVisible
WorkSheets("whatever").Visible = xlSheetVisible 
Case Else
MsgBox "Nope! Please enter correct password to see raw data"
End Select
End Sub

lenze

What?

 

[lenze]

What?

Did you try it??
lenze

 

[gstullo]

Hey thanks!

That worked great.

Thank you so much.

Any advice as to where a beginner can learn VBA?

 

[gstullo]

Also, is there a way to change the "title" of the message box from "Microsoft Excel" to something else?

Thanks!

 

[lenze]

Any advice as to where a beginner can learn VBA?

1 Try recording macros and look at the code The Macro Recorder is your friend!!
2 Check out the books at MrExcel.com
3 Visit the board regularly, paying attention to code posted by senior members.
4 Try to modify, on your own, posted code that may have an application for you.

lenze

 

[lenze]

The MsgBox title is the 3rd argument of the MsgBox Statement

MsgBox "Nope! Please enter correct password to see raw data", vbOK,"Opps"

lenze