Private Sub CmdOK_Click()
'il ne faut pas prendre username comme nom, car c'est un terme VBA, donc on dit que textbox1=username
'Application.Username => textbox1.Value '= le nom de la licence sinon Environ$("username")= l'utilisateur.
'Si il y a plusieurs utilisateurs, il faut créer une liste directement, soit sur le fichier en feuille cachée, soit dans le code VBA
mdp_ancien = textbox2.Value 'il est préférable de stocker le mdp, soit sur le fichier en feuille cachée, soit dans le code VBA
mdp_nouveau = textbox3.Value
mdp_nouveau_confirm = textbox4.Value
If textbox3.Value <> textbox4.Value Then Exit Sub Else Range("A1").Value = textbox4.Value 'en cellule a1 feuille cachée ou on redemande
If textbox1 = Application.Username Then 'ou un "find" sur la liste
' on sauvegarde
ActiveWorkbook.SaveAs Filename:= _
"D:\monfichier.xls", Password:=textbox4.Value
End If
End Sub