Combobox to open "hidden"sheet

[Dedeke]

Beste,

Ik heb een file met X aantal werkbladen. Hiervan zouden er enkele "Hidden" moeten staan. Liefst nog beveiligd met paswoord.
Op mijn Werkblad "start" heb ik een ComboBox die reeds automatisch "alle" werkbladen toont.
Als hier een werkblad gekozen wordt opent het gekozen werkblad ook netjes zoals ik wil.
Echter de "Hidden" werkbladen geeft hij een foutmelding.

Vraag is: Is het ook mogelijk dat via de combobox ook een "hidden" werkblad kan gekozen, geopend worden.Al dan niet beveiligd met paswoord.
Als het al zou kunnen met een "hidden" ben ik al blij.
Als het ook kan met een "Hidden"en "protected" zou helemaal super zijn.
Voorbeeld bestand in bijlage.
Deze code heb ik momenteel in gebruik die dus werkt voor alle werkbladen(behalve als ze hidden staan)

Private Sub cboStart_Change()
If cboStart <> "Kies een naam" Then
Worksheets(cboStart.Value).Select
End If

cboStart.Value = "Kies een naam"
End Sub


Private Sub Worksheet_Activate()
Dim sht As Worksheet
Me.cboStart.Clear
For Each sht In ThisWorkbook.Worksheets
Me.cboStart.AddItem sht.Name

Next sht
End Sub
[code]

Al vast bedankt voor tijd en moeite

 

[VenA]

Onzichtbare bladen kan je niet selecteren. Dus eerst zichtbaar maken

If cboStart <> "Kies een naam" Then
  Sheets(cboStart.Text).Visible = True

 

[emields]

Waarschijnlijk bedoel je zoiets?

 

[VenA]

Werkt niet echt lekker @emields. Waarschijnlijk iets van split vergeten? Daarnaast lost het het probleem van een verborgen tabje selecteren niet op.

 

[Dedeke]

@Vena; @emield

Oplossing van Vena werkt. Reeds bedankt hiervoor.

Heb wel interesse aan de denkpiste van emields.
Heb bestandje geopend en kreeg toch ook een foutmelding en mijn combobox werkte helemaal niet meer.

Maar zoals gezegd: moest het nog eens extra werkende zijn met een protected sheet en dan idd een Msgbox om het psw in te geven zou super zijn.

Voorlopig hou ik het al maar op de werkende oplossing van Vena

 

[VenA]

Ik weet nooit wat iemand moet met verborgen/zichtbare tabjes, beveiliging en andere toestanden. Maar een combobox kan je wel wat eenvoudiger vullen en met juist gebuikt van VBA heb je de code maar 1 keer nodig.
De uitleg is te summier om het verder uit te werken.

 

[emields]

Zo zal het beter zijn.

 

[mvdvlist]

Of op deze manier:

 

[snb]

@Emiel

suggestie:

Private Sub Workbook_Open()
  For Each it In ThisWorkbook.Sheets
    c00 = c00 & Chr(0) & it.Name
  Next
  Blad1.cboStart.List = Split(Mid(c00, 2), Chr(0))
End Sub

Maak van de combobox een dropdownlist (style=2), zodat de gebruiker alleen geldige zaken kan selecteren.
Vervolgens:

Private Sub cboStart_Change()
  With Sheets(cboStart.Value)
    .Visible = Not .Visible
     If .Visible Then Application.Goto .Cells(1)
  End With
End Sub

 

[Dedeke]

@Vena ; @Mvdvlist;@emields;@snb

Gezien jullie allemaal zoveel moeite doen zal ik ook proberen de nodige feedback te geven aan allen. Allemaal positief bedoeld, en zeker niet twijfelend aan jullie deskundigheid.

Het best werkende voor mijn noden is momenteel de oplossing aangereikt door Vena
@Vena:
Heb de file terug toegevoegd en daarin per sheet geprobeerd nog extra te verduidelijken.
Momenteel kreeg ik nog 1 foutje als ik een "protected" sheet uit de cbobx koos
Namelijk:zie kleine afbeelding. Voor zover ik het begin te begrijpen lijkt dit logisch vermits het om een protected sheet gaat.

@Mvdvlist

Heb ook jouw suggestie uitgeprobeerd. Bij het openen van de file bleef de CboBx leeg. Eerst een blad zichtbaar gemaakt en dan terug naar "Start"(lijkt wel monopoly) en de CboBx werd netjes ingevuld.
Als ik een blad toevoeg komt deze ook netjes in de CboBx maar blijft zichtbaar. De andere verdwijnen telkens bij het selecteren van "start".
Heb niet getest of na afsluiten en opnieuw openen van de file dit bijgewerkt wordt.
Wat ik hier handig vindt is dat een "protected"sheet gewoon opengaat zonder melding. De gebruiker kan nergens aan en heeft toch onmiddellijk toegang tot het raadplegen van zijn sheet.

@emields

Eigenlijk idem als bij Mvdlist , en alle bladen blijven zichtbaar. Dit was misschien in de initiële vraagstelling niet zo duidelijk dat deze allemaal "hidden" mogen.

@snb

Bedank ik voor het meedenken met de andere, zelf heb ik veeeeel te weinig kennis om de door jou voorgestelde suggesties of aanpassingen toe te passen.


Dus momenteel baseer ik me nog even verder op de bijgevoegde file die door Vena werd aangepast.

 

[mvdvlist]

Hallo,
ik weet niet of je er op hebt gelet, maar ik heb in de Deactivate Event van ieder werkblad behalve start een code gezet, die het blad automatisch weer onzichtbaar maakt bij het selecteren van een ander blad.

