Share a protected workbook

[Mike Harris]

I am using the following code to try to share a workbook
and record the changes but it isn't working. Any ideas
anyone?

Private Sub Workbook_Open()
With Worksheets("Business Plan Objectives")
.EnableAutoFilter = True
.EnableShareWorkbook = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub