verbergen / beveiligen

[don42]

Hallo allemaal

ik heb de volgende 2 codes in mijn werkblad

Private Sub CheckBox1_Change()
 If CheckBox1 = False Then
      ActiveSheet.Unprotect
      Range("a1").Value = "Niet beveiligd"
       Exit Sub
 End If
 If Not CheckBox1 = False Then
 Range("a1").Value = "Wel beveiligd"
 ActiveSheet.Protect
 End If
 End Sub

Sub verbergen_tonen()
 With Range("A1,b1").EntireColumn
 ActiveSheet.Unprotect
  .Hidden = Not .Hidden
    End With
End Sub

met de checkbox kan ik mijn werkblad keurig beveiligen/ opheffen
met de knop mijn 2 kolommen A en B zichtbaar maken en bewerken

is het mogelijk dat ik via de knop de kolommen zichtbaar maak en de beveiliging ophef
dan via de zelfde knop de kolommen weer verberg en het blad weer beveilig
eigenlijk een combi van mijn twee codes
een wachtwoord is niet nodig

Don

 

[spaarie]

Zoiets?

Sub verbergen_tonen()
    With ActiveSheet
        If .ProtectContents = True Then
            .Unprotect
            .Range("A1,B1").EntireColumn.Hidden = False
        ElseIf .ProtectContents = False Then
            .Range("A1,B1").EntireColumn.Hidden = True
            .Protect
        End If
    End With
End Sub

 

[don42]

Dat is waar ik naar op zoek was
bedankt maar weer
top.