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