Probleme Macro verouillage de cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

subakuno

XLDnaute Nouveau
Bonjour à tous,

Je souhaite proteger mes cellules avec une formule via une macro.

J'ai donc récupéré la formule suivante sur le forum :

Code:
Sub protéger_cellules_formules()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
    With .SpecialCells(xlCellTypeConstants, 23)
        .Locked = False
        .FormulaHidden = False
    End With
End With
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub


Le problème c'est que j'ai fait des groupements et que je ne peux plus afficher ou cacher le détail en appuyant sur les boutons "+" et "-" puisque cela est également protogé.

Y a t il un moyen de proteger mes cellules avec formule mais de laisser libre l'affichage mode plan/mode détail?

Merci par avance
 
Re : Probleme Macro verouillage de cellule

Bonjour,

pour ce faire, la protéction doit être faite par le code en utilisant l'argument "userinterfaceonly", et modifier la propriété "EnableOutlining" de la feuille en question , exemple ci-dessous à utiliser dans le module "thisworkbook", se déclenche à l'ouverture du classeur

Code:
Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .EnableOutlining = True
    .Protect "toto", userinterfaceonly:=True
End With
End Sub

bon après midi
@+
 
Re : Probleme Macro verouillage de cellule

ok merci.

Je viens de tester, par contre je me rend compte que certaine de mes formules ne sont pas protégées.

Il s'agit exclusivement de mes formules relatives qui reprennent un montant d'une autre feuille.

Exemple : =feuil2!D10

Pour les autres formules pas de pb.

Est-ce normal ?

merci pour l'aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
664
Réponses
2
Affichages
1 K
Réponses
1
Affichages
1 K
Réponses
2
Affichages
652
Réponses
4
Affichages
905
Retour