Hide_UnHIde vba code

shalhevet · 14 aug 2013

Hallo,

In mijn urenregistratie bestand maak ik gebruik van de Hide_UnHIde code.

Voorbeeld indeling:

Index, Augustus, week32, week33, week34, week35, September, week36, week37....

Mijn code werkt prima maar is best lang, er zal ongetwijfeld een manier zijn om deze korter te schrijven:

Code:

Public AllShts

Sub Hide_UnHIde_Wk01()

        AllShts = "Week01"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk02()

        AllShts = "Week02"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk03()

        AllShts = "Week03"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk04()

        AllShts = "Week04"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk05()

        AllShts = "Week05"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk06()

        AllShts = "Week06"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk07()

        AllShts = "Week07"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk08()

        AllShts = "Week08"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk09()

        AllShts = "Week09"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk10()

        AllShts = "Week10"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk11()

        AllShts = "Week11"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk12()

        AllShts = "Week12"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk13()

        AllShts = "Week13"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk14()

        AllShts = "Week14"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk15()

        AllShts = "Week15"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk16()

        AllShts = "Week16"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk17()

        AllShts = "Week17"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk18()

        AllShts = "Week18"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk19()

        AllShts = "Week19"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk20()

        AllShts = "Week20"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk21()

        AllShts = "Week21"
        
        Hide_UnHIde
    
End Sub
Sub Hide_UnHIde_Wk22()

        AllShts = "Week22"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Wk23()

        AllShts = "Week23"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk24()

        AllShts = "Week24"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Wk25()

        AllShts = "Week25"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk26()

        AllShts = "Week26"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk27()

        AllShts = "Week27"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk28()

        AllShts = "Week28"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk29()

        AllShts = "Week29"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk30()

        AllShts = "Week30"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk31()

        AllShts = "Week31"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk32()

        AllShts = "Week32"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk33()

        AllShts = "Week33"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk34()

        AllShts = "Week34"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk35()

        AllShts = "Week35"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk36()

        AllShts = "Week36"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk37()

        AllShts = "Week37"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk38()

        AllShts = "Week38"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk39()

        AllShts = "Week39"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk40()

        AllShts = "Week40"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk41()

        AllShts = "Week41"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk42()

        AllShts = "Week42"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk43()

        AllShts = "Week43"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk44()

        AllShts = "Week44"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk45()

        AllShts = "Week45"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk46()

        AllShts = "Week46"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk47()

        AllShts = "Week47"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk48()

        AllShts = "Week48"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk49()

        AllShts = "Week49"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk50()

        AllShts = "Week50"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk51()

        AllShts = "Week52"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk52()

        AllShts = "Week52"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Wk53()

        AllShts = "Week53"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Januari()

        AllShts = "Januari"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Februari()

        AllShts = "Februari"
        
        Hide_UnHIde
    
End Sub

Sub Hide_UnHIde_Maart()

        AllShts = "Maart"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_April()

        AllShts = "April"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Mei()

        AllShts = "Mei"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Juni()

        AllShts = "Juni"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Juli()

        AllShts = "Juli"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Augustus()

        AllShts = "Augustus"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_September()

        AllShts = "September"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_Oktober()

        AllShts = "Oktober"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_November()

        AllShts = "November"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde_December()

        AllShts = "December"
        
        Hide_UnHIde
    
End Sub


Sub Hide_UnHIde()

Application.ScreenUpdating = False

    Dim wb As Workbook

        Set wb = ActiveWorkbook

        wb.Sheets(AllShts).Visible = Not wb.Sheets(AllShts).Visible
        
Application.ScreenUpdating = True
    
End Sub

Bovendien springt het niet naar de betreffende tabblad. De code maakt de tabblad Augustus zichtbaar maar gaat niet direct heen. Hoe kan ik het aanpassen dat hij dat wel doet?

Zojuist geprobeerd met een code die ik van HSV hier op het forum had gekregen voor een andere bestand maar dat lukte mij niet. De code van HSV voor de andere bestand is:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
 If Not Intersect(Target, Range("B13, B15, B17, B19, B21, B23, B25, B27, G29, G13, G15, G17, G19, G21, G23, G25, G27, G29, L13, L15, L17, L19, L21, L23, L25, L27")) Is Nothing Then
   Sheets(.Value).Visible = Not Sheets(.Value).Visible
     On Error Resume Next
   Application.Goto Sheets(.Value).Range("A1")
  End If
 End With
 Cancel = True
