GBKEE

¦^´_ 1# mycmyc
¦³°ÝÃDªþÀɤW¨Ó·|²M·¡¨Ç!

Module1 ªºµ{¦¡½X

1. Public ±K½X, Rng As Range
   
2. 'Public ->ÅܼƤ½¥Î©ó¦¹±M®×
   
3. Private Sub Auto_Open()       '¤@¯ë Module¤¤ ¶}±ÒÀɮ׮ɷ|¦Û°Ê°õ¦æªºµ{§Ç
   
4.     ±K½X = "1234"
   
5.     With Sheet(1)                                   '«ü©wªº¤u§@ªí
   
6.         .Activate
   
7.         .Unprotect ±K½X                             '¨ú®ø¤u§@ªí«O
   
8.         .Cells.Locked = True                        'Àx¦s®æÂê©w
   
9.         .Cells.FormulaHidden = True                 'Àx¦s®æÁôÂÃ
   
10.         Set Rng = .Cells(.UsedRange.Rows.Count + 1, 1)
    
11.         'Rng  ³]©w¤w¨Ï¥Î½d³ò²Ä1Äæ³Ì«áªº¤U¤@­ÓªÅ¥ÕÀx¦s®æ
    
12.         Rng.Locked = False
    
13.         Rng.FormulaHidden = False
    
14.         .Protect ±K½X                               '¤u§@ªí³]©w«OÅ@
    
15.     End With
    
16.     Rng.Select
    
17. End Sub

½Æ»s¥N½X

Sheet(1)ªºµ{¦¡½X

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Rng.Value <> Date Then
   
3.         Unprotect ±K½X                             '¨ú®ø¤u§@ªí«O
   
4.         Cells.Locked = True                        'Àx¦s®æÂê©w
   
5.         Cells.FormulaHidden = True                 'Àx¦s®æÁôÂÃ
   
6.         Rng.Locked = False
   
7.         Rng.FormulaHidden = False
   
8.         Protect ±K½X                               '¤u§@ªí³]©w«OÅ@
   
9.     ElseIf Rng.Value = Date Then
   
10.         Unprotect ±K½X                             '¨ú®ø¤u§@ªí«O
    
11.     End If
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# mycmyc

1. Private Sub Auto_Open()       '¤@¯ë Module¤¤ ¶}±ÒÀɮ׮ɷ|¦Û°Ê°õ¦æªºµ{§Ç
   
2.     Dim E As Range, ±K½X As String
   
3.     ±K½X = "1234"
   
4.     With Sheet1                                 '«ü©wªº¤u§@ªí
   
5.         .Unprotect ±K½X                             '¨ú®ø¤u§@ªí«O
   
6.         .Cells.Locked = False                        '¨ú®øÀx¦s®æÂê©w
   
7.         .Cells.FormulaHidden = False                 '¨ú®øÀx¦s®æÁôÂÃ
   
8.         For Each E In .UsedRange.Columns(1).Cells
   
9.             If IsDate(E) And E < Date Then E.EntireRow.Locked = True
   
10.         Next
    
11.         .Protect ±K½X                               '¤u§@ªí³]©w«OÅ@
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Application.Intersect(Target, UsedRange.Columns(1)) Is Nothing Then Run "Module1.Auto_Open"
   
3. End Sub

½Æ»s¥N½X