How to lock each tab with a different password?

[alinpion]

Hello!

I have a excel document with 5 tabs (sheets) and, because different people work with a different tab (sheet), I want to lock each tab (sheet). I want the tab to be visible on the tab bar but when you click on it you will not be able to see the content of that tab (sheet) until you provide the right password (each tab with a different pasword).

 

[grizz]

right click on your tab and click view code then paste this code in and change your password

Private Sub Worksheet_Activate()
Dim pwd As String:  pwd = "mypassword"
Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("What is the password to view this sheet?", "Access Password", "******") <> pwd Then
        Sheets("Sheet1").Activate
        MsgBox "Wrong password"
    Else
        Range("A1").Activate
    End If
 
End Sub

for each sheet / tab use different password

 

[alinpion]

The code works but now I have another problem:

If you put the code (with password) in all sheets save and then when you open it, the document will enter in the last sheet that you write and save without asking you for a password.

The solution in my opinion will be:

When I open the file I want a window to appear and ask me what sheet I want to use and after I chose the sheet another window appears and ask's me to enter the password for the chosen sheet