ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó±N«ü©wÀx¦s®æ¤¤ªº¸ê®Æ²M°£

[µo°Ý] ½Ð°Ý¦p¦ó±N«ü©wÀx¦s®æ¤¤ªº¸ê®Æ²M°£

½Ð°Ý¦U¦ì°ª¤â
¸Ôªþ¥ó:
  1. ¦pªG§Ú¦bf7¤¤¿é¤J½s¸¹,f8·|¬d¥X¬Û¹ïÀ³ªº©m¦W
±µµÛ§Ú«ö«ö¶s1,³]©w¬Y¨ÇªF¦è§¹¤§«á
­n¦p¦óÅýÀx¦s®æªº¸ê®ÆÅܪťÕ
¥´¤ñ¤è
§Ú¦bf7¿é¤J½s¸¹5,f8·|¥X²{"½²X¥Ã"
¦b§Ú«ö¤U«ö¶s1«á
§Æ±æh4:i18¤¤ªº"½²x¥Ã:ªºÀx¦s®æÅܦ¨ªÅ¥Õ
¦pªG¿é¤J§Oªº¼Æ¦r,¦p"3"ªº¸Ü
h4:i18¤¤ªº"¤ps"·|ÅܪťÕ

2,¦³¥i¯à¦b³]©w§¹ÃöÀɮ׫á,¥»¸ÕºâÀÉ·|¦Û°Ê§R°£¶Ü?¦Ó¥B¤£·|¥X²{¦b¸ê·½¦^¦¬µ©¤¤
ÁÂÁ°ª¤â«ü±Ð

¬¡­¶Ã¯1.rar (7.24 KB)

jeason

¦^´_ 1# brabus
  1. Sub «ö¶s1_Click()
  2.     [H4].Cells([F7], 2) = ""
  3. End Sub
  4. Sub Ex()  '§R°£ÀÉ®×µ{¦¡¥²»Ý¸m©ó¨ä¥LÀɮ׸Ì
  5.     Dim ThisFile As String
  6.     With ActiveWorkbook '­nÃö³¬Àɮ׬O§@¥Î¤¤ªº¬¡­¶Ã¯
  7.         ThisFile = .FullName
  8.         .Close 0
  9.     End With
  10.     Kill ThisFile
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


   1. ÁÂÁ°ª¤â±Ð¾É
2.±zªº·N«ä¬O,¤£¯à§R°£¦Û¤v¹ï¤£¹ï?/
jeason

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-20 07:40 ½s¿è

¦^´_ 3# brabus
¤£¯à§R°£¦Û¤v¹ï¤£¹ï

¬Oªº
¦³½Ö¥i¥H¤À¨É, §R°£¦¨¥\ªº¸gÅç.

TOP

¦^´_ 4# GBKEE


    :funk: :L ;P
ÁÂÁ«ü±ÐÅo
jeason

TOP

¦^´_ 3# brabus
¥i¥H¦Û¤v§R°£¦Û¤v¤F
ÁÂÁ donald ªº´£¿ô, ¨Ï¥ÎChangeFileAccess xlReadOnly
­nÃö³¬ÀɮתºThisWorkbookµ{§Ç
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     With Me
  3.         .ChangeFileAccess xlReadOnly
  4.         Kill .FullName
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_  brabus
¥i¥H¦Û¤v§R°£¦Û¤v¤F
ÁÂÁ donald ªº´£¿ô, ¨Ï¥ÎChangeFileAccess xlReadOnly
­nÃö³¬Àɮתº ...
GBKEE µoªí©ó 2011-3-20 19:42



    ÁÂÁ°ª¤âªº«ü±Ð
  ¨ü¯q«Ü¤j
  ¦A½Ð°Ý¤@¤U,¬O§_¥i¥H¥Îvba­­¨î¤£Åý¤H½Æ¨î¥»¨­³o­ÓexcelÀɮשO
jeason

TOP

³q±`¥i¥H³]©wÀɮ׶}±Ò®É¿ëÃѵwºÐ§Ç¸¹©Î¨Ï¥ÎªÌ©Î¹q¸£¡K
­Y¤£¬O¹w³]ªº´NÀɮת½±µÃö³¬¤Î§R°£
µLªk¹F¨ì¤£¯à½Æ»s
¦]¬°½Æ»s¬O¦bwindowsÀÉ®×Á`ºÞ´N¥i¥H°µªº¡C

TOP

¦^´_ 7# brabus
§A¬O»¡¥t¦s·sÀɶÜ?
  1. Option Explicit
  2. Private Sub Workbook_Open()  '¶}Àɮɰ±¥Î [¥t¦s·sÀÉ] «ü¥O
  3.       CommandBars(1).Controls(1).Controls(5).Enabled = False
  4. End Sub
  5. Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ÃöÀɮɫì´_  [¥t¦s·sÀÉ] «ü¥O
  6.     CommandBars(1).Controls(1).Controls(5).Enabled = True
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE


    ¤£¬O©O
§Ú­ì¨Ó·Qªº¬O¨S¥´¶}excel´N¤£Åý¤Hcopy,¦n¹³¤£¥i¯à®@,¦]¬°¤W­±ªº¤j¤j»¡³o¬OwindowsªºÀÉ®×Á`ºÞ¨Æ¤£¬Oexcelªº¨Æ
jeason

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD