Всем привет. После включения общего доступа к листу, в работе макроса происходит ошибка. Пытался выяснить причину, но как то без результатно. Почему так происходит? Как это решить?  Код выглядит так
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