我制作了五个工作簿，每一个工作簿之间都使用了超级链接功能，
但是每次关闭时都必须点击右上角的“X”才能关闭工作簿，请问
有没有什么方式使我在从一个工作簿链接到另一个工作簿时，直
接关闭前一个工作簿？
---------------------------------------------------------------
在工作表标签上点右键，插入代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$A$1" Then Exit Sub
Dim w As Workbook
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close savechanges:=True
End If
Next w
ThisWorkbook.Close savechanges:=True
End Sub
以上代码可实现单击A1单元格时，关闭所有打开的工作簿（如果是新建的工作簿，会弹出另存为对话框）。
---------------------------------------------------------------
也可以这样.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$A$1" Then Exit Sub
activeWorkbook.Close True
End Sub
---------------------------------------------------------------
假设A1中有超级连接
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
ThisWorkbook.Close True
End Sub
当单击A1时会连接到相应的工作簿，并关闭当前工作簿。
PS：如果使用了数字签名，可以避免每次打开工作簿时的启用宏警告。
---------------------------------------------------------------
关于数字签名，这里有篇参考
http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=1333