Dit kun je natuurlijk bij ieder blad aanpassen. Dan kun je sommige bladen zichtbaar houden, als je dat wilt..

 

[Dedeke]

@Mvdvlist

Bedankt voor de opmerking.

Ben hier momenteel met alle suggesties en bijgeleverde files aan het experimenteren.
Genoeg copy's gemaakt
Heb intussen dat deeltje vba wat jij net vermeld ook ontdekt en intussen ook begrepen wat dit doet.
Ik poog hieruit ook te leren.
Heb zelfs intussen hier en daar al geëxperimenteerd met een combinatie van verschillende oplossingen, met resultaten die dat deden wat ik hoopte en resultaten waar ik niet kan ontdekken waarom het fout loopt.

Dus hier en daar geraak ik er wijs uit wat een code doet als je ook ziet wat er gebeurd.
Om van nul te beginnen heb ik het gevoel dat ik toch al aan de voet van de "Mount Everest" sta.
Nu nog beklimmen.

Ik ben in ieder geval al een heel eind verder gekomen met mijn file, waarvoor dank aan de specialisten.

 

[mvdvlist]

Zelfs ik begin het al een heel klein beetje door te krijgen. En ik ben hier pas aan begonnen toen ik al 64 was. Dus dan moet het jou zeker lukken...Succes.

 

[emields]

'k Had inderdaad een en ander verkeerd begrepen. Maar wil toch nog men bijdrage leveren.

 

[Dedeke]

@emields

Je bijdrage wordt geapprecieerd .

Gaat helemaal de gewenste richting uit, had nog wel een vraagje.
Waar stel ik nu het wachtwoord in voor de tabbladen die "verry hidden" staan.
Als ik momenteel bvb bij het blad Data1 de MsgBox krijg en laat deze leeg gebeurd er niets."Ontgrendelen" ook niets. Kan niet terugvinden waar het wachtwoord is ingezet.
Kan hier eventueel ook een melding komen bij foutief wachtwoord.

Kan de combobox ook ingesteld worden dat de gebruiker hier kan beginnen typen en zo de gewenste naam tevoorschijn komt.

VB: Naam begint met V als hij de "V" zou intypen dat reeds alle namen die beginnen met een "V" al verschijnen in de dropdown.

Als dit nog lukt ben ik er helemaal, tenzij ik nog meer gekkigheden kan vinden

Nogmaals bedankt en aan allen hier reeds een voorspoedig 2021,

Oehaaaa: Helpmij...... Net gezien dat je het wachtwoord mee vermeld hebt

 

[emields]

als het aan mij lag zou ik het zo doen. probeer het maar eens met fictieve namen.

 

[Dedeke]

@emields

Om het nieuwe jaar te starten, nog maar wat verder gepuzzeld.
Je vorige bijdrage is ook interessant, alleen zit ik daar dan toch met een lijst van een 50 tal namen onder elkaar.
Valt dit niet op te lossen door de namen verborgen te zetten en dan vanuit een keuzelijst te kunnen starten.

Ik voorzie in mijn file sowieso een blad "Data" om zowat alles op te pompen wat nodig zou zijn, en dat dit dan niet zichtbaar is voor de gebruiker.
Dus ook de namenlijst zou daar staan.
Dus eigenlijk op het "start" blad een keuzelijst / combolijst waar de gebruiker zijn naam kan beginnen typen, uitkiezen en zo op zijn desbetreffend blad terecht komt.

Ik ga zelf ook nog wel wat puzzelen...

Alvast weer maar bedankt

 

[emields]

ik vrees dat wat u wil niet mogelijk is van op verborgen en beveiligde bladen.
eventueel kan u het wel zo doen om de lijst korter te maken

 

[Dedeke]

@emields

Hoi , hoi

Al zoveel input gehad, dus ook tijd om keuzes te maken waar ik eigenlijk mee verder wil.
In bijlage dat wat ik al in elkaar gepuzzeld heb en waar ik dus nog 2 wijzigingen in zou willen krijgen indien mogelijk. Dit zonder dus heel de functionaliteit te moeten wijzigen.

Start:
De combobox vult zijn gegevens momenteel uit de bestaande tabbladen.Deze kan ik dus kiezen uit de Fall Down.
Deze Combobox zou ik zodanig willen wijzigen dat :
1.hij zijn gegevens haalt uit het tabblad Data waar alle namen staan die nodig zijn.
2. Dat ik in het huidige veld kan beginnen typen en er automatisch gezocht/aangevuld word.(Op blad data staat er zo eentje deels uitgewerkt)
3.Dat deze uiteindelijke waarde dan het passende tabblad opent

Een 2e wijziging zou zijn:

Ik heb momenteel de 02 buttons "wijzigen Ritten" en "Change Data" die beide uitkomen bij een Form om paswoord in te geven. Dit werkt voor mij naar behoren.
Na ingeven paswoord komt het desbetreffend blad wel zichtbaar te staan maar nog niet geactiveerd.

Dus ik wil het zover krijgen dat na ingeven paswoord het blad zichtbaar en actief is, dus dat ik ook effectief direct in het opgevraagde blad sta. Welke cel dat zou zijn maakt niet.

Paswoorden zijn momenteel ingesteld op mtc13

 

[emields]

2. Dat ik in het huidige veld kan beginnen typen en er automatisch gezocht/aangevuld word.(Op blad data staat er zo eentje deels uitgewerkt)
Al eens geprobeerd als uw blad beveiligd en verborgen is?

Probeer het zo eens