Protéger toutes les feuilles d'un classeur

[Antares le Fou]

Bonjour à toutes et à tous,
Voilà, cela fait une bonne heure que je trouve plusieurs topics similaires à ma demande :
Protéger toutes les feuilles d'un classeur.
Oui, mais il y a un hic pour ce que je veux.
Je m'explique:
J'ai certaines cellules verrouillées et d'autres non. Le but étant de protéger exclusivement toutes les cellules contenant une formule. Libellule85 m'avait bien aidé sur un précédent topic avec une macro, mais cette dernière ne me permettait pas de copier-coller les informations d'une feuille vers un autre fichier excel (un fichier global où l'on réunit toutes les données de plusieurs sites).
Concrètement, lorsque je protège une feuille dont les cellules "formule" sont verrouillées, tout fonctionne bien. Et je peux en plus copier-coller les infos.
Ce que je souhaite donc, c'est pouvoir l'appliquer en une seule fois sur les 52 feuilles de mon classeur.
En espérant ne pas avoir été trop brouillon dans mes explications.
Merci d'avance pour vos réponses.

 

[néné06]

Re : Protéger toutes les feuilles d'un classeur

Bonjour Antares le Fou,

Te serait-il possible de nous faire parvenir un exemple en pièce-jointe, car si le VBA peut-être appliqué, cela est relativement simple si l'on saisi bien le problème.

Cordialement

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

Sitôt dit, sitôt fait !!!
Voilà le fichier concerné.
A noter que pour cet exemple toute les cellules sont verrouillées. (dans mes tableaux, seules les cellules contenant une formule sont verrouillées).

 

[Nairolf]

Re : Protéger toutes les feuilles d'un classeur

C'est un bout de code que j'ai mis en place à mon boulot pour protéger toutes les feuilles avec un même code en lançant la macro:

'boucle sur toutes les feuilles du classeur
For k = 1 To Worksheets.Count
    
    Worksheets(k).Select
'choix du mot de passe mdp
    Worksheets(k).Protect Password:="mdp", userinterfaceonly:=True

Next k

En espérant que ça te soit utile.

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

Merci, ce code je le copie bien dans le Thisworkbook ?

 

[JCGL]

Re : Protéger toutes les feuilles d'un classeur

Bonjour à tous,

Dans un module :

Sub Protection()
    Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
    
    With ActiveSheet
    .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    .EnableSelection = xlUnlockedCells
    End With
    
    Range("B1").Select
End Sub

A + à tous

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

Merci pour vos réponses, mais je ne connais pas bien la marche à suivre pour appliquer le code au bon endroit. Je sais faire alt+F11 mais ensuite, ça deviens un peu compliqué...

 

[JCGL]

Re : Protéger toutes les feuilles d'un classeur

Bonjour à tous,

Tu ouvres VBE par Alt F11
Tu trouves dans la liste à gauche ton classeur
Tu insères un module
Tu déposes le code

A + à tous

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

J'ai bien effectué ta procédure, mais rien n'y fait. Je peux effacer les formules !
Voilà qui est embêtant je vais devoir le faire manuellement.

 

[JCGL]

Re : Protéger toutes les feuilles d'un classeur

Bonjour à tous,

Peux-tu essayer ce classeur ?

A + à tous

Edition : A quel moment souhaites-tu protéger la feuille ?

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

C'est exactement ça, si ce n'est qu'ensuite, je souhaite pouvoir sélectionner un groupe de ligne afin d'en copier les données sur un autre fichier.

 

[JCGL]

Re : Protéger toutes les feuilles d'un classeur

Bonjour à tous,

Le beurre et l'argent du beurre...

Il te faudra enlever la protection pour faire ton copier / coller.

A + à tous

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

😉 En effet,
Merci encore pour votre aide à tous.
@ bientôt.

[RÉSOLU]

 

[Antares le Fou]

Re : Protéger toutes les feuilles d'un classeur

@ JCGL,
Est-il possible dans ta macro d'incorporer un mot de passe lorsque l'on veut ôter la protection de la feuille ?
Je sais, je t'en demande beaucoup, mais ça serai super de ta part.
Bien cordialement

 

[JCGL]

Re : Protéger toutes les feuilles d'un classeur

Bonjour à tous,

Il suffit de le rajouter en apostrophes derrière le .Protect et .UnProtect.

Option Explicit

 Sub Protection()
    Application.ScreenUpdating = 0

    With ActiveSheet
        .Unprotect "jcgl"
        Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
        .Protect "jcgl", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=False
        .EnableSelection = xlUnlockedCells
    End With


    Range("B1").Select
End Sub

Si tu rajoutes ceci dans le ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call Protection
End Sub

La protection se fera dès que tu changeras de feuille et quelque soit le nombre de feuilles

A + à tous