Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
макрос в книге с общим доступом
 
добрый вечер,

воспользовлся поиском и смог

написать вот такой код:
Код
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

всё работает как надо пока не активирую общий доступ к книге
на листах есть защищённые ячейки и листы.

Подскажите пожалуйста какие есть возможности использовать этот код и общий доступ

Спасибо зарание Александр
 
Код будет работать только если убрать строки ActiveSheet.Unprotect и ActiveSheet.Protect, т.к. нельзя менять параметры защиты(а также снимать или ставить защиту) в книгах с общим доступом.

мне кажется, что эти строки:
Код
r = Cells(Rows.Count, 2).End(xlUp).Row 
Range("A4:A100" & r).ClearContents

должны выглядеть так:
Код
r = Cells(Rows.Count, 2).End(xlUp).Row 
Range("A4:A" & r).ClearContents
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Большое спасибо,
всё оказалось проще.
подправил код и вроде рабоает, завтра на работе проверю.

Александр
Страницы: 1
Читают тему (гостей: 1)