GBKEE

¦^´_ 10# t8899

A1.XLS

1. Private Sub Workbook_Open()
   
2.   Application.AskToUpdateLinks = True
   
3.   UpdateLinks = xlUpdateLinksUserSetting
   
4. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899

A1.XLS
GBKEE µoªí©ó 2014-6-28 11:14

¥ý¶}B ¦A¶}A1 ¨S¸ß°Ý ?
A1¤U­±¨â¬q®³±¼¤]¤@¼Ë¨S¸ß°Ý?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.AskToUpdateLinks = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
     Application.AskToUpdateLinks = False
End Sub

t8899

¦^´_  t8899

A1.XLS
GBKEE µoªí©ó 2014-6-28 11:14

§Ú¦bB.xls  auto_close ©ñ³o¨â¦æ´NOK¤F,¨Ñ°Ñ¦Ò
Sub Auto_Close()
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
    End Sub

GBKEE

¦^´_ 13# t8899

¦³¶i¨B¤F