Gouper plan avec l'option protection feuille

Bonjour le Forum,

J'ai un pb lors de la restriction feuille je ne peux pas afficher les détails du plan,

Quand je créer un plan un p'tit plus s'affiche en haut par contre j'aimerai voir les détails des lignes caché quand j'ai ma feuille protégé.

Faut il un réglage dans les options de protection?

Merci

PJ : https://www.excel-pratique.com/~files/doc/pPgxoClasseur1.xls

cordialement Franck

Bonjour clyver et au forum ,

Une autre façon de masquer les colonnes (sans plan)

https://www.excel-pratique.com/~files/doc/Classeur1_2.xls

Amicalement

Claude.

Bonjour Claude,

Mon problème persiste car avec t'as macro cela fontionne pour la feuil1 mais moi j'ai 12 feuille avec plan.

Merci

Franck

re,

tu supprime la 1ère ligne du code

Sheets("Feuil1").Activate

la macro fonctionnera sur toutes les feuilles actives

Claude.

Claude,

Je n'arrive pas a utiliser le Ctrl+b sur mon fichier!

peux tu me dire comment tu accroches ce raccourcit?

Merci

re,

dans le menu Excel :

Outils/Macros/Macro (choisi la macro "masKer")

tu clique sur "options" et là tu as le fenêtre raccourci

Claude.

Merci pour ton aide tout fonctionne

re,

si les colonnes sont adjacentes

With Range("c:g")

sinon par ex :

With Range("c:c,e:g")

claude.

Salut Claude,

J'ai un pb avec ma protection de format cellule faut il ajouter ceci dans ton code?

car j'ai des cellule protégé dans mon classeur!

Merci

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

Sub masKer()

ActiveSheet.Unprotect Password:="essai"

With Range("c:g")

If Range("z1") = 1 Then

.EntireColumn.Hidden = True ' MASQUE C, D, E, F et G

Range("z1") = 3

Else

.EntireColumn.Hidden = False ' AFFICHE C, D, E, F et G

Range("z1") = 1

End If

ActiveSheet.Protect Password:="essai"

End With

End Sub

re ,

A mon avis , non , cette macro ne touche pas les cellules , ni les formats , ni le verrouillage.

elle déprotège , masque ou démasque des colonnes et reprotège la feuille. c'est tout.

Le format et le verrouillage des cellules ne sont pas affectés ! Et restent comme à l'origine de la protection.

- Ote la protection manuellement puis remets là avec les options que tu souhaite.

Amicalement

Claude.

Bonjour le forum,

Lorsque j'active (la macro) " masKer "

J'ai la croix qui part sur la ligne FOMAT DE CELLULES?

Donc j'ai plus accès au format cellule dans la zone dévérouillé.

Merci

https://www.excel-pratique.com/~files/doc/masque.xls

bonjour,

Je ne connais pas Excel 2007 , et je n'ai pas ces options.

essaye d'enregistrer et d'adapter (dans ce genre) :

  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="az"

avec tes options en +

PS: merci d'avoir viré ma signature !!!

Claude.

Bonjour Claude,

Premièrement j'ai pas supprimé t'as signature car tu n'as pas signé ton code j'ai simplement fais une copie coller sur mon fichier!

Voici le code de ton classeur (Classeur1_2.xls) j'ai rien modifié.

Sub masKer()
Sheets("Feuil1").Activate
        ActiveSheet.Unprotect Password:="dudu"

    With Range("c:d")
        If Range("z1") = 1 Then
                .EntireColumn.Hidden = True 'masque C et D
                    Range("z1") = 2
            Else
                .EntireColumn.Hidden = False 'AFFICHE C et D
                    Range("z1") = 1
        End If

        ActiveSheet.Protect Password:="dudu"
    End With
End Sub

Sinon avec ton code

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="az"

cela fonctionne pas ou je n'arrive pas a le copier au bonne endroit...

encore merci!

F.

re,

Je te disais + haut d'enregistrer une nouvelle macro. (protection feuille)

avec les options que tu souhaite.

- On verras pour en incorporer une partie dans mon code.

Je ne peux pas le faire avec office 2000

Claude.

re bonjour Claude,

voici le code trouvé avec la config que je souhaite.

Sub protection_feuille()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
    ActiveSheet.Unprotect
End Sub

cordialement Franck

Salut le forum

Dans ThisWorkbook, si j'ai bien compris en gardant le mode plan.

Private Sub Workbook_Open()
Dim Feuille
For Each Feuille In ActiveWorkbook.Sheets
With Feuille
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
Next Feuille
End Sub

Mytå

Bonjour Mytâ,

Oui ton code fontionne très bien par compte j'aurai bien aimé utiliser sur ce fichier le code de Dubois (Claude) macro masKer)

est il possible de modifier en rajoutant la protection voulu?

F.

Bonjour clyver ,Mytå,et au forum,

Non, puisque , avec le code de Mytå , le mode plan fonctionne avec la feuille protégée.

• Reprends ton fichier d'origine (avec le plan actif) , la macro "Masker" ne sert plus à rien, à supprimer.
• Tu mets le code de Mytå dans le ThisWorkbook (et non dans un module)

C'est ce que j'ai crus comprendre dans le code (non commenté, dommage !) , mais comme çà doit être dur à lire !!

Si tu fais çà, ton problème est résolu.

Amicalement

Claude.

RE Claude et Mytå

J'ai pris le code de Mytå par contre j'ai un mots de passe sur la protection feuille alors là je trouve un autre problème...

a l'ouverture du fichier il me demande le passe???

de plus je veux garder la config open cellulue dévérouillé + format cellule ce qui n'est plus la ça si je modif?

merci

Re le forum

Macro modifiée avec mot de passe

Private Sub Workbook_Open()
Dim Feuille
For Each Feuille In ActiveWorkbook.Sheets
With Feuille
.EnableOutlining = True
.Protect Password:="MotdePasse", userInterfaceOnly:=True
End With
Next Feuille
End Sub

Le MotdePasse est à adapter.

Mytå