XL 2013 Proteger un CheckBox

M12

XLDnaute Accro

• 19 Mai 2016

• #2

Re : Proteger un CheckBox

Bonjour,

A tester en remplaçant

Code:

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 19 Mai 2016

• #3

Re : Proteger un CheckBox

Re,

Avec l'indicateur de la case qui s'affiche

 

Pièces jointes

• Checkbox.xlsm

  25.2 KB · Affichages: 35
• Checkbox.xlsm

  25.2 KB · Affichages: 38

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 19 Mai 2016

• #4

Re : Proteger un CheckBox

Bonjour M12

Je te remercie et te souhaite une bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mai 2016

• #5

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+

 

Pièces jointes

• Checkbox(1).xlsm

  28.8 KB · Affichages: 36

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 20 Mai 2016

• #6

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?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2016

• #7

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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 20 Mai 2016

• #8

Re : Proteger un CheckBox

Re

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2016

• #9

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 :

Code:

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.

 

Pièces jointes

• Checkbox(2).xlsm

  29.7 KB · Affichages: 31

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 20 Mai 2016

• #10

Re : Proteger un CheckBox

Bonjour Job

Je vous remercie et vous souhaite une bonne journée

 

Vote positif 0 Vote négatif