checkbox mot de passe

[Gix]

Bonsoir à tous,
Est-ce possible de demander à l'utilisateur un mot de passe pour pouvoir décocher checkbox se trouvant sur une feuille?

Vous remerciant par avance de votre aide.

 

[Creepy]

Hello,

Oui c'est possible, met un exemple en PJ pour qu'on puisse adapter la réponse à ton fichier.

++

Creepy

 

[Gix]

salut à tous, salut creepy

merci pour ta réponse je t'envoie un exemple [file name=CheckBox.zip size=4437]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CheckBox.zip[/file]

 

[Gix]

Salut à tous,
D'après Creepy il existe une solution à ma question.
Pourrait-on me venir en aide SVP.
Merci à tous.

 

[Gix]

Salut à tous,
Il se peut que je sois saoulant, je sais qu'il faut être patient pour ce genre de chose .
Pourrait-on me venir en aide ça fait deux jours que je rame!!SVP.

Vous remerciant. :sick:

 

[Gix]

Personne ?

 

[Creepy]

Hello,

Voila un exemple de ma composition je ne suis pas parti de ton fichier !

Je pense que tu n'auras pas trop de mal à adapter c'st tout simple.

Attention il n'y a aucune securité !! Pas de protection des macro, pas de protection de feuille, etc...

Si tu fait ALT+F11 tu te balades dans le code et tu verras le pass !!

C'est juste pour te montrer le principe

++

Creepy

[file name=CheckBox_20050607225739.zip size=4380]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CheckBox_20050607225739.zip[/file]

 

[Creepy]

RE all,

Avec le bon fichier ce serait mieux !!!

Regarde en PJ

++

Creepy

[file name=Checkbox_20050607231809.zip size=11239]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Checkbox_20050607231809.zip[/file]

 

[myDearFriend!]

Bonsoir Gix, Creepy,

Ci-joint le fichier original et une autre façon de faire...

Le code utilisé est le suivant :

Sub CtrlMdP()
Dim V As Range
      Set V = Sheets('Rv').Range('B37')
      V = Not V
      If Application.InputBox(Prompt:='Mot de passe pour modifier la sélection :', _
                                                      Title:='Mot de Passe', Type:=2) = 'gix' Then
            V = Not V
      End If
End Sub

Cordialement, [file name=CheckBox_20050607234710.zip size=7742]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CheckBox_20050607234710.zip[/file]

 

[Gix]

Bonsoir le forum, Creepy, Didier,

Veuillez excuser mon retard car je suis absent la journée, je n'ai que mes soirées pour mon cite préféré.
Creepy, je te remercie d'avoir eu du temps à m'accorder, ton fichier m'a permis de comprendre le principe.
Didier, je te remercie de m'avoir fait parvenir la deuxième méthode qui me convient à la lettre.
Merci à vous deux.

Gix

PS: Il est vrai que sur ce cite chaque problème à une solution grâce à des personnes compétentes et géniales.