Protecting sheet password

Hi friends

Need help in protecting worksheet with ADMIN password
no matter if Administrator ie "me" doesnt know the password has been changed by agents but i can again get into sheet with ADMIN password

their will be 2 password

1) ADMIN password ...to protect /unprotect sheet
2) Agent password ...to protect /unprotect sheet

i have not set any thing yet just working on blank sheet

please help me in code

thanks in advance

Hello, John!

You can use one technical password to operate with protection via VBA. And two user-oriented passwords that might be typed in Inputbox. In attachment you will see hidden list "Gear" with User and Admin passwords. "Admin" pass for admin and "User" for user.

Sub Protect()

ThisWorkbook.ActiveSheet.Protect Password:="You_Will_Never_I_repeat_Never_guess_This"
MsgBox "This sheet is protected."

End Sub

Sub Unprotect()

Dim strX As String

strX = InputBox("Type your password wherever it is User or Admin pass.", "Login in...", "Password")

With ThisWorkbook.Worksheets("Gear")

Select Case strX
    Case .Cells(1, 1).Value: MsgBox "Welcome, Mr. Admin!"
    Case .Cells(2, 1).Value: MsgBox "Welcome, dear User!"
    Case Else: MsgBox "Your password is incorrect.": Exit Sub
End Select

End With

ThisWorkbook.ActiveSheet.Unprotect Password:="You_Will_Never_I_repeat_Never_guess_This"

End Sub