Tengo una hoja de calculo con botones que me redirecionan a otras hojas como poner clave de ingreso

Te envío la macro password que necesitas, lo que
tenes que hacer es:
1)En la Hoja1 le asignas la macro a la imagen de tu botón
2) Si pones la clave correcta te pasa a la Hoja2

Sub Ing_Contraseña_Hoja2()
' Macro grabada por Macro_Leo
Ingreso = InputBox("Escriba la contraseña para acceder ", "Archivo Protegido")
If Ingreso = "x122x" Then 'La Clave es x122x
Sheets("Hoja2").Select
Else
MsgBox "Prohibido el Acceso", vbExclamation, "PASSWORD NO VALIDO"
End If
End Sub

Si esto resuelve tu consulta no olvides finalizarla.