多人协作Excel：切换主菜单时全员被迫跳转的问题求解

问题根源 #

共享工作簿里的Worksheet_Activate事件是全局生效的——只要有一个人切到主菜单工作表，所有协作的人都会触发这段代码，包括隐藏其他表、跳转选区、调整界面，直接把所有人都强制拉到主菜单。

两种解决办法 #

办法1：用按钮触发替代自动激活事件（最靠谱） #

把原来绑定在工作表激活事件里的逻辑，改成手动点击按钮触发，这样只有操作的人会执行，不会影响其他人：

1. 先把Worksheet_Activate里的代码删掉或者注释掉。
2. 插入一个标准模块，把原来的逻辑移到这个宏里：

Sub ShowMainMenu()
    Application.ScreenUpdating = False
    ' 批量隐藏月份工作表
    Sheets("Januar").Visible = False
    Sheets("Februar").Visible = False
    Sheets("März").Visible = False
    Sheets("April").Visible = False
    Sheets("Mai").Visible = False
    Sheets("Juni").Visible = False
    Sheets("Juli").Visible = False
    Sheets("August").Visible = False
    Sheets("September").Visible = False
    Sheets("Oktober").Visible = False
    Sheets("November").Visible = False
    Sheets("Dezember").Visible = False
    ' ... 其他需要隐藏的工作表
    
    ' 调整主菜单显示位置
    If Application.WindowState = xlMaximized Then
        Tabelle20.Range("A1").Select
    Else
        Tabelle20.Range("L17").Select
    End If
    
    Call BenutzerModus
    Application.ScreenUpdating = True
End Sub

3. 在主菜单工作表上加个按钮，把这个宏绑上去。以后用户要回主菜单，点一下按钮就行，完全不会影响其他人的操作。

办法2：给激活事件加判断（兼容性一般） #

如果非要保留自动激活的逻辑，可以加个判断，只在当前用户自己的窗口激活时执行代码：
修改Worksheet_Activate的代码：

Private Sub Worksheet_Activate()
    ' 只在当前用户的活动窗口是本工作簿窗口时执行
    If ActiveWindow.Caption = ThisWorkbook.Windows(1).Caption Then
        Application.ScreenUpdating = False
        ' 隐藏工作表的代码
        Sheets("Januar").Visible = False
        Sheets("Februar").Visible = False
        ' ... 其他隐藏代码
        
        ' 调整显示位置
        If Application.WindowState = xlMaximized Then
            Tabelle20.Range("A1").Select
        Else
            Tabelle20.Range("L17").Select
        End If
        
        Call BenutzerModus
        Application.ScreenUpdating = True
    End If
End Sub

额外提示 #

共享工作簿里，工作表的可见性是全局的——一个人隐藏了表，所有人都看不到。要是想让每个人有自己的工作表显示状态，直接用Excel自带的自定义视图：
点「视图」选项卡 → 「自定义视图」→ 「添加」，保存自己常用的表状态和窗口布局，之后切换时加载自己的视图就行，互相不干扰。

内容的提问来源于stack exchange，提问作者Dr.Fail