¦p¦ó³]©w10¬í¨S¦³¨Ï¥Î¦Û°ÊÃö³¬ÀÉ®×

danny001

§Ú»s§@¤F­Óexcel ªí¡A§Æ±æ¦b¦P¨Æ«ö¤UexcelÃö³¬¶s®É´£¿ô¦P¨Æ°õ¦æ¬Y¨Ç¯S©w¤u§@¡A¨Ò¦p¡G¦bÃö³¬«eshow¥X¤@¬q¤å¦r°T®§MsgBox¬ù¢±¢¯¬í«á¦A¦sÀÉÃö³¬¡F§Ú¸Ó¦p¦ó¼g¤U³o¬qVBA¡H§Ú¸Ó¼g¦b·s¼W¼Ò²Õ¤º©Î¼g¦bThis workbook¤º©O¡H­n¦p¦ó¼g£z?
ÁÂÁÂ!!

GBKEE

¦^´_ 4# danny001
°Ñ¦Ò³o¸Ì ...

danny001

¦]Àɮצ³¨Ï¥ÎŪ¼g±K½X¡A¦pªG¨Ï¥ÎºûŪ10¬í«á¦Û°Ê§âÀÉ®×Ãö³¬­n¦p¦ó¼g
½Ð³Â·Ð¤j¤j±Ð±ÐÁÂÁ¡I¡I
ÁÙ¦³¤@­Ó°ÝÃDVBA­n¦p¦ó¼g¡A¬Ý¤F«Ü¦hÁÙ¬OºN¤£µÛÀYÄò
Á`¤§ÁÂÁ°աI¡I

danny001

½Ð°Ý¦pªG¬O¶}±ÒÀÉ®×10¬í¦Û°ÊÃö³¬­n¦p¦ó§ó§ï£z
ÁÂÁ¤j¤j!!

GBKEE

¦^´_ 1# danny001
ThisWorkbook¼Ò²Õªº¨Æ¥óµ{¦¡

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim Msg As String
   
3.     Msg = CreateObject("WScript.Shell").popup("10 ¬í«á "& Me.Name  &  "Ãö³¬ÀÉ®× !!       ", 10, Me.Name, 0)
   
4. End Sub

½Æ»s¥N½X