如何让设置指定滚动区域的宏在Excel工作簿打开时自动运行

嗨，这个需求很好实现，Excel专门提供了工作簿打开事件来处理这类“启动即执行”的操作，我给你一步步说怎么弄：

方法一：直接把代码写在Workbook_Open事件里 #

1. 打开VBA编辑器：按下Alt + F11组合键，或者右键点击工作簿底部的标签（比如“Sheet1”），选择「查看代码」。
2. 在左侧的「工程资源管理器」里找到你的工作簿，展开后双击ThisWorkbook对象，打开它的代码窗口。
3. 在代码窗口的左上角下拉菜单选择Workbook，右上角下拉菜单选择Open，这时会自动生成Workbook_Open的事件模板。
4. 把你原来的滚动区域设置代码填进去，最终代码长这样：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.ScrollArea = "$A$1:$K$20"
    Next ws
End Sub

方法二：调用你已有的SetSpecificScrollArea宏 #

如果你想保留原来的独立宏，也可以直接在Workbook_Open事件里调用它——前提是你的SetSpecificScrollArea宏放在标准模块（比如新建的Module1）里，并且是公共作用域（默认新建的宏都是Public的，不用额外设置）：

Private Sub Workbook_Open()
    ' 直接调用已有的宏
    SetSpecificScrollArea
End Sub

小提醒 #

• 必须启用宏才能生效：打开工作簿时，Excel会弹出宏安全提示，只有选择「启用内容」，这个自动执行的代码才会正常运行。
• 代码位置不能错：Workbook_Open事件是属于ThisWorkbook对象的，把代码放在其他模块里是不会触发这个打开事件的哦。

这样设置好之后，下次你打开这个工作簿，只要宏处于启用状态，就会自动给所有工作表设置好指定的滚动区域啦！

备注：内容来源于stack exchange，提问作者Keith