在工作表选择上激活/取消设计模式

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

我认为设计模式会关闭宏。