Password that unhides all sheets in "read only mode"/protected workbook

Maybe I'm misunderstanding. You want the user to input a password, have all sheets unhide in read only or protected mode and still allow the user to input data manually? If that's the case, then I don't think it would be possible for them to enter anything into the sheet as read only/protected mode wont allow it to happen.

This will unhide all sheets in protected mode...

Sub ProtectUnhideSheets()
Dim ws As Worksheet
Dim myPassword As String
    myPassword = "1111"
    

    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:=myPassword
            ws.Visible = True
        Next ws

End Sub

Assign it to a button for the user to run it, or, put it in a Workbook_Open event to have it run when the workbook opens.

Put this in ThisWorkbook

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim myPassword As String
    myPassword = "1111"
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:=myPassword
    Next ws
    
End Sub

ok, for the first code try..

Sub ProtectUnhideWorksheets()
    Dim pass As String
    Dim ws As Worksheet
    Dim myPassword As String
        myPassword = "1111"
    
    pass = InputBox("Enter Password")
        If pass <> "password" Then MsgBox "Incorrect password."
            
    For Each ws In ThisWorkbook.Worksheets
            ws.Protect password:=myPassword
        ws.Visible = True
    Next ws
    
End Sub

This will ask for a password and unhide all hidden sheets in protected mode. The password is password as in the code.

The 2nd code unprotects all the sheets when the workbook opens. You can assign that to a button instead

This will do it, place it in the ThisWorkbook section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Dim myPassword As String
    myPassword = "1111"
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:=myPassword
    Next ws
    
End Sub

Oh, and just because a worksheet is protected and hidden doesn't mean you can't unhide it

For this:

Dim myPassword As String
    myPassword = "1111"

You could write:

Const myPassword As String = "1111"

Regards, TMS

Thanks for the info Trevor, but I'm afraid I'm not familiar with

Const myPassword As String = "1111"

As for the hidden part, very true, if they know there are hidden sheets, they can unhide them easily with a click or 2.

For reference: https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx

Const is a constant, same as a variable but, well, constant, not changing. So, for something like a password, you can use a constant rather than defining a variable and setting its value somewhere else in the code.

As for the hidden sheet(s), just making the point that just because it is hidden, even very hidden, it's not safe or secure.

Regards, TMS

TMS,
I've tried using Const for the password, and I like it, it's a bit cleaner looking in the code than the Dim etc. Thanks again.

@gmr4evr1: You're welcome. Thanks for the rep.

No problem.