Tabbladen bij starten standaard verborgen

[ronald1986]

Mensen,

Ik heb een vraag over het verbergen van tabbladen. Kan ik via een stukje vba ervoor zorgen dat bepaalde tabbladen bij het openen van een workbook altijd standaard verborgen zijn, ook als ze bij de laatste keer opslaan niet verborgen waren?

Mvg, Ronald

 

[spaarie]

Je maakt er wel een heel project van he...
Maar dat kan, maar wat wil je? Wil je bijvoorbeeld de 1e 3 sheets verbergen of de laatste 3, misschien wel bepaalde sheetnamen?

 

[JeanPaul28]

met de macro auto open

 

[ronald1986]

hihi, jah best wel een behoorlijk project!
maar het gaat om bepaalde sheetnamen die bekend zijn.

 

[JeanPaul28]

met een macro alle tab verbergen behalve een welke!!!!

 

[ronald1986]

met een macro alle tab verbergen behalve een welke!!!!

jah, zoiets had ik ook al bedacht, maar het gaat me er om hoe die macro er dan uit zou zien en waar ik die in moet zetten....

 

[Niels28]

achter thisworkbook

Private Sub Workbook_Open()
Sheets(Array("blad1", "blad2", "blad3")).Visible = False
End Sub

Niels

 

[spaarie]

@Niels: dit kan wel, als ze zichtbaar zijn...
Als er 1 verborgen is geeft ie foutmelding...

 

[spaarie]

Een optie

Private Sub Workbook_Open()
Set sh1 = Sheets("blad1")
Set sh2 = Sheets("blad2")
Set sh3 = Sheets("blad3")
With ActiveWorkbook
If sh1.Visible = True Or sh2.Visible = True Or sh3.Visible = True Then
sh1.Visible = False
sh2.Visible = False
sh3.Visible = False
End If
End With
End Sub

 

[Niels28]

zo dan...

Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets(Array("blad1", "blad2", "blad3"))
If sh.Visible = True Then sh.Visible = False
Next
End Sub

Niels

 

[spaarie]

That's the way, aha aha i like it, aha aha :thumb:

 

[ronald1986]

Ok, dit werkt, maar niet als het tabblad al verborgen is bij het openen. Dan krijg ik een foutmelding. Kan dit ook ongeacht of het tabblad zichtbaar of verborgen was bij het afsluiten van de vorige keer?

Sorry, had wat posts gemist.......

 

[ronald1986]

Helemaal top, werkt super, bedankt!!