Filter on a Protected Worksheet

[Guest]

Excel 97 SR-

Trying to allow Auto Filter on a Protected workbook. The following code works fine when I protect the worksheet and workbook. But then when I make it Shared I get a run-time error '1004' Protect method of worksheet type class failed whever I click on a new worksheet.

Private Sub Workbook_SheetActivate(ByVal Sh As Object
With ActiveShee
.EnableAutoFilter = Tru
.Protect DrawingObjects:=True,
contents:=True, Scenarios:=True, UserInterfaceOnly:=Tru
End Wit
End Su

Thank

Brenda

 

[Debra Dalgleish]

You can't change the protection in a shared workbook. There's more
information in the following MSKB article:

XL: Commands and Features Unavailable in Shared Workbook
http://support.microsoft.com/default.aspx?id=130560