Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Gouper plan avec l'option protection feuille

Le
clyver
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


http://cjoint.com/?jkiwV1XLbt
Lire les 11 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Vincnet.
Le #16771941
Salut,
Trouvé il y a longtemps ici même :

'-------- DEBUT -------------------------
Private Sub Workbook_SheetActivate(ByVal sh As Object)

On Error Resume Next

If ThisWorkbook.Worksheets(sh.Name).ProtectContents And _
Not sh.Name = "Disclaimer" Then
ThisWorkbook.Worksheets(sh.Name).Unprotect "MauxDePasse"
ThisWorkbook.Worksheets(sh.Name).EnableOutlining = True
ThisWorkbook.Worksheets(sh.Name).Protect _
password:="MauxDePasse", userinterfaceonly:=True
End If

End Sub
'----------- FIN ------------------------------

Bout de code à coller dans le module ThisWorkbook du fichier incriminé (en
prenant le soin de changer les maux de passes...)
A+

V.


"clyver" a écrit :

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


http://cjoint.com/?jkiwV1XLbt



Répondre en citant
Vincnet.
Le #16773241
Je ne suis qu'un flemmard pas capable de rendre un code lisible. Bref,
celui-ci est plus propre :
'-------- DEBUT -------------------------
Private Sub Workbook_SheetActivate(ByVal sh As Object)

On Error Resume Next

If sh.ProtectContents Then
sh.Unprotect "MauxDePasse"
sh.EnableOutlining = True
sh.Protect _
password:="MauxDePasse", userinterfaceonly:=True
End If

End Sub
'----------- FIN ------------------------------
--
A+

V.


"Vincnet." a écrit :

Salut,
Trouvé il y a longtemps ici même :

'-------- DEBUT -------------------------
Private Sub Workbook_SheetActivate(ByVal sh As Object)

On Error Resume Next

If ThisWorkbook.Worksheets(sh.Name).ProtectContents And _
Not sh.Name = "Disclaimer" Then
ThisWorkbook.Worksheets(sh.Name).Unprotect "MauxDePasse"
ThisWorkbook.Worksheets(sh.Name).EnableOutlining = True
ThisWorkbook.Worksheets(sh.Name).Protect _
password:="MauxDePasse", userinterfaceonly:=True
End If

End Sub
'----------- FIN ------------------------------

Bout de code à coller dans le module ThisWorkbook du fichier incriminé (en
prenant le soin de changer les maux de passes...)
A+

V.


"clyver" a écrit :

> 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
>
>
> http://cjoint.com/?jkiwV1XLbt
>


Répondre en citant
clyver
Le #16773181
On 10 sep, 11:50, Vincnet.
Je ne suis qu'un flemmard pas capable de rendre un code lisible. Bref,
celui-ci est plus propre :
'-------- DEBUT -------------------------
Private Sub Workbook_SheetActivate(ByVal sh As Object)

On Error Resume Next

If sh.ProtectContents Then
   sh.Unprotect "MauxDePasse"
   sh.EnableOutlining = True
   sh.Protect _
       password:="MauxDePasse", userinterfaceonly:=True
End If

End Sub
'----------- FIN ------------------------------
--
A+

V.

"Vincnet." a écrit :



> Salut,
> Trouvé il y a longtemps ici même :

> '-------- DEBUT -------------------------
> Private Sub Workbook_SheetActivate(ByVal sh As Object)

> On Error Resume Next

> If ThisWorkbook.Worksheets(sh.Name).ProtectContents And _
>     Not sh.Name = "Disclaimer" Then
>   ThisWorkbook.Worksheets(sh.Name).Unprotect "MauxDePasse"
>   ThisWorkbook.Worksheets(sh.Name).EnableOutlining = True
>   ThisWorkbook.Worksheets(sh.Name).Protect _
>      password:="MauxDePasse", userinterfaceonly:=True
> End If

> End Sub
> '----------- FIN ------------------------------

> Bout de code à coller dans le module ThisWorkbook du fichier incrimin é (en
> prenant le soin de changer les maux de passes...)
> A+

> V.

> "clyver" a écrit :

> > 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

> >http://cjoint.com/?jkiwV1XLbt- Masquer le texte des messages précé dents -

- Afficher le texte des messages précédents -



Salut Vincnet,

Il y a un pb avec ton code il ma macro "masKer" bug peux tu voir le
pb?

cordialement Franck
Répondre en citant
Vincnet.
Le #16773391
La macro plante quand elle essaie de déprotéger une feuille qui n'est pas
protégée.
Tu peux gérer ça comme ça, par exemple (au lieu de la première ligne
ActiveSheet.Unprotect Password:="az"), en utilisant :
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="az"
End If

Mais le bout de code que je t'ai passé est beaucoup plus simple et permet de
garder la croix de (dé-)groupage active sur une feuille protégée..... Il
suffit de le coller dans l'obet ThisWorkbook qui est deux lignes au-dessus de
ton Module1.

