вкл-откл макроса события Worksheet_SelectionChange

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

вкл-откл макроса события Worksheet_SelectionChange (Макросы/Sub)

Extybr

Дата: Суббота, 10.04.2021, 11:59 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

подскажите как сделать что бы можно было кнопкой отключать включать вот это.....
то есть должно работать но при потребности нажал кнопку отключил что нужно сделал и включил обратно
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Target.Row
    If Cells(r, 2).Value = 1 Then
    Range("A1").Activate
    Exit Sub
    End If
End Sub

[/vba]

К сообщению приложен файл: 2316062.xlsb (14.0 Kb)

Ответить

Nic70y

Дата: Суббота, 10.04.2021, 12:35 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        r = Target.Row
        If Cells(r, 2).Value = 1 Then
            Range("A1").Activate
            Exit Sub
        End If
    End If
End Sub

[/vba]
[vba]

Код

Sub u_421()
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        Worksheets("Лист1").Buttons("Button 1").Text = "ВЫКЛ"
    Else
        Worksheets("Лист1").Buttons("Button 1").Text = "ВКЛ"
    End If
End Sub

[/vba]

К сообщению приложен файл: 9370463.xlsb (17.7 Kb)

ЮMoney 41001841029809

Ответить

Extybr

Дата: Суббота, 10.04.2021, 15:53 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Nic70y, спасибо большое. то что нужно
подскажите пожалуйста еще, если несколько макросов по событию
Worksheet_SelectionChange, будет отключаться только этот макрос? или все

Ответить

Extybr

Дата: Суббота, 10.04.2021, 16:07 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Nic70y, ПЕРЕНЕС К СЕБЕв файл.ПОПРОБУЮ РАЗОБРАТЬСЯ

Сообщение отредактировал Extybr - Суббота, 10.04.2021, 16:13

Ответить

Extybr

Дата: Суббота, 10.04.2021, 16:30 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Nic70y, при выделении ячеек пишет ошибку 1004
невозможно получить свойство Buttons класса Workcheet
и выделяет строку
u = Worksheets("ÔÁ").Buttons("Button 1").Text
что может быть?