Hsieh

¦^´_ 3# aevilwitch

1. Private Sub Workbook_Open()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. ar = Array("±ÄÁÊ", 123, "³æ¦ì¥DºÞ", 456, "¶ñ³æ¤H", 789) '±b±K¸ê®Æ°}¦C
   
4. For i = 0 To UBound(ar) - 1
   
5.    d(ar(i)) = CStr(ar(i + 1))
   
6. Next
   
7. user = InputBox("¿é¤J¨Ï¥ÎªÌ")
   
8. 10
   
9. pw = InputBox("¿é¤J±K½X")
   
10. If d(user) = pw Then
    
11. With ¤u§@ªí1
    
12. .CheckBox3.Enabled = (user = "±ÄÁÊ")
    
13. .CheckBox1.Enabled = (user = "³æ¦ì¥DºÞ")
    
14. .CheckBox4.Enabled = (user = "¶ñ³æ¤H")
    
15. End With
    
16. Else
    
17. MsgBox "±K½X¿ù»~"
    
18. GoTo 10
    
19. End If
    
20. End Sub

½Æ»s¥N½X