--
A+

V.


"clyver" a écrit :

On 10 sep, 11:50, Vincnet. > Je ne suis qu'un flemmard pas capable de rendre un code lisible. Bref,
> celui-ci est plus propre :
> '-------- DEBUT -------------------------
> Private Sub Workbook_SheetActivate(ByVal sh As Object)
>
> On Error Resume Next
>
> If sh.ProtectContents Then
> sh.Unprotect "MauxDePasse"
> sh.EnableOutlining = True
> sh.Protect _
> password:="MauxDePasse", userinterfaceonly:=True
> End If
>
> End Sub
> '----------- FIN ------------------------------
> --
> A+
>
> V.
>
> "Vincnet." a écrit :
>
>
>
> > Salut,
> > Trouvé il y a longtemps ici même :
>
> > '-------- DEBUT -------------------------
> > Private Sub Workbook_SheetActivate(ByVal sh As Object)
>
> > On Error Resume Next
>
> > If ThisWorkbook.Worksheets(sh.Name).ProtectContents And _
> > Not sh.Name = "Disclaimer" Then
> > ThisWorkbook.Worksheets(sh.Name).Unprotect "MauxDePasse"
> > ThisWorkbook.Worksheets(sh.Name).EnableOutlining = True
> > ThisWorkbook.Worksheets(sh.Name).Protect _
> > password:="MauxDePasse", userinterfaceonly:=True
> > End If
>
> > End Sub
> > '----------- FIN ------------------------------
>
> > Bout de code à coller dans le module ThisWorkbook du fichier incriminé (en
> > prenant le soin de changer les maux de passes...)
> > A+
>
> > V.
>
> > "clyver" a écrit :
>
> > > 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
>
> > >http://cjoint.com/?jkiwV1XLbt- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

Salut Vincnet,

Il y a un pb avec ton code il ma macro "masKer" bug peux tu voir le
pb?

cordialement Franck



Répondre en citant
clyver
Le #16773701
On 10 sep, 12:16, Vincnet.
La macro plante quand elle essaie de déprotéger une feuille qui n'est pas
protégée.
Tu peux gérer ça comme ça, par exemple (au lieu de la première li gne
ActiveSheet.Unprotect Password:="az"), en utilisant :
If ActiveSheet.ProtectContents Then
  ActiveSheet.Unprotect Password:="az"
End If

Mais le bout de code que je t'ai passé est beaucoup plus simple et perm et de
garder la croix de (dé-)groupage active sur une feuille protégée... .. Il
suffit de le coller dans l'obet ThisWorkbook qui est deux lignes au-dessu s de
ton Module1.

--
A+

V.

"clyver" a écrit :



> On 10 sep, 11:50, Vincnet. > > Je ne suis qu'un flemmard pas capable de rendre un code lisible. Bref ,
> > celui-ci est plus propre :
> > '-------- DEBUT -------------------------
> > Private Sub Workbook_SheetActivate(ByVal sh As Object)

> > On Error Resume Next

> > If sh.ProtectContents Then
> >    sh.Unprotect "MauxDePasse"
> >    sh.EnableOutlining = True
> >    sh.Protect _
> >        password:="MauxDePasse", userinterfaceonly:=True
> > End If

> > End Sub
> > '----------- FIN ------------------------------
> > --
> > A+

> > V.

> > "Vincnet." a écrit :

> > > Salut,
> > > Trouvé il y a longtemps ici même :

> > > '-------- DEBUT -------------------------
> > > Private Sub Workbook_SheetActivate(ByVal sh As Object)

> > > On Error Resume Next

> > > If ThisWorkbook.Worksheets(sh.Name).ProtectContents And _
> > >     Not sh.Name = "Disclaimer" Then
> > >   ThisWorkbook.Worksheets(sh.Name).Unprotect "MauxDePasse"
> > >   ThisWorkbook.Worksheets(sh.Name).EnableOutlining = True
> > >   ThisWorkbook.Worksheets(sh.Name).Protect _
> > >      password:="MauxDePasse", userinterfaceonly:=True
> > > End If

> > > End Sub
> > > '----------- FIN ------------------------------

> > > Bout de code à coller dans le module ThisWorkbook du fichier incr iminé (en
> > > prenant le soin de changer les maux de passes...)
> > > A+

> > > V.

> > > "clyver" a écrit :

> > > > 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érou illé.

> > > > Merci

> > > >http://cjoint.com/?jkiwV1XLbt-Masquer le texte des messages préc édents -

> > - Afficher le texte des messages précédents -

> Salut Vincnet,

> Il y a un pb avec ton code il ma macro "masKer" bug peux tu voir le
> pb?

> cordialement Franck- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



RE :

J'ai un pb sur les deux fichiers

http://cjoint.com/?jkmIQjPpMw

http://cjoint.com/?jkmJkgUMKN

peux tu me dire ou j'ai fais l'erreur?

F.
Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme