je voudrais mettre un mot de passe pour enpecher ou permetre l'ouverture d'une feuille excel.
avec ce code si on clique sur OK sans remplir les champ la boite de dialogue disparait, comment faire pour obliger l'utilisateur à remplir les champs.
merci pour votre aide.

Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End
' Recherche du User_name
Set Rech = Range("Users" ).Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then
' Contrôle du mot de passe
If Pwd_Util = Rech.Cells(1, 2) Then
' Si Ok mémorisation du nom d'utilisateur
Range("Niveau_en_cours" ) = Rech.Cells(1, 3)
' Fermeture du formulaire
Unload Mot_De_Passe
Else
' Mot de passe invalide
MsgBox ("Falch Password" )
' End
End If
Else
' Utilisateur inconnu
MsgBox ("unbekannt Benutzer" )
' End
End If
End Sub