Excel 97, ma pauvre !
Bah, essaie ça, je ne te garantis pas que ça marchera (chez moi ça marche aussi), mais ça devrait normalement...
Private Sub Paramètres()
Dim X, Retour, OK As Boolean
Retour = MsgBox("Accès aux différents paramètres ", 4 + vbInformation + vbDefaultButton2, " PARAMETRAGES DU PROGRAMME . ")
If Retour = vbYes Then
Do
X = Application.InputBox(" Saisir le code d'accés .", " CODE D'ACCÉS AUX DIFFÉRENTS PARAMÈTRES.", " Password !", Type:=2)
If VarType(X) = vbBoolean Then
OK = True
Else
OK = UCase(X) = "OK"
End If
Loop Until OK
End If
End Sub