Excel全屏模式下点击ActiveX按钮后单元格编辑锁定问题求助

问题背景 #

• 工作簿通过以下代码默认以全屏模式打开：

  Private Sub Workbook_Open ()
      Application.DisplayFullScreen = True   
  End Sub
  

• 通过Worksheet_Change事件控制ActiveX按钮Totalvalue的显示（单元格B47非空时显示）：

  Private Sub Worksheet_Change(ByVal Target As Range)
      Application.ScreenUpdating = False
      If Range("B47").Value <> "" Then 
          Me.Totalvalue.Visible = True   
      Else 
          Me.Totalvalue.Visible = False
      End If
      Application.ScreenUpdating = True 
  End Sub
  

• 点击按钮弹出消息框后，关闭消息框时工作表单元格变为不可编辑状态（仅表单控件、ActiveX控件和下拉列表可用）；按Delete或ESC键可恢复编辑，但ESC会退出全屏模式。
• 仅在全屏模式下出现该问题，其他同设置的工作簿运行正常，当前工作簿包含复杂内容（公式、宏、用户窗体、条件格式）无法重建。

排查步骤 #

• 检查按钮点击事件代码：
  打开按钮的VBA代码窗口，确认是否存在Application.Interactive = False、Me.Protect（含无密码保护）或Application.Cursor = xlNoDrop这类限制编辑的语句。可在按钮代码末尾添加以下调试语句，执行后查看立即窗口输出，判断权限状态：

  Debug.Print "Interactive状态：" & Application.Interactive, "工作表保护状态：" & Me.ProtectContents
  

• 排查全屏相关事件冲突：
  全屏模式会触发WindowActivate/WindowDeactivate事件，检查工作簿或工作表的这类事件代码，看是否有修改单元格编辑权限的逻辑。同时可临时注释掉Workbook_Open中的全屏代码，手动开启全屏后测试按钮，排除代码触发全屏与手动全屏的差异。

• 修复消息框后的焦点问题：
  消息框关闭后焦点可能停留在ActiveX控件上，导致无法编辑单元格。可在按钮点击事件的末尾添加如下代码，强制将焦点移至单元格：

  Me.Range("A1").Select
  

• 搜索全局关键设置：
  用VBA编辑器的「查找」功能（快捷键Ctrl+F），搜索Interactive、Protect、EnableEvents关键词，排查是否有其他宏在修改这些影响编辑权限的属性。

• 缩小排查范围：
  在当前工作簿中新建空白工作表，复制按钮及相关代码到新表，在全屏模式下测试是否复现问题；或临时禁用其他非必要宏（如用户窗体、条件格式相关事件），逐步启用定位冲突源。

内容的提问来源于stack exchange，提问作者Grzegorz