Alle tabbladen zichtbaar-verbergen

Beste mensen,

Ik heb al veel van jullie geleerd, maar volgende kan ik niet vinden en waarschijnlijk is het zeer simpel maar ik kom er niet op.

Ik heb een knop gemaakt om alle tabbladen die verborgen zijn zichtbaar te maken. met:

Sub Tabbladenweergeven()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

Dat werkt mooi, maar ik wil nu eigenlijk een knop, dit ook omgekeerd doet maar dan op 1 tabblad na. (tabblad "algemeen") moet als enige zichtbaar blijven.

Sub Tabbladenverbergen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = x1Sheethide
Next ws
End Sub

Maar hier krijg ik error, omdat er minimaal 1 blad zichtbaar moet blijven, ik krijg de uitzonder algemeen er alleen niet ingezet..

Via een vraag van een ander kwam ik bij deze code:

Sub Verbergen_zichtbaarmaken()

Dim Aantal As Integer
Dim I As Integer

Aantal = ActiveWorkbook.Worksheets.Count

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

End Sub


Maar dat werkt niet zoals gehoopt.
Kan iemand me hierbij helpen?

Even proberen misschien ....

Voor het verbergen werkt dit goed, dank je wel.

Kan ik met dezelfde knop ook alles zichtbaar maken, of kan ik beter twee knoppen houden? een voor weergeven en de andere voor verbergen?

Kleine aanpassing:

Ja zo werkt hij, thx :d

Als nu iets al zichtbaar is verbergt hij dat blad als je de rest zichtbaar maakt, en omgekeerd bij verbergen ook.
Ik ga er nog even aan puzzelen, ook zou het prettig zijn als het active.sheet algemeen dan weer gegeven wordt na het zichtbaar maken.

Ben nog een erge noob, probeer snel bij te leren

Er staat hoe je ze zichtbaar/verborgen maakt.
Dat zou genoeg voor je moeten zijn om de gewenste wijziging te doen.
Daarnaast wordt het blad Algemeen nooit onzichtbaar gemaakt in mijn voorbeeld en in het voorbeeld van DigiCafee ook niet.

Grote aanpassing:

Keurig
Option Explicit moet dan niet aan staan overigens.

Die laatste aanvulling krijg ik nog niet werkend (SNB), is mijn onervarenheid dus vogel ik nog uit, leer ik van.

Allemaal dank je wel voor de infromatie

Zorg dat alle werkbladen zichtbaar zijn.
Start dan de macro.
Zet de macro in de macromodule van werkblad 'Algemeen'.