unlock worksheets bij uitvoeren Macro

[Bjorkie]

Hey,
ik heb in mijn 'workbook' volgende code staan:

Private Sub Workbook_Open()
    Dim Sh As Object
    For Each Sh In Sheets
        Sh.Protect Password:="test", UserInterfaceOnly:=True, AllowFiltering:=True
    Next
End Sub

nu stel ik vast dat mijn macros niet correct lopen, aangezien de sheets protected zijn.
op welke manier kan ik bij aanvang van elke macro, eenvoudigweg alles unlocken, en op het einde terug locked zetten?
mijn Macros maken bewerkingen (ophalen gegevens) op verschlillende sheets, dus eenvoudigweg even alles unlocken, en op einde terug locken is prima

 

[Cobbe]

Activesheet.Unprotext "test"

code.......

Activesheet.Protext "test"

 

[E v R]

Macro zou met userinterfaceonly:=true gewoon uitgevoerd moeten kunnen worden...

 

[Bjorkie]

@EvR: vreemd genoeg doet hij verschillende listings niet.
ik dnek wel dat ik het gevonden heb.
bij het uitvoeren van enkele macro's, werden er gegevnes naar cellen geplaatst, uitgefilterd, en vervolgens gekopieerd naar mijn laatste pagina. nu heb ik deze' tijdelijke cellen' niet meer als 'locked' property gegeven, nu blijkt het te werken

bedankt voor de hulp alvast allen.