Protection de données

[Didier]

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

 

[Ti]

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

 

[Didier]

Merci Ti

 

[Didier]

Re bonjour Ti
j'ai ressayer et ça ne marche pas , il affiche le message d'erreur dès que
c'est cliquez et ya des problèmes avec undload me
Merci
Didier

 

[Ti]

regarde le fichier joint, ça marche

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

 

[Didier]

Merci Ti
Ce qui me chagrine c'est que j'vois pas ou je me sui planté
A plus tard
Didier

 

[Vériland]

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...

 

[Ti]

Tu patienteras un peu moins que les autres Vincent, puisque je t'ai choisi à l'unanimité pour réaliser les premiers tests ! 🙂

 

[Vériland]

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!

 

[Didier]

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

 

[leo]

comment deprotege un fichier excel quand on connais pas le mot de passe
ou bien comment deprotege la cellule A1 quand on connais pas le mot de passe