GBKEE

¦^´_ 1# man65boy
VBAProjectÄݩʦ³±K½X«OÅ@  ,´NµLªk§R°£Sheet1µ{¦¡°Ïªºµ{¦¡½X.

GBKEE

¦^´_ 5# man65boy
VBAProjectÄݩʦ³±K½X«OÅ@  ,´NµLªk§R°£µ{¦¡½X.

1. '¬¡­¶Ã¯¤u§@ªí,´¡¤JExcle 4.0¥¨¶°ªí,©R¦W¬°"4.0"
   
2. 'ThisWorkbook ¤¤¥[¤J Workbook_Open
   
3. Private Sub Workbook_Open()
   
4.     Sheets("4.0").Visible = 2              '¤u§@ªí²`«×ÁôÂÃ
   
5.     Dim i As Integer
   
6.     If Sheets("4.0").Range("A1") = "" Then '±Ò°Ê½d¥»
   
7.         Sheets("4.0").Range("A1") = Date   '¿é¤J¤é´Á
   
8.     End If
   
9. End Sub
   
10. ''''''''SHEET1 ªºCODE  ''''''''''''
    
11. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
12.     If Date - Sheets("4.0").Range("A1") >= 15 Then Exit Sub  '¥[¤J¦¹±ø¥ó
    
13. End Sub
    
14. '¦sÀɬ°½d¥»µ¹«È¤á

½Æ»s¥N½X

GBKEE

¦^´_ 9# man65boy

1. Sub Ex()
   
2.     For Each sh In ActiveWorkbook.Sheets
   
3.         MsgBox sh.Name
   
4.     Next
   
5. End Sub

½Æ»s¥N½X

HUNGCHILIN¥S ­n¨Ó¯¸¦ì¸m, §A¥i¥H°Ñ¦Ò¥Lªºµo©«

GBKEE

¦^´_ 11# HUNGCHILIN
4.0ªí¡A¤£±Ò¥Î¥¨¶°´NÃö³¬Àɮתº¤èªk¦b¡A2007¥H«áª©¥»¡A·|¥¢®Ä
2007¥H«áª©¥»§Ú¨S¥Î¹L(¸¨¥î¤F), ³o¬O§Úªº¬Ýªk: ÁöµM¤£·|Ãö³¬ÀÉ®×  ¦ý¤]µLªk±Ò¥Î¥¨¶°¤F.¥iºâ¬O¹F¨ì¼Ó¥Dªº¥Øªº.