grouper/degrouper des lignes avec protection activée

Le
Isa
Bonjour,

J'aimerais être capable de grouper et dégrouper des lignes même si ma page
est protégée

j'essais d'appliquer cette macro que j'ai trouvé dans un sujet similaire:

Private Sub Worksheet_Activate()
Me.EnableOutlining = True
Me.Protect Password:="", contents:=True, userInterfaceOnly:=True
End Sub
'Aucun mot de passe n'est inséré sur la feuille

J'ai inséré cette macro dans :
clic droit sur l'onglet puis visualiser

et j'ai aussi mit, dans le module de thisworbook, cette macro:

Private Sub Workbook_Open()
with sheets("Feuil1")
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
end with
End Sub

et ça ne fonctionne pas.. :-(

est-ce quelqu'un peut m'aider svp :-)
merci
Isa
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Isa
Le #16477141
Bonjour,
Finalement j'ai aucune idée pourquoi
j'ai fermé mon fichier et je l'ai "réouvert" et tout fonctionne... :-)))

"Isa" a écrit :

Bonjour,

J'aimerais être capable de grouper et dégrouper des lignes même si ma page
est protégée

j'essais d'appliquer cette macro que j'ai trouvé dans un sujet similaire:

Private Sub Worksheet_Activate()
Me.EnableOutlining = True
Me.Protect Password:="", contents:=True, userInterfaceOnly:=True
End Sub
'Aucun mot de passe n'est inséré sur la feuille

J'ai inséré cette macro dans :
clic droit sur l'onglet puis visualiser

et j'ai aussi mit, dans le module de thisworbook, cette macro:

Private Sub Workbook_Open()
with sheets("Feuil1")
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
end with
End Sub

et ça ne fonctionne pas.. :-(

est-ce quelqu'un peut m'aider svp :-)
merci
Isa


Publicité
Poster une réponse
Anonyme