如果你常和Excel多窗口打交道，每次打开工作簿都得手动调整窗口位置尺寸？别愁，这个VBA方案能帮你自动搞定——关闭工作簿时保存当前窗口的位置和大小，下次打开直接恢复到之前的状态。

实现步骤 #

你需要在工作簿的ThisWorkbook模块中添加两个事件过程：

1. 关闭工作簿时保存窗口参数

这个过程会在你关闭工作簿时，把当前窗口的位置（Top、Left）和尺寸（Width、Height）存储为工作簿的自定义名称，这些名称会随工作簿一起保存：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    ' 先确保存储参数的自定义名称存在，不存在就创建
    With ThisWorkbook.Names
        .Add Name:="WinTop", RefersToR1C1:="=1"
        .Add Name:="WinLeft", RefersToR1C1:="=1"
        .Add Name:="WinWidth", RefersToR1C1:="=1"
        .Add Name:="WinHeight", RefersToR1C1:="=1"
    End With
    On Error GoTo 0
    
    ' 更新自定义名称的值为当前窗口的参数
    With ActiveWindow
        ThisWorkbook.Names("WinTop").RefersTo = .Top
        ThisWorkbook.Names("WinLeft").RefersTo = .Left
        ThisWorkbook.Names("WinWidth").RefersTo = .Width
        ThisWorkbook.Names("WinHeight").RefersTo = .Height
    End With
End Sub

2. 打开工作簿时恢复窗口参数

这个过程会在打开工作簿时，读取之前保存的窗口参数，自动调整窗口到之前的位置和大小：

Private Sub Workbook_Open()
    On Error Resume Next
    ' 读取保存的参数并设置窗口
    With ActiveWindow
        .Top = ThisWorkbook.Names("WinTop").RefersToRange.Value
        .Left = ThisWorkbook.Names("WinLeft").RefersToRange.Value
        .Width = ThisWorkbook.Names("WinWidth").RefersToRange.Value
        .Height = ThisWorkbook.Names("WinHeight").RefersToRange.Value
    End With
    On Error GoTo 0
End Sub

代码说明 #

• On Error Resume Next：避免首次运行时因为自定义名称不存在而报错，后续运行时如果名称已经存在，Add方法会被自动跳过。
• 自定义名称（WinTop、WinLeft等）：相当于存储窗口参数的“容器”，会和工作簿一起保存，下次打开时就能直接读取。
• ActiveWindow：指当前激活的Excel窗口，确保我们操作的是当前工作簿对应的窗口。

使用注意 #

1. 打开工作簿时要启用宏（VBA需要宏权限才能正常运行）。
2. 这个方案是针对单个工作簿的，每个需要记忆窗口状态的工作簿都要单独添加这段代码。

内容的提问来源于stack exchange，提问作者G-J