• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kolommen verbergen dmv vinkje

Status
Niet open voor verdere reacties.

PePe22

Gebruiker
Lid geworden
15 jun 2012
Berichten
22
Hallo

Ik heb op het forum wel al in individuele stappen kunnen vinden wat ik wil bereiken maar ik het lukt me niet dit tot een werkend geheel te brengen.

Dit wil ik bereiken:
  • Bekijk bijlage Voorbeeld kolommen verbergen.xlsm
  • Op blad 1 kan worden aangevinkt of een kolom wel of niet verborgen moet zijn.
  • Op blad 2 moet dit effect hebben op de betreffende kolom.
  • Ook op eventueel blad 3, 4, 5 enz moet hetzelfde gebeuren
  • Ondertussen moeten de bladen wel beschermt zijn.

Zie voorbeeld. In deze omstandigheden zou dus op blad 2 Kolommen D en E verborgen moeten zijn
 
Laatst bewerkt:
Ik heb zelf inmiddels de volgende code uitgevogeld die werkt, alleen zou het handig zijn als dit wat beknopter kan:
Code:
Private Sub CheckBox1_Click()
ActiveSheet.Unprotect
Sheets("Blad 2").Unprotect
Sheets("Blad 3").Unprotect
With ActiveSheet
If CheckBox1.Value = True Then
Sheets("Blad 2").[B:C].EntireColumn.Hidden = False
Sheets("Blad 3").[E:E].EntireColumn.Hidden = False
End If
If CheckBox1.Value = False Then
Sheets("Blad 2").[B:C].EntireColumn.Hidden = True
Sheets("Blad 3").[E:E].EntireColumn.Hidden = True
End If
End With
Sheets("Blad 2").Protect
Sheets("Blad 3").Protect
ActiveSheet.Protect
End Sub
En dit kan ik dan uitbreiden met extra bladen.

Kan dit nog korter?
En dan bedoel ik vooral dat ik de Sheets regel niet telkens moet toevoegen per sheet, wanneer de actie toch hetzelfde is.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan