Спасибо большое!  

DenchikZ написал: иногда выдает ошибку Method Unprotect of object _Worksheet failed

Эту ошибку уже выдает, после установки кода по вашей рекомендации. Извиняюсь что сразу не написал об этом. Общий доступ мне нужен что бы несколько людей одновременно работали в документе, как это сделать по другому не знаю. А так как я еще только начинаю познавать VBA у меня возникают такие проблемы.  

А иногда выдает ошибку Method Unprotect of object _Worksheet failed

общий доступ устанавливаю через рецензирование! А ошибку выдает Run-time error 1004 Application-defined or object-defined error

Спасибо за ответ. Но почему то ошибка возникает только тогда когда ставишь пароль. Если защищать лист без пароля то все работает.

Всем привет. После включения общего доступа к листу, в работе макроса происходит ошибка. Пытался выяснить причину, но как то без результатно. Почему так происходит? Как это решить?  Код выглядит так
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "подбор"
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 10
xTimeColumn = 13
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
   If xCol = xCellColumn Then
      Cells(xRow, xTimeColumn) = Now()
   Else
       On Error Resume Next
       Set xDPRg = Target.Dependents
       For Each xRg In xDPRg
           If xRg.Column = xCellColumn Then
               Cells(xRg.Row, xTimeColumn) = Now()
           End If
       Next
                 End If
End If
Protect Password:="подбор", Scenarios:=True, UserInterfaceOnly:=True
End Sub