End Sub

Het verschil tussen de twee bestanden is dat bij de ene gebruik ik een dubbel klik in de cel zelf en bij de andere (waar het nu om gaat) wil ik gebruik maken van command button. ik krijg met de code van HSV geen macro te zien en kan het ook niet toewijzen aan de button.

shalhevet · 15 aug 2013

Crash, het was niet zo bedoeld zoals het over kwam. "hey" is gewoon een groet in mijn ogen. Ik doe het ook vaak met hey hoi.... nooit gedacht dat het anders kan overkomen behalve als vriendelijk. Mijn excuus hiervoor.

Peter B · 15 aug 2013

Dat je de macro van HSL niet ziet (en dus ook niet kunt koppelen) komt doordat dit een "private" sub is. Als je het woord "Private" weghaald zul je hem gewoon kunnen zien.

Ik begrijp verder niet helemaal wat de bedoeling is, maar met de volgende code kun je alle tabbladen verbergen/ zichtbaar maken (afhankelijk van de status) en eventueel bladen overslaan (in het voorbeeld "Blad1"). Mogelijk kun je hier iets mee?

Code:

Sub HideUnhideLoop()

    Dim Aantal As Integer
    Dim I As Integer

    Aantal = ActiveWorkbook.Worksheets.Count

    For I = 1 To Aantal
        If ActiveWorkbook.Sheets(I).Name <> "Blad1" Then
            ActiveWorkbook.Sheets(I).Visible = Not ActiveWorkbook.Sheets(I).Visible
        End If
    Next I

End Sub

shalhevet · 15 aug 2013

Bedankt voor je reactie.

Ik heb gisteren ook al geprobeerd om de "private sub" te veranderen naar "sub" maar dan nog zie ik deze niet in de macro overzicht en kan ik het niet toepassen aan een command button.

De bedoeling is: ik heb buttons gemaakt voor alle weken en maanden. Door op de button te klikken wil ik "springen" naar de juiste tabblad. Als ik nogmaals op de button klik moet de zichtbaar tabblad weer verborgen worden.

Als bijlage voeg ik twee bestanden:

Urenregistratie Eigen code - dit is de hide_unhide code die ik gebruik. Met deze code wordt de sheet (bijv. week32) wel zichtbaar gemaakt maar wordt ik niet direct naar deze tabblad gebracht. Ik blijf dan in de index pagina. Maar dat is juist wat ik wil, zodra ik op de button week32 in de index pagina klik wil ik dat deze tabblad zichtbaar wordt en wil ik direct naar de sheet gaan.

Met deze code zie ik in de macro overzicht alle opdrachten en kan ik dus de juiste opdracht aan de juiste button toewijzen.

Als tweede bijlage doe ik dezelfde bestand maar dan met de code van HSV.

Met de code van HSV werkt het ook, maar dan moet ik op de cel (dus geen button) dubbel klikken.

Maar dat is dus niet wat ik wil. Ik zou graag met de buttons willen werken in dit bestand.

Tot slot wil ik mijn excuus bieden als het niet altijd even duidelijk is. Nederlands is niet mijn moeder taal en hoewel ik het best aardig spreek (ook al zeg ik het over mezelf) vind ik het nog best moeilijk om mijn bedoelingen op de juiste manier op papier te zetten. Ik hoop dat jullie dat kunnen begrijpen.

in ieder geval alvast bedankt tot zover voor alle moeite

Bekijk bijlage Urenregistratie Code HSV.xlsm

Bekijk bijlage Urenregistratie Eigen code.xlsm

Peter B · 16 aug 2013

shalhevet zei:
Ik heb gisteren ook al geprobeerd om de "private sub" te veranderen naar "sub" maar dan nog zie ik deze niet in de macro overzicht en kan ik het niet toepassen aan een command button.

Ah. Sorry. Ik zie nu eigenlijk pas dat het een event is. De dubbelklik. Dus die kun je inderdaad niet direct aanroepen. Wat wel kan (denk ik) is de volledige kopregel vervangen voor:

Code:

Sub HideUnhide2(Cancel As Boolean)

shalhevet zei:
Tot slot wil ik mijn excuus bieden als het niet altijd even duidelijk is. Nederlands is niet mijn moeder taal en hoewel ik het best aardig spreek (ook al zeg ik het over mezelf) vind ik het nog best moeilijk om mijn bedoelingen op de juiste manier op papier te zetten. Ik hoop dat jullie dat kunnen begrijpen.

Het was mij niet opgevallen. Dus daar ligt het niet aan. Maar eigenlijk zegt op dit forum een voorbeeld meer dan 1000 woorden ...

Peter B · 16 aug 2013

OK. Ik heb de sheet "Eigen code" bekeken. Nu is natuurlijk mijn vraag wat je wil.

Wil je dat standaard alle sheets (behalve Index) zijn verborgen, en dat bij het klikken op de bijbehorende button de bijbehorende sheet wordt geopend en naar die sheet wordt toegesprongen?
Of wil je dat Index + alle eerder zichtbaar gemaakte sheets getoond worden en dat bij het klikken op de bijbehorende button hetzij de al zichtbare sheet wordt verborgen (en je op Index blijft), hetzij de bijbehorende verborgen sheet wordt getoond en dat je daar naar toespringt.

Als ik uitga van het eerste dan kom ik op de volgende stukjes code:

Op Index:

Code:

Sub Hide_UnHIde_Wk32()
    Unhide_n_Jump ("Week32")
End Sub

Sub Hide_UnHIde_Wk36()
    Unhide_n_Jump ("Week36")
End Sub

Sub Hide_UnHIde_Augustus()
    Unhide_n_Jump ("Augustus")
End Sub
Sub Hide_UnHIde_September()
    Unhide_n_Jump ("September")
End Sub

En deze heb ik geplaatst onder Module1:

Code:

Sub Unhide_n_Jump(Selectie As String)
    ActiveWorkbook.Sheets(Selectie).Visible = Not ActiveWorkbook.Sheets(Selectie).Visible
    Worksheets(Selectie).Activate
End Sub

Peter B · 16 aug 2013

En de tweede variant. Hierbij kan de code onder Module1 worden vervangen door onderstaande code:

Code:

Sub Unhide_n_Jump(Selectie As String)
    ActiveWorkbook.Sheets(Selectie).Visible = Not ActiveWorkbook.Sheets(Selectie).Visible
    If Worksheets(Selectie).Visible = True Then
        Worksheets(Selectie).Activate
    End If
End Sub

shalhevet · 16 aug 2013

Het was mij niet opgevallen. Dus daar ligt het niet aan. Maar eigenlijk zegt op dit forum een voorbeeld meer dan 1000 woorden ...

Dat zal ik als een compliment nemen :d

De laatste code werkt prima maar moet een beetje getwikt worden:

Ik heb in totaal 4 bestanden (voor ieder kwartaal).

De voorbeeld die ik heb gestuurd is de derde kwartaal.

Nu wil ik vanuit de index van de derde kwartaal een link maken naar de vierde kwartaal (bijvoorbeeld naar week51).

Ik heb geprobeerd om:

Code:

Sub Hide_UnHIde_Wk51()
    Unhide_n_Jump ("Map1.xlsm!Week51")
End Sub

In de code te wijzigen maar krijg een foutmelding dat de macro kan niet worden uitgevoerd.

Hoe moet ik de code zodanig schrijven dat het wel gaat werken?

Ik wil dus in alle 4 bestanden dezelfde Index pagina hebben met een link naar alle weken in alle bestanden

Warme bakkertje · 16 aug 2013

Je hebt al die aparte macro's niet nodig. Geef elke knop in het naamvak de naam v/h werkblad waarnaar deze verwijst.
Dan heb je aan deze in Module1 genoeg.
Verbindt nu elke knop aan deze macro.

Code:

Sub Hide_UnHIde()

    Dim wb As Workbook
    Application.ScreenUpdating = False
    Set wb = ActiveWorkbook
    wSheet = Application.Caller
    wb.Sheets(wSheet).Visible = Not wb.Sheets(wSheet).Visible
    If wb.Sheets(wSheet).Visible Then Application.Goto wb.Sheets(wSheet).Range("A1")
    Application.ScreenUpdating = True
    
