[aubelix]

Bonsoir Bonjour Excalibur, bhbh et le forum.

Merci pour votre intérêt à mon problème.
Comme vous pouvez le voir dans le dernier fichier joint, c'est dès l'apparition
de l'UserPWD que le texte "Entrez votre mot de passe clignote".
Après avoir entré XLD et avoir validé par OK, théoriquement la feuille DataBase s'affiche
et me donne la main pour saisir ou modifier des données.
Comme la macro boucle, je n'ai pas accès aux cellules, je n'ai pas la main.
Je suis obligé de l'interrompre par "Ctrl + Pause".
Voici le code et lors du débbugage, l'arrêt se fait sur Loop
Faites la manip et vous le constaterez de vous même.

Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If Label2.Visible = True Then Label2.Visible = False Else Label2.Visible = True

a = Timer
Loop

Me.MP.SetFocus

End Sub


Dans l'attente d'une solution...

Cordialement.