macros caher les feuills à la fermetur du classeur Résolu

Question

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!



Configuration: Windows / Chrome 68.0.3440.106

cs_Le Pivert · Accepted Answer

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à

Macros caher les feuills à la fermetur du classeur

1 réponse

Votre réponse

Discussions similaires