可以编制如下简单过程,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WBNum As Integer
Dim I As Integer
Dim wb As Workbook
Dim wind As Window
WBNum = Workbooks.Count
For I = 1 To WBNum - 1
Workbooks(I).Activate
Set wb = Workbooks(I)
Set wind = wb.Windows(1)
wind.Visible = True
Next
Set wb = Nothing
Set wind = Nothing
End Sub
Private Sub Workbook_Open()
Dim WBNum As Integer
Dim I As Integer
Dim wb As Workbook
Dim wind As Window
WBNum = Workbooks.Count
For I = 1 To WBNum - 1
Workbooks(I).Activate
Set wb = Workbooks(I)
Set wind = wb.Windows(1)
wind.Visible = False
Next
Set wb = Nothing
Set wind = Nothing
End Sub