[VBA-Excel] Inserire Password

[gibra]

Non puoi usare un InputBox?

myPwd = Application.InputBox("Inserire la Password")
If myPwd <> "xyz" Then
    MsgBox "Password non valida.", vbExclamation
    Exit sub
End If

Non ho verificato, vedi se funziona.
Se non funzione guardati la guida VBA su InputBox e MsgBox.