End Sub

shalhevet · 16 aug 2013

Rudi,

De code die je me gaf werkt niet.

Ik krijg in deze regel een foutmelding:

Code:

wb.Sheets(wSheet).Visible = Not wb.Sheets(wSheet).Visible

De melding zegt:

Het subscript valt buiten het bereik

Peter B · 16 aug 2013

Dat komt omdat de knoppen wel voorzien zijn van een tekst, maar "onder water" een naam hebben als "Knop 69" i.p.v. Augustus (de naam van het tab-blad).

De naam "onder water" kun je wijzigen door op de knop te gaan staan en met rechts te klikken. Dan wordt de knop geselecteerd, en kun je linksboven de naam wijzigen. Of dit ook op een andere manier kan is mij niet bekend.

shalhevet · 16 aug 2013

Bedankt Peter voor deze tip.

Ik heb de namen aangepast.

Nu week 32 (in dezelfde bestand als de Index) wordt wel verborgen maar bij het tweede keer klikken (om het weer zichtbaar te maken) krijg ik de foutmelding:

Methode Goto van object_Aplication is mislukt

Week 31 (die in een andere bestand opgeslagen is wordt helemaal niet geopend.

Voor deze krijg ik dezelfde foutmelding als eerder genoemd in mijn vorige post

Peter B · 16 aug 2013

Het tweede komt omdat gezocht wordt in de ActiveWorkbook. Tab Week31 bestaat daar niet, dus kan Excel hem niet (un)hiden ... Over goed Nederlands gesproken ...

Voor het eerste heb ik geen verklaring.

shalhevet · 16 aug 2013

hahaha, we maken hier ons eigen Nederlands taal... de HelpMij Nederlands

Maar stel dat ik dan jouw code gebruik (dus wel met al die macro's). Enig idee hoe kan ik dan de code aanpassen dat hij ook weet te verwijzen naar andere bestanden?

Warme bakkertje · 16 aug 2013

Vier aparte bestanden is zoeken naar problemen.
Het zichtbaar en onzichtbaar maken van werkbladen vormt toch geen enkel probleem in bijlage.

shalhevet · 16 aug 2013

Warme bakkertje

Dat klopt, het is ook zoeken naar problemen maar om de administratie van een hele jaar op 1 bestand op te slaan is zoeken naar nog meer problemen, hahaha.

Ik ben bang dat het Excel bestand ook veel te groot wordt als ik alles op 1 bestand doe.

Tevens kan ik op deze manier de administratie per kwartaal afsluiten en het bestand archiveren.

Is er geen mogelijkheid om toch in alle 4 bestanden de laten doorzoeken? ook al zou de code daardoor langer worden of moet ik het per week / maand / bestand invoeren?

Ik denk dat daarom had ik voor al die macro's gekozen, zo kon ik de opdracht per macro ingeven.

Is het mogelijk om de code zoals je deze mij gaf te veranderen? Zodat ik bijv. deze code 4x moet gebruiken en in ieder de path name verwijs naar de juiste bestand?

Over de tweede probleem, ik ben erachter. In mijn bestanden heb ik een logo in cel A1. Blijkbaar geeft dat problemen. Als ik in je code de "range" verander van cel a1 naar bijv. B13 dan werkt het wel prima.

------***********------

Is het trouwens ook mogelijk om in de code een regel toe te voegen dat bij het opslaan van het bestand alle tabbladen (behalve de index dan) te verbergen? Zodat bij het volgende keer als ik het bestand open is alleen de index pagina open?

shalhevet · 17 aug 2013

Ik heb zelf geprobeerd de code te veranderen. Ben tot zover gekomen:

Code:

Sub Hide_UnHIde[COLOR="#FF0000"]_openwb[/COLOR]()

    Dim wb As Workbook
    Application.ScreenUpdating = False
   [COLOR="#FF0000"]Workbooks.Open ThisWorkbook.Path & "\Urenregistratie 4e kwartaal 2013.xlsm"
   wbnaam = ActiveWorkbook.Name
           With Workbooks(wbnaam)[/COLOR]
                    wSheet = Application.Caller
    wb.Sheets(wSheet).Visible = Not wb.Sheets(wSheet).Visible
    If wb.Sheets(wSheet).Visible Then Application.Goto wb.Sheets(wSheet).Range("B19")
    Application.ScreenUpdating = True
    End With
End Sub

Nou wordt het bestand wel geopend maar ik krijg tegelijk ook een foutmelding:

Fout 91 tijdens uitvoering:

Objectvariabele of blokvariabele With is niet ingesteld

en de fout verwijst naar deze regel:

Code:

wb.Sheets(wSheet).Visible = Not wb.Sheets(wSheet).Visible

Peter B · 17 aug 2013

shalhevet zei:
Is er geen mogelijkheid om toch in alle 4 bestanden de laten doorzoeken? ook al zou de code daardoor langer worden of moet ik het per week / maand / bestand invoeren?

M.i. zou je dit kunnen doen door alle workbooks in een bepaalde map te doorzoeken op het bestaan van een bepaalde tabblad. Als het betreffende tabblad bestaat dan de zoekactie onderbreken en het benodigde blad te openen. Maar die code heb ik niet 123.

shalhevet zei:
Is het trouwens ook mogelijk om in de code een regel toe te voegen dat bij het opslaan van het bestand alle tabbladen (behalve de index dan) te verbergen? Zodat bij het volgende keer als ik het bestand open is alleen de index pagina open?

Je kunt gebruik maken van een event. Ik zou alleen een event gebruiken bij het openen van het workbook. Ik heb weleens begrepen dat een event bij het sluiten lastig kan zijn i.v.m. vragen m.b.t. opslaan bestand.

Bv. de volgende code in "ThisWorkbook"

Code:

Private Sub Workbook_Open()
    
    Dim Aantal As Integer
    Dim I As Integer

    Aantal = ActiveWorkbook.Worksheets.Count

    For I = 1 To Aantal
        If ActiveWorkbook.Sheets(I).Name <> "Index" Then
            ActiveWorkbook.Sheets(I).Visible = False
        End If
    Next I

End Sub

shalhevet · 18 aug 2013

Dank je wel Peter. De code om het bestand terug te zetten naar alleen de index pagina bij het openen werkt perfect :thumb:

Ik laat deze topic even open, misschien dat iemand anders met een oplossing kan komen over het openen van meerdere bestanden vanuit de index pagina.

in ieder geval bedankt iedereen die tot nu heeft geholpen!!

Peter B · 18 aug 2013

Ik kon het niet van mij afzetten en heb nog even zitten stoeien. Het zal zeker geen fool-proof oplossing zijn, en verdiend m.i. ook geen schoonheidsprijs, maar is i.i.g. een duwtje in de goede(?) richting.

Ik heb de sheet van Warme Bakkertje (post 15) gepakt en hier de volgende aanpassingen gedaan. Ik heb op de tab "Index" een tabel gemaakt die wordt doorzocht met de vlookup in de volgende code (= dus ook de code van Warm Bakkertje met een aantal aanpassingen:

Code:

Sub Hide_UnHIde()

    Dim s, v, f As String
    
    Application.ScreenUpdating = False
    wSheet = Application.Caller
    v = WorksheetFunction.VLookup(wSheet, Range("J1:K66"), 2, False)                     'Opzoeken kwartaal = Qn
    s = ThisWorkbook.Path & "\Urenregistratie " & v & " " & Cells(2, 12).Value & ".xlsm" 'Complete bestandsnaam incl. pad
    f = "Urenregistratie " & v & " " & Cells(2, 12).Value & ".xlsm"                      'Alleen de bestandsnaam
    Workbooks.Open Filename:=s
    Workbooks(f).Activate
    Workbooks(f).Sheets(wSheet).Visible = Not Workbooks(f).Sheets(wSheet).Visible
    If Workbooks(f).Sheets(wSheet).Visible Then Application.Goto Workbooks(f).Sheets(wSheet).Range("A1")
    Application.ScreenUpdating = True
    
End Sub

Zie ook de aangepaste sheet (gezipt, want te groot):
Bekijk bijlage Urenregistratie Eigen code - Peter B.zip

Hide_UnHIde vba code

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Meubilair

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Meubilair

Bijlagen

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Wij waarderen jouw privacy