Cant use this protectio method in a shared workbook???

[Simon Lloyd]

Can anyone help with this....i need to protect and unprotect a sheet i
a shared workbook but i cant work it out can anyone help heres the cod
i have.

Thanks,

Simon

Sub auto_close()

Sheets("Holidays").Select
ActiveSheet.Unprotect
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A14:AK545").Select
Selection.sort Key1:=Range("A14"), Order1:=xlAscending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
Range("a1").Select
Application.DisplayAlerts = False
Application.DisplayFormulaBar = True
ActiveCell = xlNone

With Application
.Calculation = xlAutomatic
End With
ActiveSheet.Protect
ActiveWorkbook.Save
End Su

 

[Tom Ogilvy]

Extract from help:

Features not available in shared workbooks:

Protect or unprotect worksheets or the workbook


--
Regards,
Tom Ogilvy



"Simon Lloyd" <[email protected]>
wrote in message
news:[email protected]...