Macro toepassen in beveiligde Excelsheet

[Broere]

Ik ben op zoek naar een oplossing in onderstaande macro waardoor deze toepasbaar blijft in een Excelsheet met beveiligde cellen.

Sub Zwanger()
'
' Zwanger Macro
'
Rows("13:13").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$13:$U$51").AutoFilter Field:=3, Criteria1:="<>"
End Sub

 

[ExcelAmateur]

Haal de beveiliging in het begin van de macro eraf en aan het eind zet je de beveiliging er weer op.
Gebruik anders de Zoekmachine van Helpmij, staat rechtsboven - Doorzoek dit forum

 

[edmoor]

Sub Zwanger()
'
' Zwanger Macro
'
Activesheet.Unprotect "wachtwoord"
Rows("13:13").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$13:$U$51").AutoFilter Field:=3, Criteria1:="<>"
Activesheet.Protect  "wachtwoord"
End Sub

Dat wachtwoord is optioneel.

 

[Broere]

Dank voor de reactie, macro werkt!