轻松实现VBA滚动条自动恢复，不再手动操作!

实现效果：关闭excel文件，所有工作表窗口的滚动条自动回复到最上、最左位置

代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht%
Application.ScreenUpdating = False
sht = Worksheets.Count
For i = sht To 1 Step -1 '循环所有工作表
Sheets(i).Activate
ActiveWindow.ScrollRow = 1 '设置当前工作表最上面显示的行号
ActiveWindow.ScrollColumn = 1 '设置当前工作表最左边显示的列号
Next
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub