Opstarten met 'groeps controle en actieve sheet

[Senso]

Twee sheets in Excel. Bedoeling is gegevens altijd bijwerken in sheet1 = LIQ.MIDD.

De gegevens worden in 'groep' overgenomen in sheet2 = SALDI+RENTE 31-12

Nu zou je bij het openen van het document automatisch een VBA moeten uitvoeren, dit ter controle maakt dat de juiste sheet (LIQ.MIDD.) actief is en de groep juist is ingesteld. LIQ.MIDD. en SALDI+RENTE 31-12 zijn de groep.

Opdracht VBA maak:
1. LIQ.MIDD. het actieve geopende werkblad in de groep
2. Zet LIQ.MIDD. en SALDI+RENTE 31-12 in groep

Kan wellicht ook in omgekeerde volgorde. Wie kan/wil dit maken?

Heeft niets met cellen en sheets blokkeren/beveiligen te maken, want zo staat het vaak op Google. Daar gaat het niet om.
Bekijk bijlage TESTBESTAND voor filter in groepen.xlsm

Filteren is niet aan de orde. In sheet2 worden kolommen verborgen d.m.v. VBA in dat werkblad.

 

[maartenvers]

Hi,

Use this code:

Private Sub Workbook_Open()


RemoveGroups
GroupTabs


End Sub


Private Sub RemoveGroups()
    ' Ungroup Sheets
    If Windows(ThisWorkbook.Name).SelectedSheets.Count > 1 Then
        Windows(ThisWorkbook.Name).SelectedSheets(1).Select
    End If
End Sub


Private Sub GroupTabs()
    Dim Tab_01
    Dim Tab_02
    
    Tab_01 = "LIQ.MIDD."
    Tab_02 = "SALDI+RENTE 31-12"
    For i = 1 To Sheets.Count
        If (Sheets(i).Name = Tab_01) Then
            Sheets(i).Select Replace:=False
            Sheets(i).Activate
        End If
        If (Sheets(i).Name = Tab_02) Then
            Sheets(i).Select Replace:=False
        End If
    Next i
    
End Sub

 

[Senso]

Vreemd, hij blijft een derde blad = WERKWIJZE ook in de groep te plaatsen bij opening en dat moet niet.
Bekijk bijlage TESTBESTAND groep vastzetten.xlsm

edit:
Dan zal het toch goed werken, maar komt het doordat op de tabbladen niet goed duidelijk wat wel en niet actief is. Even aankijken dus. Bedankt voor de hulp.:thumb: