Bij openen van excelbestand steeds automatisch 1 vaste sheet naar voorgrond brengen.

[bramdg]

Beste,

Heb me sinds kort op dit form ingeschreven omdat ik met een probleem zit in VBA.
Dit is wellicht een klein probleem, maar met mijn beperkte kennis van VBA zit ik toch vast.

Situatie is als volgt:

In Excel een opvolgingsfile voor Schrootkosten aangemaakt.
Via een module enkele knoppen toegewezen om gemakkelijk te navigeren in de file.
Vb.:

Sub BeginbladnaarTeam14herstel()

Sheets("Team 14 herstel").Visible = True
Sheets("Beginblad").Visible = False

End Sub

Aangezien dit een nogal grote file is, had ik het idee om een voorblad te maken die verwijst naar de verschillende delen van de file.
Dit voorblad, genaamd "Beginblad", zou ik dan ook graag bij het openen van het bestand steeds op de voorgrond willen brengen.

Momenteel heb ik dit op deze manier opgelost:

Private Sub Workbook_Open()
Sheets("Beginblad").Visible = True
    ActiveWindow.SelectedSheets.Visible = False
End Sub

Wanneer ik de file gebruik, en gelijk op welke pagina invul en afsluit, geeft deze code geen problemen.
Wanneer ik echter afsluit op deze "Beginblad" sheet, Heb ik wel problemen.
Aangezien ik het Sheet "Beginblad" oproep, en terzelfdertijd de ActiveWindow (Ook "Beginblad" op dit moment) wil afsluiten.

Kunnen jullie me hier verderhelpen, of toch eens verduidelijken hoe ik dit probleem kan oplossen.

mvg
De Gruytter Bram

 

[ReneDirks]

Zoiets misschien?

Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In ThisWorkbook.Sheets
            ws.Visible = (ws.Name = "Beginblad")
        Next
End Sub

 

[bramdg]

bedankt

Bedankt ReneDirks,

Door de code te vervangen werkt de file nu wel op een deftige manier.
Bij opstart wordt steeds de sheet "Beginblad" weergegeven.
Zelfst als ik laatst op de pagina "Beginblad" sta, geeft dit bij opnieuw opstarten geen problemen meer.

Bedankt voor de vlotte assistentie.

mvg
De Gruytter Bram

 

[ReneDirks]

No problem, succes ermee!