XL 2013 Proteger un CheckBox

[maval]

Bonjour

J'ai sur un userform un CheckBox j'aimerai que l'utilisateur puisse l'activer uniquement avec un mot de passe.

Je vous remercie d'avance

 

[M12]

Re : Proteger un CheckBox

Bonjour,

A tester en remplaçant

Private Sub CheckBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
reponse = InputBox("Mot de passe?")
    If reponse = "passe" Then
        CheckBox1.Caption = IIf(CheckBox1.Caption = "Remettre les feuilles", "Masquer les feuilles", "Remettre les feuilles")
        Dim I As Integer
            For I = 3 To Sheets.Count
                Sheets(I).Visible = xlSheetHidden = IIf(CheckBox1.Caption = "Remettre les feuilles", True, False)
            Next I
        Else
        MsgBox ("Mot de passe erroné"): Exit Sub
    End If
End Sub

 

[M12]

Re : Proteger un CheckBox

Re,

Avec l'indicateur de la case qui s'affiche

 

[maval]

Re : Proteger un CheckBox

Bonjour M12

Je te remercie et te souhaite une bonne journée

 

[job75]

Re : Proteger un CheckBox

Bonjour maval, M12,

Dans le fichier joint la variable (Static) verif évite d'avoir à entrer à chaque clic le mot de passe.

A+

 

[maval]

Re : Proteger un CheckBox

Bonsoir Job

je vous remercie, juste une question peut on supprimer l'InputBox par un textbox sur le même userform?

 

[job75]

Re : Proteger un CheckBox

Re,

Je ne le recommande pas, l'intérêt de l'InputBox c'est qu'elle ferme l'USF si le mot de passe n'est pas entré.

On peut la remplacer par un 2ème USF.

Bonne nuit.

 

[maval]

Re : Proteger un CheckBox

Re

D'accord j'en prend note merci bonne soirée

 

[job75]

Re : Proteger un CheckBox

Bonjour maval, le forum,

L'intérêt d'un 2ème UserForm c'est qu'on peut masquer le mot de passe.

Son code est simple :

Private Sub TextBox1_Change()
If TextBox1 = "toto" Then Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 <> "toto" Then End
End Sub

Fichier (2).

Bonne journée.

 

[maval]

Re : Proteger un CheckBox

Bonjour Job

Je vous remercie et vous souhaite une bonne journée