碎冰夜舞:
打开该工作簿,在任意一个工作表中,按Alt+F11打开MicrosoftVisualBasic编辑器,在工程项目中找到“ThisWorkbook”,并用鼠标左键双击之,在右侧代码栏内输入如下代码:PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)IfAbs(Sh.Index-Sheets("sheet2").Index)>1ThenSheets("sheet2").SelectSheets("sh....