Активировать/деактивировать режим проектирования при выборе рабочего листа

Question

Действительно борется с этим. Я пытаюсь вытащить книгу из режима разработки, когда пользователь покидает конкретный лист. У меня есть co, который будет запускаться от кнопок, которые берут лист в и из режима дизайна.

Теперь я хочу запустить их на листе, активировать/деактивировать события. Рабочий лист активируется нормально и переходит в режим разработки.

Однако у VBA возникает проблема выхода из режима разработки из кода. Я что-то упускаю. Или есть совершенно другой способ приблизиться к этому.

Благодаря D

Sub testEnter() 
    EnterExitDesignMode True 
End Sub 

Sub testExit() 
    EnterExitDesignMode False 
End Sub 

Sub EnterExitDesignMode(bEnter As Boolean) 
Dim cbrs As CommandBars 
Const sMsoName As String = "DesignMode" 

    Set cbrs = Application.CommandBars 
    If Not cbrs Is Nothing Then 
     If cbrs.GetEnabledMso(sMsoName) Then 
      If bEnter <> cbrs.GetPressedMso(sMsoName) Then 
       cbrs.ExecuteMso sMsoName 
       Stop 
      End If 
     End If 
    End If 
End Sub 

Answer 1

Я думаю, что режим дизайна выключит макроса.

Answer 2

Просто играл, и вы могли попробовать это.

При выборе листа введите имя листа в общедоступном var, затем запустите application.ontime, чтобы проверять каждую секунду, отличается ли имя активного листа от этого var, если при этом вызов ontime отключается в режиме разработки , если нет, то сохраняется режим разработки (ваш существующий код). Просто попробовал быструю демонстрацию в дизайне в VB IDE и In Design на ленте и, похоже, это сработает.

Cheers.

Что-то вроде

Sub EnterExitDesignMode(bEnter As Boolean) 
Dim cbrs As CommandBars 
Const sMsoName As String = "DesignMode" 
    Application.OnTime Now + TimeSerial(0, 0, 1), "TIMER_TEST" 
    Set cbrs = Application.CommandBars 
    If Not cbrs Is Nothing Then 
     If cbrs.GetEnabledMso(sMsoName) Then 
      If bEnter <> cbrs.GetPressedMso(sMsoName) Then 
       cbrs.ExecuteMso sMsoName 
       Stop 
      End If 
     End If 
    End If 
End Sub 

Public Sub TIMER_TEST() 
If ActiveSheet.Name = strSheetName Then 
    EnterExitDesignMode True 
Else 
End If 
End Sub 

Вам нужно поставить имя листа в скрытом листе, так как переменная потеряется.

Не полностью протестирован, но должен помочь.

Спасибо.