Macro Protection/ Deprotection Formules dans une feuille active

[michir]

Bonjour,
Je souhaite faire une macro bascule qui puisse Protéger et Déprotéger les formules de la feuille active
Merci
Michel

 

[JNP]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonsoir Michir 🙂,

If Sheets("Feuil1").ProtectContents Then Sheets("Feuil1").Unprotect Else Sheets("Feuil1").Protect

par exemple 😉...
Bonne soirée 😎

 

[phlaurent55]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonjour Michel, Jean-Noël, le forum

un exemple en pièce jointe

à+
Philippe

 

[michir]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonjour
Merci à vous deux
Laurent, je suis peut être nul mais dis moi comment affecter un "commandbutton" ou bien ton "spinbutton" à la macro
Merci
Michel

 

[michir]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Merci également à JNP, cela fonctionne
Peux tu simplement m'ajouter du code qui me renvoie en cellule F3 le message "Protégé" ou "Déprotégé" selon les cas
Merci à toi
Michel

 

[JNP]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Re 🙂,

If Sheets("Feuil1").ProtectContents Then
Sheets("Feuil1").Unprotect
Sheets("Feuil1").Range("F3") = "Déprotégé"
Else
Sheets("Feuil1").Range("F3") = "Protégé"
Sheets("Feuil1").Protect
End If

Bonne soirée 😎

 

[phlaurent55]

Re : Macro Protection/ Deprotection Formules dans une feuille active

re,

Bonjour
Merci à vous deux
Laurent, je suis peut être nul mais dis moi comment affecter un "commandbutton" ou bien ton "spinbutton" à la macro
Merci
Michel

clic-droit sur l'objet -> affecter une macro

à+
Philippe

 

[michir]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Merci JNP, Cela fonctionne parfaitement
Laurent, je sais bien cela, mais mon bouton est inaccessible comme si la feuille était protégée, je n'ai pas la main, or elle ne l'est pas
Bizarre...
Merci à toi néanmoins
Michel

 

[michir]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Re, JNP, tu vas peut être trouver que j'abuse, mais je souhaiterais que le bouton change de texte selon l'état de protection avec une commande du genre:
OLEFormat.Object.Caption = "Formules Protégées"
Mais, lorsque je veux l'ajouter dans le code, cela ne fonctionne pas
Merci à toi
Michel

 

[JNP]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Re 🙂,

Mais, lorsque je veux l'ajouter dans le code, cela ne fonctionne pas

Avec un petit fichier, ce serait plus pratique pour savoir le type de bouton que tu as mis 🙄...
Bonne soirée 😎

 

[DoubleZero]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonjour michir, phlaurent55, JNP, le Forum,

Une suggestion, en pièce jointe, grâce à des « morceaux » de codes offerts par JCGL 🙂 et JNP 🙂 (merci à vous…).

Les mentions "Protégé" et "Déprotégé" sont absentes de F3 mais présentes sur le bouton.

Une bise, non deux, à JNP 😀 !

Bonne journée.

 

[michir]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonjour DoubleZero,
Merci pour ton message
Comment fais tu pour lier la macro au ToggleButton ? Je fais un clic droit comme pour les autre boutons (la feuille est déprotégée), je m'attends à voir la boite "Affecter une macro" et rien... Par ailleurs je ne trouve pas la macro dans la liste des macros
Excuses ces questions basiques, mais je ne suis pas très à l'aise avec le VBA
Comment puis je joindre un fichier ?
Merci
Michel

 

[DoubleZero]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Re-bonjour,

Comme le disait JNP, hier, mieux vaudrait joindre un fichier, sans données confidentielles.

Pour joindre un fichier :

- « Gérer les pièces jointes » ;
- Clic dans « Parcourir » ;
- Clic sur le fichier concerné ;
- Clic sur « Envoyer » ;
- Clic sur « Fermer cette fenêtre ».

A bientôt.

 

[JCGL]

Re : Macro Protection/ Deprotection Formules dans une feuille active

Bonjour à tous,
Salut 00,

Le code est dans le module de la feuille



A+ à tous