Blad automatisch verbergen

[smapat19]

Allen,

Ik wil iets gebruiken, maar weet niet hoe ik het moet doen. Hopelijk dat jullie me kunnen helpen.

Ik heb in totaal 9 werkbladen. Bij het starten van mijn excel.doc moet er maar 1 werkblad open zijn. Op dat ene werkblad zijn er dan drie knoppen. Bij het indrukken van een knop moeten er drie werkbladen zichtbaar worden.

Probleem is nu, hoe krijg ik bij het openen van het excel doc slechts 1 werkblad zichtbaar?

Alvast dank.

Groeten,
Amit Sampat

 

[Ad Becude]

Amit Sampat,

Plak deze in Thisworkbook,
Je kunt natuurlijk ook kiezen voor Workbook Close()

Private Sub Workbook_Open()
 Application.ScreenUpdating = False
 Sheets(Array("Blad2", "Blad3", "Blad4", "Blad5", "Blad6", "Blad7", "Blad8", "Blad9")). _
        Select
    Sheets("Blad2").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Application.ScreenUpdating = True
End Sub

 

[Demeter]

Bekijk deze eens.

Groet,
Ferenc

Edit.
Kom ook geen minuut dichter bij Ad.

 

[Jarodxxx]

Visible Sheets

Hallo Arnit,

Het onderstaande testbestand maakt veel duidelijk
Ik heb 2 knoppen met elk een macro toegevoegd
En ik heb onder "ThisWorkbook" (Alt + F11 = VB editor om hier te komen)
wat code neegezet.

Succes

Jarod.

ps: er is vast een makkelijkere methode voor veel meer sheets dan 9.

 

[Ad Becude]

Ik dacht dat dit eigenlijk het probleem was,

Probleem is nu, hoe krijg ik bij het openen van het excel doc slechts 1 werkblad zichtbaar?

Maar bij mijn oplossing moeten wel alle werkbladen zichtbaar zijn.

 

[Jarodxxx]

Arnit,

Zo heb je niks en zo heb je van alles
S6 ermee!

Jarod

 

[smapat19]

Hallo allen,

Allereerst hartelijk dank voor jullie inzet.
Ik stuit nog op enkele problemen. Om alles duidelijk te maken, voeg ik het bestand toe, zodat het makkelijker begrepen kan worden.

Ik wil een aantal dingen bereiken :

* Bij het openen moet alleen blad "Versie" zichtbaar zijn.
* Als een ander het opslaat met bijvoorbeeld 3 bladen openen, moet degene alleen "Versie" kunnen zien als hij het weer opent.
Een ander mogelijkheid is, dat bij het opslaan alle bladen weer op onzichtbaar worden gezet(behalve Versie)

Ik hoop dat jullie me kunnen helpen.

Groeten,

Amit

 

[Jarodxxx]

Niet helemaal duidelijk

Arnit,

Zo bij openen krijg je nu altijd versie 1 als activesheet
Voor de rest is me niet helemaal duidelijk wat je wilt

Jarod

 

[smapat19]

Jarodxxx,

Ik heb jou model geopend, maar dan krijg je een foutmelding : Methode van Select van klasse Sheets is mislukt.

Dit komt volgens mij door het volgende:

Stel ik open het bestand, en klik op Particulier. Dan krijg ik 4 bladen, 1 met versie, en 3 van particulier.
Nu sla ik dit op.

De volgende keer dat ik het open, gaat Excel de bladen van Particulier en Zakelijk weg willen halen. Dit zal leiden tot bovenstaande fout, omdat Zakelijk niet open is.

En daarom zoek ik een manier om altijd bij het afsluiten alle bladen eerst weg te halen (behalve Versie) en dan op te slaan.

Kan jij daarbij helpen?

Alvast dank.

Groeten,

Amit

 

[smapat19]

Ik heb het al opgelost.

Ik heb alles in een Before Close gezet.

Hartelijk dank voor jullie hulp.

Groeten,

Amit

 

[Wigi]

Samenvatting van deze topic / mijn voorstel qua code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.Visible = (ws.Name = "Versie")
Next ws
End Sub

Wigi