Automatisch rijen verbergen en weergeven met 0 waarde

[peeweezy]

Kan iemand mij vertellen waarom de onderstaande macro niet werkt als ik mijn tabblad beveilig?

Kan ik daar iets aan doen, door bv. iets aan te passen in de VBA?

Sub Rijen_verbergen()
'
' Rijen_verbergen Macro
' De macro is opgenomen op 9-4-2006 door Schipper.
'

'
    Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlOr, _
        Criteria2:=">€ 0,00"
End Sub
Sub Rijen_zichtbaar_maken()
'
' Rijen_zichtbaar_maken Macro
' De macro is opgenomen op 9-4-2006 door Schipper.
'

'
    Selection.AutoFilter Field:=1
End Sub

Alvast bedankt voor iemands reactie!!

 

[Cobbe]

Dit werkt als je tabblad beveiligd is zonder paswoord:

Sub Rijen_verbergen()
'
' Rijen_verbergen Macro
' De macro is opgenomen op 9-4-2006 door Schipper.
'

    [COLOR="red"]Activesheet.Unprotect[/COLOR]    
        Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlOr, _
        Criteria2:=">€ 0,00"
    [COLOR="red"]Activesheet.Protect[/COLOR]
End Sub

Sub Rijen_zichtbaar_maken()
'
' Rijen_zichtbaar_maken Macro
' De macro is opgenomen op 9-4-2006 door Schipper.
'

    [COLOR="red"]Activesheet.Unprotect[/COLOR]    
    Selection.AutoFilter Field:=1
    [COLOR="red"]Activesheet.Protect[/COLOR]
End Sub

Indien met paswoord beveiligd:
Activesheet.Unprotect password:="geheim"
en ook zo de rest.

Succes, Cobbe

 

[peeweezy]

Hartelijk bedankt voor je informatie!!

Het werkt zoals je omschreven hebt.