Shared wb and protection

[Remphan]

That is not works when workbook is shared. Help, pls with shared workbook.

Const PWD = "test"
Private Sub Worksheet_Activate()
Range("1:9").Locked = True
Me.Protect Password:=PWD, UserInterfaceOnly:=1, DrawingObjects:=1, Contents:=1, Scenarios:=1, _
AllowFormattingCells:=1, AllowInsertingRows:=0, AllowDeletingRows:=0, AllowFiltering:=1, AllowFormattingRows:=0
End Sub