Worksheet_Change in combinatie met beveiliging werkblad

[CamJacobus]

Ha allen,

Hoe kan ik ervoor zorgen dat de beveiliging eraf gaat in de volgende procedure, zonder dat ik een foutmelding krijg.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

    If Intersect(Target, Range("StoreSelection")) Is Nothing Then Exit Sub
            Columns("S:BB").Hidden = True
    For Each C In Range("Col_Stores")
        If C = Range("StoreSelection") Then C.Columns.Hidden = False
    Next

    Application.ScreenUpdating = True

End Sub

Ik heb het geprobeerd met de volgende code, maar dat was geen oplossing.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    ActiveWorkbook.Worksheets("Rangeplan").Unprotect ("veilig")
    Application.ScreenUpdating = False

    If Intersect(Target, Range("StoreSelection")) Is Nothing Then Exit Sub
            Columns("S:BB").Hidden = True
    For Each C In Range("Col_Stores")
        If C = Range("StoreSelection") Then C.Columns.Hidden = False
    Next

    Application.ScreenUpdating = True
    ActiveWorkbook.Worksheets("Rangeplan").Protect Password:="veilig", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
        
End Sub

Alvast bedankt!

 

[SjonR]

zie hier:

Sheets("Rangeplan").Unprotect "veilig"

code hier plaatsen

Sheets("Rangeplan").Protect "veilig"

aangenomen dat je de beveiliging er ook weer op wilt zetten na de handeling.

 

[CamJacobus]

Dank je! Dit is volgens mij niet heel anders dan wat ik in het tweede deel van de code had gezet. Ik krijg nog steeds een melding dat het blad beveiligd is. Als ik de volgende macro wil gebruiken krijg ik ook een foutmelding:

Sub ShowAll()
    
    ActiveWorkbook.Worksheets("Rangeplan").Unprotect ("veilig")
    
    Range("StoreSelection").Select
    Selection.ClearContents
    Columns("S:BB").Hidden = False
    
    ActiveWorkbook.Worksheets("Rangeplan").Protect Password:="veilig", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    
End Sub

Wat kan ik verbeteren?

 

[SjonR]

Volgens mij staat jouw password tussen (), maar dat is het probleem niet.

Het probleem zit het in de regel waarin je regels wilt verbergen. Niet in het beveiligingsverhaal.