добрый вечер,
воспользовлся поиском и смог
написать вот такой код:
всё работает как надо пока не активирую общий доступ к книге
на листах есть защищённые ячейки и листы.
Подскажите пожалуйста какие есть возможности использовать этот код и общий доступ
Спасибо зарание Александр
воспользовлся поиском и смог
написать вот такой код:
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim r As Long
Dim str As String
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
str = Target.Value
Application.EnableEvents = False
r = Cells(Rows.Count, 2).End(xlUp).Row
Range("A4:A100" & r).ClearContents
Target.Value = str
End If
If Not Intersect(Target, Range("A4:A100" ;) ) Is Nothing Then
Target.Offset(0, 12).Select
End If
Application.EnableEvents = True
ActiveSheet.Protect
End Sub
Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Target.Column = 14 Then
Sheets(2).Select
ActiveSheet.PrintOut
Sheets(1).Select
End If
End Sub |
всё работает как надо пока не активирую общий доступ к книге
на листах есть защищённые ячейки и листы.
Подскажите пожалуйста какие есть возможности использовать этот код и общий доступ
Спасибо зарание Александр
