Macro on a protected worksheet in a shared workbook.

P

Paul.

Hi,
I have a macro in protected worksheets that can't run once the Workbook is
Shared.
I have wrapped the Macro code so as the worksheet is unprotected for the
time the Macro runs, and unable the Autofilter.
The code is as follow at the moment:

Sub Newaction()

Sheets("Critical Path").Unprotect ("")
' Newaction Macro
' Macro recorded 17/11/2004 by Clifford
'

'
Selection.AutoFilter Field:=1, Criteria1:="="
Sheets("Critical Path").EnableAutoFilter = True
Sheets("Critical Path").Protect contents:=True, userInterfaceOnly:=True
Sheets("Critical Path").Protect ("")
End Sub

Can Someone assist me me ???
Thank you so much in advance.
Regards

Paul.
 
Top