GBKEE

¦^´_ 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

GBKEE

¦^´_ 3# brabus

¤£¯à§R°£¦Û¤v¹ï¤£¹ï

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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 10# brabus

¬O¦p¦¹¨S¿ù    ¥i¥t¥Î¤èªkÅܳq
    http://forum.twbts.com/viewthrea ... amp;extra=#pid16412