Meerdere tabbladen beveiligen alleen unlocked cellen selecteren

[lsp1972]

In mijn excel met vele bladen wil ik deze beveiligen maar nog wel mogelijk filteren.

filteren door alleen de unlocked cellen te kunnen selecteren. Deze VBA is niet helemaal goed, ook de locked cellen worden nog geselecteerd.

Sub BeveiligingBladenAan()
'beveiliging alle werkbladen aanzetten
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
EnableSelection = xlUnlockedCells
Next
End Sub


Sub BeveiligingBladenUit()
'beveiliging alle werkbladen uitzetten
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect "1234"
Next
End Sub

 

[appie36]

Met vba werk ik niet maar je moet wel eerst aangeven welke cellen je na beveiliging nog wil kunnen bewerken lijkt mij.

In het lint-> controleren -> bereiken bewerken toestaan.

 

[lsp1972]

normaal kies je welke cellen te veranderen bij het selecteren van beveiliging.

krijg je ook een code als je deze in macro opneemt.. EnableSelection = xlUnlockedCells.

hoop dat iemand deze in de VBA op de juiste plek kan zetten..