Beveiliging van werkblad(en) opheffen.

[DANIEL162]

Al mijn werkbladen, zijn allemaal in een keer, beveiligd met een macro geplaatst in ThisWorkbook.
Op ieder blad zijn er filters geplaatst, die moeten werken in beveiliging van de werkbladen.

Private Sub Workbook_Open()
For I = 1 To ThisWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect Password = "a", UserInterFaceOnly:=True
Next I
End Sub

Ik weet wel hoe bladbeveiliging uitzetten.
Hier lukt het niet.

Bij het openen zult u merken dat de werkbladen niet beveiligd zijn.
Plaatst de code in ThisWorkbook.
Sluit programma en opent opnieuw.
De werkbladen zijn nu beveiligd.
En nu ????? Als ik nog iets moet veranderen in een werkblad.
Mvg Daniel

 

[pasan]

als je nog iets wil veranderen zul je per werkblad de beveiliging er af moeten halen met je ww

 

[DANIEL162]

Ik weet wel hoe bladbeveiliging uitzetten.
Hier lukt het niet.
Doe de test met mijn code

 

[pasan]

Private Sub Workbook_Open()

For I = 1 To ThisWorkbook.Worksheets.Count

Worksheets(I).EnableAutoFilter = True
Worksheets(I).Protect Password:="a", UserInterFaceOnly:=True
Next I
End Sub

ik heb deze net getest en bij mij werkt het

 

[DANIEL162]

Oke Pasan dit werkt
Ik ga mijn hoofd niet breken over mijn code dat niet gaat. maar ik vind het merkwaardig.
Bedankt Pasan
Groet
Daniel

 

[Cobbe]

De volgorde een beetje aanpassen en het werkt:

Private Sub Workbook_Open()
    For I = 1 To ThisWorkbook.Worksheets.Count
       With Worksheets(I)
                .EnableAutoFilter = True
                .Protect UserInterfaceOnly:=True, Password:="a"
       End With
    Next I
End Sub

 

[DANIEL162]

Bedankt allemaal voor de hulp.
Met vriendelijke groet:thumb:
Daniel