verbergen van kolommen in ander blad op basis van waarde uit eerste blad

[Luccae]

Beste,
doel: indien blad 1, cellen C4:C5 nul zijn, dan wil ik blad 2, respectievelijk bereik W3:AF30 of AG3:AP30 verbergen. (mogen ook de kolommen W:AF of AG:AP zijn)
Macro "begin" doet zijn werk niet. Wil iemand helpen debuggen of een andere macro voorstellen ?
Txs
Luc

paswoord protection = " " of dus niets invullen, blanco

ik kan mijn bestand niet uploaden gezien het een excel bestand is MET macro, iets wat deze site blijkbaar niet ondersteunt.

blad 1 =
spelers naam doetmee=1
1 Cis 1
2 Peter 1
3 Luc 0
4 0

press CTRL b to position worksheet "input scores"

zo ziet mijn macro eruit:
Sub begin()
ActiveSheet.Unprotect
Sheets("input scores").Unprotect
If UCase(Range("C4").Value) = UCase("1") _
Then
Sheets("input scores").Range("w:af").EntireColumn.Hidden = False
ElseIf UCase(Range("C4").Value) = UCase("0") _
Then
Sheets("input scores").Range("w:af").EntireColumn.Hidden = True
End If
If UCase(Range("C5").Value) = UCase("1") _
Then
Sheets("input scores").Range("ag:ap").EntireColumn.Hidden = False
ElseIf UCase(Range("C5").Value) = UCase("0") _
Then
Sheets("input scores").Range("ag:ap").EntireColumn.Hidden = True
End If
Sheets("input scores").Protect
ActiveSheet.Protect
End Sub

 

[Cobbe]

Zie eens of je hier verder mee geraakt:

Sub begin()
ActiveSheet.Unprotect
Sheets("input scores").Unprotect
With ActiveSheet
    If UCase(.Range("C4").Value) = UCase("1") Then
        Sheets("input scores").Range("w:af").EntireColumn.Hidden = False
    ElseIf UCase(.Range("C4").Value) = UCase("0") Then
        Sheets("input scores").Range("w:af").EntireColumn.Hidden = True
    End If
        
    If UCase(.Range("C5").Value) = UCase("1") Then
        Sheets("input scores").Range("ag:ap").EntireColumn.Hidden = False
    ElseIf UCase(.Range("C5").Value) = UCase("0") Then
        Sheets("input scores").Range("ag:ap").EntireColumn.Hidden = True
    End If
    
End With
Sheets("input scores").Protect
ActiveSheet.Protect
End Sub

Cobbe