Reply to thread

Message: [QUOTE="ryguy7272, post: 6379873"] Here is an example: Make Sheet1 VeryHidden: Hit Alt+F11, go to Properties > Visible 2-xlSheetVeryHidden Place this code in Module1: Sub Passwrd() Dim i_pwd As String i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...") If i_pwd = "" Then Exit Sub End If '#1 Select Case (i_pwd) Case Is = "Sheet1" Worksheets("Sheet1").Visible = True Sheets("Sheet1").Select Case Else MsgBox "Incorrect password; no action taken.", vbInformation, _ "Unhide Sheet..." End Select Exit Sub Place this code in the Sheet named â€˜ThisWorkbookâ€™ (hit Alt+F11 to see this object): Private Sub Workbook_Open() Module1.Passwrd End Sub Good luck, Ryan--- [/QUOTE]