Before close et Open

Le
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.
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
MichDenis
Le #5376341
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"
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.
Patrick BASTARD
Le #5376281
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" 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
***************************************


Publicité
Poster une réponse
Anonyme