Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Before close et Open

Before close et Open

2 réponses
Avatar
Patrick BASTARD
Bonsoir à tous.

Une petite dernière, avant la naissance de l' Enfant Divin :
Non, non, JPS, on ne parle pas de toi...
;-)

Les 2 sub ci-dessous sont sensées afficher "Accueil" et masquer les autres
feuilles à la fermeture, et l'inverse à l'ouverture.
Je souhaite que l'exécution de ces instructions ne soit pas visible à
l'écran, mais "Application.ScreenUpdating = False" ne fait pas son boulot.
Merci à qui pourra me dire pourquoi.

Et...
... d'excellentes fêtes de fin d'année à toutes et à tous.
JOYEUX NOËL...

***********************************************
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False
Sheets("Accueil").Visible = True
Sheets("Données").Visible = xlVeryHidden
Sheets("Impression").Visible = xlVeryHidden

End Sub

Private Sub Workbook_Open()

Application.EnableEvents = True
Application.ScreenUpdating = False
Sheets("Données").Visible = True
Sheets("Données").Protect UserInterfaceOnly:=True
Sheets("Impression").Visible = True
Sheets("Impression").Protect UserInterfaceOnly:=True
Sheets("Données").Activate
[A26].Select
Sheets("Accueil").Visible = xlVeryHidden
Application.ScreenUpdating = True

End Sub
***************************************

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Signaler un problème avec ce contenu

2 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
MichDenis
Si ce que tu recherches à faire est d'obliger les usagers à
activer les macros pour avoir accès aux feuilles....

Voici un fichier exemple :

http://cjoint.com/?mxwaEAGbSQ

Ce pourquoi tu vois la feuille accueil, il faut d'abord que le
fichier soit chargé avant que la macro "Open" s'exécute !




"Patrick BASTARD" a écrit dans le message de news:

Bonsoir à tous.

Une petite dernière, avant la naissance de l' Enfant Divin :
Non, non, JPS, on ne parle pas de toi...
;-)

Les 2 sub ci-dessous sont sensées afficher "Accueil" et masquer les autres
feuilles à la fermeture, et l'inverse à l'ouverture.
Je souhaite que l'exécution de ces instructions ne soit pas visible à
l'écran, mais "Application.ScreenUpdating = False" ne fait pas son boulot.
Merci à qui pourra me dire pourquoi.

Et...
... d'excellentes fêtes de fin d'année à toutes et à tous.
JOYEUX NOËL...

***********************************************
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False
Sheets("Accueil").Visible = True
Sheets("Données").Visible = xlVeryHidden
Sheets("Impression").Visible = xlVeryHidden

End Sub

Private Sub Workbook_Open()

Application.EnableEvents = True
Application.ScreenUpdating = False
Sheets("Données").Visible = True
Sheets("Données").Protect UserInterfaceOnly:=True
Sheets("Impression").Visible = True
Sheets("Impression").Protect UserInterfaceOnly:=True
Sheets("Données").Activate
[A26].Select
Sheets("Accueil").Visible = xlVeryHidden
Application.ScreenUpdating = True

End Sub
***************************************

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Avatar
Patrick BASTARD
Bonsoir, *Denis*


Si ce que tu recherches à faire est d'obliger les usagers à
activer les macros pour avoir accès aux feuilles....
Bingo...


Voici un fichier exemple :

http://cjoint.com/?mxwaEAGbSQ


Mille merci(s)

Ce pourquoi tu vois la feuille accueil, il faut d'abord que le
fichier soit chargé avant que la macro "Open" s'exécute !


CQFD.

PS : Le blanc manteau recouvre-t-il ton beau pays ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




"Patrick BASTARD" a écrit dans
le message de news:
Bonsoir à tous.

Une petite dernière, avant la naissance de l' Enfant Divin :
Non, non, JPS, on ne parle pas de toi...
;-)

Les 2 sub ci-dessous sont sensées afficher "Accueil" et masquer les
autres
feuilles à la fermeture, et l'inverse à l'ouverture.
Je souhaite que l'exécution de ces instructions ne soit pas visible à
l'écran, mais "Application.ScreenUpdating = False" ne fait pas son
boulot.
Merci à qui pourra me dire pourquoi.

Et...
... d'excellentes fêtes de fin d'année à toutes et à tous.
JOYEUX NOËL...

***********************************************
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False
Sheets("Accueil").Visible = True
Sheets("Données").Visible = xlVeryHidden
Sheets("Impression").Visible = xlVeryHidden

End Sub

Private Sub Workbook_Open()

Application.EnableEvents = True
Application.ScreenUpdating = False
Sheets("Données").Visible = True
Sheets("Données").Protect UserInterfaceOnly:=True
Sheets("Impression").Visible = True
Sheets("Impression").Protect UserInterfaceOnly:=True
Sheets("Données").Activate
[A26].Select
Sheets("Accueil").Visible = xlVeryHidden
Application.ScreenUpdating = True

End Sub
***************************************