How do you run macro on protected worksheet

[keithb]

Does any one how to run this on a protected worksheet?

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set A1 = Range("A1")
If Intersect(t, A1) Is Nothing Then Exit Sub
Application.EnableEvents = False
Call Macro3
Application.EnableEvents = True
End Sub
Sub Macro3()
'
' Macro3 Macro
' Filter
'
ActiveSheet.Range("$A$2:$W$54").AutoFilter Field:=23, Criteria1:="<>"
End Sub

 

[brettdj]

You will need to unprotect the sheet, run your code, then re-protect

So if your sheet password was test then this

hth

Dave

Private Sub Worksheet_Change(ByVal Target As Range)
    Set t = Target
    Set A1 = Range("A1")
    If Intersect(t, A1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    ActiveSheet.Unprotect "test"
    Call Macro3
    ActiveSheet.Protect "test"
    Application.EnableEvents = True
End Sub
Sub Macro3()
'
' Macro3 Macro
' Filter
'
    ActiveSheet.Range("$A$2:$W$54").AutoFilter Field:=23, Criteria1:="<>"
End Sub

 

[keithb]

Thank you brettdj, that works perfect

 

[CWatts]

Since this is solved, I'm going to hijack this thread a bit.

Brett: whats the difference between running the macro by name, versus using the Call statement?