求一个excel vba 代码程序：当打开一个excel工作表时同时关闭其它已打开的excel文件

下面的供参考。注意增加的宏需要放在VBA Workbook的里面。
Private Sub Workbook_Open()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name <> ThisWorkbook.Name Then
Wb.Close '如果要强行不保存关闭，可以加上 savechanges:=False
End If
Next
End Sub追问

谢谢，如果要关闭已打开的所有文件，怎样写？

追答

Private Sub Workbook_Open()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name ThisWorkbook.Name Then
Wb.Close '如果要强行不保存关闭，可以加上 savechanges:=False
End If
Next
ThisWorkbook.close
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3vjyy2jff.html