Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Protection de données

D

Didier

Guest
Bonjour le forum
J'essais de mettre un mot de passe pour accéder à la feuille3
mais ça ne marche pas comme je voudrai à chaque fois il faut cliquez ok
sur le message d'erreur pour continuer à rentrer ce mot
Voyer plutot je joint le fichier
Merci de votre aide
 

Pièces jointes

  • Classeur1.xls
    36 KB · Affichages: 59
  • Classeur1.xls
    36 KB · Affichages: 57
  • Classeur1.xls
    36 KB · Affichages: 47
T

Ti

Guest
il te suffit de déplacer ton code dans l'événement Commandbutton_click et supprimer Textbox1_change

Private Sub CommandButton1_Click()
If TextBox1 = "1234" Then
Sheets("feuil3").Visible = True
Else
MsgBox "Mot de passe invalide", vbCritical, _
"Mot de passe"
End If

TextBox1 = ""
Unload Me
End Sub
 
T

Ti

Guest
regarde le fichier joint, ça marche

(Pour info, fichier zippé et copié en automatique depuis Excel ! Patience, c'est pour bientôt)
 

Pièces jointes

  • protectTi.zip
    11.7 KB · Affichages: 31
V

Vériland

Guest
Wow !...zippé et copié en automatique depuis Excel ?...mais c'est super çà...bon on va patienter...mais au fait c'est l'application numéro combien pour toi Ti ?...5...10...15...?...1000 ?...lol...
 
V

Vériland

Guest
Houlà!...j'viens de revenir...c'est un grand honneur çà...que de me considérer comme testeur...c'est très aimable à toi Thierry...sans problème...mais avant j'vais déjà m'occuper d'un cas qui s'prénomme icône...hi hi hi!
 
D

Didier

Guest
Bonsoir Ti et Vériland

Ti, j'ai trouvé mon erreur, je tapait le code sur le boutton de commande de la feuille et pas sur celui de l'userform
Bonne soirée
Didier
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…