VBA for Hiding\unhiding Very hidden sheet via password

[Alisya]

Hi, i need a code that will unhide all veryhidden sheets, but when the user executes command button, i would like a input box which will ask for a password, if the pass word is correct then run macro, similary i would like a macro that will hide the followings sheets as veryhidden with input box prompt for password. Password should be test

"Test1","Test2","Test3","Test4"

 

[rconverse]

Something like this should get you started.

Sub test1()
Dim ws As Worksheet
Dim wb As Workbook
Dim i As Integer
Dim strResponse As String

strResponse = InputBox("Please enter the password.", "Password")

If strResponse = "Test" Then

    i = 1
    
    Do Until i > Sheets.Count
    
        Set ws = Sheets(i)
        ws.Visible = xlSheetVisible
        i = i + 1
        
    Loop

Else

MsgBox "The passowrd entered is incorrect.", vbCritical, "Incorrect Password"

Exit Sub

End If

End Sub

HTH
Roger

 

[Alisya]

Ok, thats great now how do i do the opposite, where i want to hide sheets as very hidden?

Something like this should get you started.

Sub test1()
Dim ws As Worksheet
Dim wb As Workbook
Dim i As Integer
Dim strResponse As String
 
strResponse = InputBox("Please enter the password.", "Password")
 
If strResponse = "Test" Then
 
    i = 1
 
    Do Until i > Sheets.Count
 
        Set ws = Sheets(i)
        ws.Visible = xlSheetVisible
        i = i + 1
 
    Loop
 
Else
 
MsgBox "The passowrd entered is incorrect.", vbCritical, "Incorrect Password"
 
Exit Sub
 
End If
 
End Sub

HTH
Roger

 

[rconverse]

Just change

ws.Visible = xlSheetVisible

to

ws.Visible = xlSheetVeryHidden

 

[Alisya]

Where do i input the sheet names to be very hidden?

Just change

ws.Visible = xlSheetVisible

to

ws.Visible = xlSheetVeryHidden

 

[Datsmart]

I used the same password as above:

Sub MakeHidden()
strResponse = InputBox("Please enter the password.", "Password")
If strResponse = "Test" Then
'Loop through all worksheets
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "Test1" _
            Or ws.Name = "Test2" _
            Or ws.Name = "Test3" _
            Or ws.Name = "Test4" Then
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
    MsgBox "Some Worksheets now hidden."
Else
    MsgBox "The passowrd entered is incorrect.", vbCritical, "Incorrect Password"
End If
End Sub