modif code vba

titooooo · 8 Novembre 2013

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 · 8 Novembre 2013

Re : modif code vba

Bonjour,

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

Code:

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 · 8 Novembre 2013

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 · 8 Novembre 2013

Re : modif code vba

Re,

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

titooooo · 8 Novembre 2013

Re : modif code vba

merci ca marche impec

modif code vba

titooooo

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

titooooo

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

titooooo

XLDnaute Occasionnel

Discussions similaires

modif code vba

titooooo

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

titooooo

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

titooooo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency