Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel lancement de plusieurs macros au démarrage

lancement de plusieurs macros au démarrage

4 réponses
Avatar
Danièle
Bonjour à tous,



Après bien des hésitations, je me décide à vous soumettre mon petit
problème. Vous remarquerez que je suis plus que novice en la matière (merci
Excelabo, le peu que je comprends, c'est là que je l'ai appris et vous
constaterez que la suite s'en inspire largement).



Voici donc le problème : dans un fichier, je souhaite d'une part forcer l'
utilisateur à activer les macros, d'autre part utiliser le plan tout en
protégeant les feuilles. Lorsque j'insère une seule des fonctions, ça
marche, mais quand je mets les deux, l'accès au plan ne fonctionne pas. Je
suppose qu'il y a une procédure à respecter pour insérer plusieurs macros
dans le Open de ThisWorbook, mais j'ignore laquelle.



Voici donc la copie de ce que j'ai fait :



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

Sheets(1).Visible = True



For i = Sheets.Count To 2 Step -1

Sheets(i).Visible = xlVeryHidden

Next i



End Sub



Private Sub Workbook_Open()

Application.ScreenUpdating = False

For Each sh In Sheets

sh.Visible = True

Next sh



Sheets(1).Visible = xlVeryHidden

PlanAccessible

End Sub



PlanAccessible étant le nom que j'ai donné à la formule copiée aussi et sans
scrupules sur Excelabo (encore merci !).



J'espère que vous voudrez bien m'éclairer



Cordialement



Danièle
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Danièle,

Peut être avec celle ci, à la place de PlanAccessible :
"==============================================================="
'Benoît Marchand, mpfe
' "Il est possible d'utiliser un filtre ou d'afficher/masquer un plan,
'si le filtre et le plan sont créés avant la protection de la feuille,
'protection qui sera faite par la macro suivante, qui permet également
'd'agir sur une feuille modifiée par macro sans déprotéger
'celle-ci (UserInterfaceOnly:=True)"

Sub Verrcls()
With ActiveSheet
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
.EnableOutlining = True
End With
End Sub
"=========================================================="
disponible ici :
http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/ProtegerMaisOKFiltreEtPlan.txt
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Danièle" a écrit dans le message de
news:
Bonjour à tous,



Après bien des hésitations, je me décide à vous soumettre mon petit
problème. Vous remarquerez que je suis plus que novice en la matière (merci
Excelabo, le peu que je comprends, c'est là que je l'ai appris et vous
constaterez que la suite s'en inspire largement).



Voici donc le problème : dans un fichier, je souhaite d'une part forcer l'
utilisateur à activer les macros, d'autre part utiliser le plan tout en
protégeant les feuilles. Lorsque j'insère une seule des fonctions, ça
marche, mais quand je mets les deux, l'accès au plan ne fonctionne pas. Je
suppose qu'il y a une procédure à respecter pour insérer plusieurs macros
dans le Open de ThisWorbook, mais j'ignore laquelle.



Voici donc la copie de ce que j'ai fait :



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

Sheets(1).Visible = True



For i = Sheets.Count To 2 Step -1

Sheets(i).Visible = xlVeryHidden

Next i



End Sub



Private Sub Workbook_Open()

Application.ScreenUpdating = False

For Each sh In Sheets

sh.Visible = True

Next sh



Sheets(1).Visible = xlVeryHidden

PlanAccessible

End Sub



PlanAccessible étant le nom que j'ai donné à la formule copiée aussi et sans
scrupules sur Excelabo (encore merci !).



J'espère que vous voudrez bien m'éclairer



Cordialement



Danièle




Avatar
Danièle
Merci beaucoup, je vais l'essayer et je ne manquerai pas de signaler le
résultat

Danièle
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Danièle,

Peut être avec celle ci, à la place de PlanAccessible :
"==============================================================="
'Benoît Marchand, mpfe
' "Il est possible d'utiliser un filtre ou d'afficher/masquer un plan,
'si le filtre et le plan sont créés avant la protection de la feuille,
'protection qui sera faite par la macro suivante, qui permet également
'd'agir sur une feuille modifiée par macro sans déprotéger
'celle-ci (UserInterfaceOnly:=True)"

Sub Verrcls()
With ActiveSheet
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
.EnableOutlining = True
End With
End Sub
"=========================================================="
disponible ici :

http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/ProtegerMaisOKFiltreEtPlan.txt

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Danièle" a écrit dans le message de
news:
Bonjour à tous,



Après bien des hésitations, je me décide à vous soumettre mon petit
problème. Vous remarquerez que je suis plus que novice en la matière
(merci


Excelabo, le peu que je comprends, c'est là que je l'ai appris et vous
constaterez que la suite s'en inspire largement).



Voici donc le problème : dans un fichier, je souhaite d'une part forcer
l'


utilisateur à activer les macros, d'autre part utiliser le plan tout en
protégeant les feuilles. Lorsque j'insère une seule des fonctions, ça
marche, mais quand je mets les deux, l'accès au plan ne fonctionne pas.
Je


suppose qu'il y a une procédure à respecter pour insérer plusieurs
macros


dans le Open de ThisWorbook, mais j'ignore laquelle.



Voici donc la copie de ce que j'ai fait :



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

Sheets(1).Visible = True



For i = Sheets.Count To 2 Step -1

Sheets(i).Visible = xlVeryHidden

Next i



End Sub



Private Sub Workbook_Open()

Application.ScreenUpdating = False

For Each sh In Sheets

sh.Visible = True

Next sh



Sheets(1).Visible = xlVeryHidden

PlanAccessible

End Sub



PlanAccessible étant le nom que j'ai donné à la formule copiée aussi et
sans


scrupules sur Excelabo (encore merci !).



J'espère que vous voudrez bien m'éclairer



Cordialement



Danièle








Avatar
Danièle
Rebonjour,

voici donc les résultats obtenus après quelques jurons et bien des
cogitations.
Je n'avais toujours pas le résultat souhaité avec ta formule. J'ai supprimé
le PlanAccessible dans le Wordbook Open et je l'ai inséré dans le Active
Worksheet de chaque feuille où c'était nécessaire, et ça marche...

Encore merci quand même
--
Danièle ANSENNE
LEADER+
CER
084/220 267
0486/467 414
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Danièle,

Peut être avec celle ci, à la place de PlanAccessible :
"==============================================================="
'Benoît Marchand, mpfe
' "Il est possible d'utiliser un filtre ou d'afficher/masquer un plan,
'si le filtre et le plan sont créés avant la protection de la feuille,
'protection qui sera faite par la macro suivante, qui permet également
'd'agir sur une feuille modifiée par macro sans déprotéger
'celle-ci (UserInterfaceOnly:=True)"

Sub Verrcls()
With ActiveSheet
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
.EnableOutlining = True
End With
End Sub
"=========================================================="
disponible ici :

http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/ProtegerMaisOKFiltreEtPlan.txt

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Danièle" a écrit dans le message de
news:
Bonjour à tous,



Après bien des hésitations, je me décide à vous soumettre mon petit
problème. Vous remarquerez que je suis plus que novice en la matière
(merci


Excelabo, le peu que je comprends, c'est là que je l'ai appris et vous
constaterez que la suite s'en inspire largement).



Voici donc le problème : dans un fichier, je souhaite d'une part forcer
l'


utilisateur à activer les macros, d'autre part utiliser le plan tout en
protégeant les feuilles. Lorsque j'insère une seule des fonctions, ça
marche, mais quand je mets les deux, l'accès au plan ne fonctionne pas.
Je


suppose qu'il y a une procédure à respecter pour insérer plusieurs
macros


dans le Open de ThisWorbook, mais j'ignore laquelle.



Voici donc la copie de ce que j'ai fait :



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

Sheets(1).Visible = True



For i = Sheets.Count To 2 Step -1

Sheets(i).Visible = xlVeryHidden

Next i



End Sub



Private Sub Workbook_Open()

Application.ScreenUpdating = False

For Each sh In Sheets

sh.Visible = True

Next sh



Sheets(1).Visible = xlVeryHidden

PlanAccessible

End Sub



PlanAccessible étant le nom que j'ai donné à la formule copiée aussi et
sans


scrupules sur Excelabo (encore merci !).



J'espère que vous voudrez bien m'éclairer



Cordialement



Danièle








Avatar
Philippe.R
Bien content que ça fonctionne Danièle !
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002