Command bouton "protégé" et "déprotégé"

[al1.2loin]

Bjr, sur ma feuille j'ai inséré le code en suivant les indications que j'ai glané sur le forum, mais je ne sais pas comment je dois faire mon bouton pour qu'il soit visible sur ma feuille.

 

[camarchepas]

Re : Command bouton "protégé" et "déprotégé"

Bonjour ,

Voir onglet Developpeur : puis insérer , en bas à droite des symboles une clé et un marteau clic dessus , et la choisis l'objet que tu veux insérer dans la liste déroulante .

 

[camarchepas]

Re : Command bouton "protégé" et "déprotégé"

Aprés la méthode voici le fichier :

 

[al1.2loin]

Re : Command bouton "protégé" et "déprotégé"

Re, oui merci de m'avoir fait le bouton pour protégé et déprotégé, mais la feuille entière est protégé et je veux avoir accès aux 2 cellules que je mentionnais sur mon exemple.

 

[VIARD]

Re : Command bouton "protégé" et "déprotégé"

Bonjour camarchepas, al1.2loin, et le forum

Voici une autre solution sans bouton.

Jean-Paul

 

[VIARD]

Re : Command bouton "protégé" et "déprotégé"

Bonjour camarchepas, al1.2loin, et le forum

Désolé, j'ai modifié entre temps.
Voici le bon.

Jean-Paul

 

[al1.2loin]

Re : Command bouton "protégé" et "déprotégé"

Re,super ton truc, mais étant novice en la matière, dit moi comment tu fais pour protégé uniquement ce qui est encadré?

 

[VIARD]

Re : Command bouton "protégé" et "déprotégé"

Bonjour al1.2loin et à tous

Je me suis absenté.
tu trouvaras le code dans un module Standard noté "Protection".
j'ai volontairement placé 2 plages de cellules et une cellule seule.

Le reste, les doubles Click le code est dans la "Feuil1".

Salutation

Jean-Paul

 

[al1.2loin]

Re : Command bouton "protégé" et "déprotégé"

Re, ok j'ai trouve comment il fallait faire, mais je voudrais mettre un mot de passe pour déprotéger, pour éviter que d'autre puisse changer mes formules sur les autres feuilles que je me sert, et que je met à dispos à mon travail.

 

[VIARD]

Re : Command bouton "protégé" et "déprotégé"

Re al1.2loin et à tous

Désolé à part la protection je ne mets jamais de MDP.
Pour éviter que tu perdes du temps, Je passe la main, tu trouveras la solution auprès d'un autre forumeur.

JP A+

 

[al1.2loin]

Re : Command bouton "protégé" et "déprotégé"

Re,ok et merci à JP et camarchepas, ça ma rendu un grand service, je vais mettre un autre fil pour avoir une réponse.
A+
al1.2loin

 

[VIARD]

Re : Command bouton "protégé" et "déprotégé"

Re al1.2loin et à tous

Une solution provisoire.
Tu effaces "Déprotéger" de la cellule "F5", ainsi plus de problème.
Un double Click dans "F5" n'aura pas d'action.
Pour déprotéger il faudra réécrire sans faute dans la cellule "F5".

A+ JP

 

[camarchepas]

Re : Command bouton "protégé" et "déprotégé"

Bonsooir ,

Non pas d'autre fil , un peu de patience .

Voici

pour protéger
Sheets(SHT).Protect Password:="Le_tiens", DrawingObjects:=True, Contents:=True, Scenarios:=True

pour déprotéger

Sheets(SHT).unProtect Password:="Le_tiens"

voilà

 

[Staple1600]

Re : Command bouton "protégé" et "déprotégé"

Bonsoir à tous

al1.2loin
Pour informations

mais je voudrais mettre un mot de passe pour déprotéger, pour éviter que d'autre puisse changer mes formules

La protection est facilement contournable.
Et la solution pour la contourner est toute simple (avec une bête macro) .
Qui trainait déjà sur Internet quand Infonie était un FAI 😉, ( à l'époque G..gl. n'existait pas 😉)
Aujourd'hui avec G..gl. (ou sans), il suffit de deux à trois minutes (quatre les jours pairs) pour dénicher ce bout de code (ou ses variantes)

 

[al1.2loin]

Re : Command bouton "protégé" et "déprotégé"

Re, Bjr à tous le monde, j'ai repris l'exemple de Jean Paul et cela à fonctionné avec le fichier que je lui avait envoyé, mais j'ai essayé de le mettre sur mon fichier original mais cela ne marche pas, je crois que je vais en rester la, car je n'y comprend rien à toutes ces lignes de codes vba, et merci encore de vous être penché sur ma question.
Je vais fouiner un peu plus pour voir si je ne trouve pas une autre solution.
Bonne Soirée. A+