El problema que tienes es que para que funcione debes incluir un bucle
do while, que controle si el password es correcto o no, a la vez que controlamos el número de oportunidades o de intentos para poner la contraseña.
Prueba esto que acabo de hacer (está muy resumido, ya que no ha nada oculto que se muestre, ...solo es el tema del password y el control de intentos):
Código:
Sub auto_open()
intentos = 0
Do While clave <> "abuela"
clave = InputBox("Tienes 3 intentos." & Chr(10) & Chr(10) & "Llevas " & intento & " intentos.")
intento = intento + 1
If intento = 3 Then ThisWorkbook.Close
Loop
End Sub
Salu2