Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Работа макроса на защищенном листе, Работа макроса на защищенном листе
 
Постараюсь как можно понятней объяснить, что мы пытаемся добиться. В столбце "Т" данной таблице стоит макрос, который без клика правой мышки, автоматически создает примечание и выставляет дату. Как только мы ставим защиту листа при этом не выделяя столбец "Т" макрос перестает работать, а сразу после того, как снимаем, работа макроса возобновляется. Можно ли решить вопрос с этой проблемой, чтобы и защита, и макрос работали?
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag$
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 20 Then Exit Sub
    On Error Resume Next
    Me.Unprotect    'снимаем защиту листа
    With Target
        flag = .Comment.Text
        If Err Then
            Err.Clear
            .AddComment
            .Comment = True
            .Comment.Text Text:=Application.UserName & Chr(10) & Date & " " & .Value
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & Chr(10) & Date & " " & .Value
        End If
    End With
    Me.Protect      'устанавливаем защиту листа
End Sub
Согласие есть продукт при полном непротивлении сторон.
 
Где-то я читал, что Worksheet_Change в макинтошах не работает.
 
спасибо большое, очень помогли!!
Страницы: 1
Читают тему (гостей: 1)
Наверх