F
Fermo
Guest
Bonsoir Thierry, j’ai trouvé dans ton pack 1 une macro pour faire ma fameuse feuille avec entrée et mot de passe.
Cela fonctionne superbement bien, mais le mot de passe ne s’efface pas après être rentrée dans la dite feuille ?
Peux tu m’indiquer ou je peux mettre un Delette ou autre.
Merci à vous salutations Fermo
Private Sub Variable_Click()
UserFormPass.Show ' va demander un mot de passe
End Sub
Option Explicit
Private Sub UserForm_Initialize()
PasDeCroix Me
TextBox1.Value = " "
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Value = "helico1234" Then
Sheets("Variable").Select
UserFormPass.Hide
Else
MsgBox "Vous n'avez pas accès à cette cellule"
Sheets("Menu").Select
UserFormPass.Hide
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserFormPass
Sheets("Menu").Select
End Sub
Cela fonctionne superbement bien, mais le mot de passe ne s’efface pas après être rentrée dans la dite feuille ?
Peux tu m’indiquer ou je peux mettre un Delette ou autre.
Merci à vous salutations Fermo
Private Sub Variable_Click()
UserFormPass.Show ' va demander un mot de passe
End Sub
Option Explicit
Private Sub UserForm_Initialize()
PasDeCroix Me
TextBox1.Value = " "
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Value = "helico1234" Then
Sheets("Variable").Select
UserFormPass.Hide
Else
MsgBox "Vous n'avez pas accès à cette cellule"
Sheets("Menu").Select
UserFormPass.Hide
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserFormPass
Sheets("Menu").Select
End Sub