Ajout d'une condition à un code VBA

[TheProdigy]

Bonjour à tous,

Je voudrais ajouter une condition : Selectionner la feuille 2 si jamais la feuille 2 est déjà affichée. Cad de ne plus demander à l'utilisateur le mot de passe si déjà il a pu visualiser la dite feuille en validant le mot de passe voilà le code:

Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Sheets(2).Visible = True
MsgBox "Correct. La feuille 2 est affichée"
Unload Me
Unload UserForm1

Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub

Merci infiniment

 

[Jacques87]

Re : Ajout d'une condition à un code VBA

Bonjour,

Tu dois ajouter une petite Macro qui te permettra de vérifier si le Mot de Passe à déjà été fourni

Public Mot_de_passe As String
Sub verif_motdepasse()
If Mot_de_passe <> "123" Then
    Mot_de_passe = InputBox("Veuillez donner le mot de passe")
End If
End Sub

et de plus dans ton code tu ajoutes un appel à la vérification

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
verif_motdepasse
ActiveSheet.Unprotect (Mot_de_passe)
End Sub

dans mon exemple la feuille ne sera déprotégée automatiquement que si le mot de passe a déjà été donné, sinon on le demandera

A toi d'adapter cet exemple à tes besoins

Bon courage

 

[TheProdigy]

Re : Ajout d'une condition à un code VBA

Merci Jacque, Et comment avoir une macro qui permettrait de selectionner la feuille 2 cad sheet(2).select si déjà elle affichée. Mais si elle n'est pas affichée je fais appel à userform de mot de passe merci
Merci infiniment

 

[ziopizza]

Re : Ajout d'une condition à un code VBA

Bonsoir, adilprodigy,Jacques87

Peut étre comme ça,
Au début de ton code:
if ActiveSheet.Name<>"Feuil2" then Ici appel de ton userform

Ici la suite de ta procédure
Salut Yves

 

[Jacques87]

Re : Ajout d'une condition à un code VBA

Bonsoir,

Je te propose un petit fichier qui devrait te montrer une solution à ta question sur la feuille 1

Pour cela j'ai utilisé la propriété "Visible" de la feuille

Regarde le code, essaie de l'appliquer à tes besoins

A ta disposition pour de plus amples infos

Cordialement

 

[TheProdigy]

Re : Ajout d'une condition à un code VBA

Déslé ziopizza Jacques87 j'étais malade je viens de voir votre message. Je vous remercie et merci Jacques87 pour ton implication