Hsieh

回復 9# united7878
先執行

1. Sub xx()
   
2. Application.EnableEvents = True
   
3. End Sub

複製代碼

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. With Sh
   
3. If Target.Address = "$F$2" And IsDate(Target) Then
   
4. Sh.Unprotect "0000"
   
5. Application.EnableEvents = False
   
6. Select Case Format(.[F2], "m/d")
   
7. Case "1/1"
   
8. x = "王小明"
   
9. Case "1/2"
   
10. x = "李小華"
    
11. Case "1/3"
    
12. x = "張小美"
    
13. End Select
    
14. .[N3] = x
    
15. Application.EnableEvents = True
    
16. Sh.Protect "0000"
    
17. End If
    
18. End With
    
19. End Sub

複製代碼

united7878

多謝Hsieh 版大的指導
原來少了一道解密還原的程序使得儲存格無法變更
沒腦的我搞半天不得其解
多虧了大大 讓我對VBA有更近一步的認知
謝謝!!