Macros caher les feuills à la fermetur du classeur
Résolu
Aloubedi
Messages postés
47
Statut
Membre
-
Aloubedi Messages postés 47 Statut Membre -
Aloubedi Messages postés 47 Statut Membre -
Bonjour/bonsoir,
Je voudrais avoir une macros permettant de masquer automatiquement toutes les d'un classeur au moment de sa fermeture. en fait il y a une macros derrière un bouton que le dernier utilisateur doit clicker pour se déconnecter en masquant les feuilles sur lesquelles il travaillait.
Le probleme est qu'ils oublient souvent de le faire. conséquence, à la prochaine réouverture du classeur, ses feuilles sont visibles par tous.
S'il y a un autre procédé sans passer par les macros, je suis preneur.
Merci!
Je voudrais avoir une macros permettant de masquer automatiquement toutes les d'un classeur au moment de sa fermeture. en fait il y a une macros derrière un bouton que le dernier utilisateur doit clicker pour se déconnecter en masquant les feuilles sur lesquelles il travaillait.
Le probleme est qu'ils oublient souvent de le faire. conséquence, à la prochaine réouverture du classeur, ses feuilles sont visibles par tous.
S'il y a un autre procédé sans passer par les macros, je suis preneur.
Merci!
1 réponse
-
Bonjour,
voir ce site pour boucler sur toutes les feuilles
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
a mettre dans ThisWorkbook 2 manières de procéder au choix
Option Explicit ' a la fermeture Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub 'a l'ouverture Private Sub Workbook_Open() End Sub
'Déclare la variable objet Worksheet Dim Ws As Worksheet 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 'en compte. 'ThisWorkbook correspond à l'objet classeur contenant la macro For Each Ws In ThisWorkbook.Worksheets If Ws.Name = "Feuil1" Then 'il faut garder une feuille visible a adapter au nom de la feuille Else Sheets(Ws.Name).Visible = False = Sheets(Ws.Name).Visible = True End If Next Ws
Voilà
