macro (un)protected sheet

[allright48]

Ik wil een macro invoegen dat ervoor zorgt dat een password protected sheet unlockt op het moment dat ik de macro uitvoer. Ik heb een bestand waarin een macro voor een autofilter zit, alleen als ik de sheet protect, krijg ik de welbekende run error (1004); op internet al verschillende macro's geprobeerd, helaas zonder succes.
Het gaat om de volgende macro:


Sub Oval16_Click()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

End Sub

Sub sortacycles()
'

Range("A5:T134").Select
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.AutoFilter
ActiveSheet.Range("$A$5:$T$134").AutoFilter Field:=18, Criteria1:="A"
End Sub
Sub SORTBCCYCLES()
'
' SORTBCCYCLES Macro
'

'
Range("A5:T134").Select
Selection.AutoFilter
ActiveSheet.Range("$A$5:$T$134").AutoFilter Field:=18, Criteria1:="=B", _
Operator:=xlOr, Criteria2:="=C"
End Sub

Hier zou dus een macro aan toegevoegd moeten worden dat ervoor zorgt dat de macro van de autofilter gewoon gedraaid kan worden.

Wellicht heeft iemand nog een mooiere oplossing; mijn doel is een bestand dat protected is (liefst met password), maar waar wel alle macro's (vrnml. autofilter) gedraaid kan worden. Nadat de macro is uitgevoerd, moet de sheet weer worden protect. VBA is ook password protected.

Bedankt!

 

[gast0660]

Zoiets ?
Als uw paswoord test is

Sub sortacycles()
ActiveSheet.Unprotect "test"
'uw macro
ActiveSheet.Unprotect "test"
End sub

Plaats in het vervolg uw code tussen code tags .

 

[allright48]

Hartelijk dank! werkt weer perfect

 

[gast0660]

Mooi zo:thumb: maar ik had een foutje gemaakt

Sub sortacycles()
ActiveSheet.Unprotect "test"
'uw macro
ActiveSheet.[COLOR="#FF0000"]Protect[/COLOR] "test"
End sub

 

[allright48]

ja klopt, had inderdaad al de unprotect naar protect veranderd