modif code vba

[titooooo]

Bonjour ,

j'ai une macro que je voudrais développer , elle sert a fermer toutes les pages sauf acceuil , je voudrais aussi ajouter ceci:

lorsque je ferme le classeur il ferme aussi toute les feuille et a sa réouverture on ne trouve visible que la page Accueil.

car la si je enregistre le travail sans exécuter la macro a sa réouverture les pages sont toute visible.

voici le code

Sub Rectangle1_QuandClic()
Sheets("Accueil").Activate
Dim i
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Accueil" Then Sheets(i).Visible = xlVeryHidden
Next


End Sub

 

[Pierrot93]

Re : modif code vba

Bonjour,

essaye ceci, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Byte
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Accueil" Then Sheets(i).Visible = xlVeryHidden
Next
Me.Save
End Sub

bonne journée
@+

 

[titooooo]

Re : modif code vba

bonjour ,

dans la feuille thiswordkbook j'ai déja un code qui vérouille les pages automatiquement

comment les fusionner ensemble stp

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="123456", UserInterfaceOnly:=True
End With
Next ws
End Sub

 

[Pierrot93]

Re : modif code vba

Re,

c'est pas le même événement, tu peux coller à la suite le dernier code proposé...

 

[titooooo]

Re : modif code vba

merci ca marche impec