ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel®Ö¨ú¤è¶ô¥i³]¸mÅv­­¶i¦æ¤Ä¿ï¶Ü?

[µo°Ý] Excel®Ö¨ú¤è¶ô¥i³]¸mÅv­­¶i¦æ¤Ä¿ï¶Ü?

§Q¥Î®Ö¨ú¤è¶ô¶i¦æ¼f®Ö½T»{,¦ý¦P¤@±iªí¥i¯à»Ý­n2~3¤H¶i¦æ¤£¦P¼h¯Å¼f®Ö
¬O§_¥i±N®Ö¨ú¤è¶ô³]©w»Ý¿é¤J±K½X,¤~¥i¶i¦æ¤Ä¿ï©Î¨ú®ø?

¥¼»¡©ú¡e®Ö¨ú¤è¶ô¡f¬O­þºØª«¥ó¡H¤u§@ªí¡Dªí³æ¡D±±¨î¤u¨ã½c¡A¨ä³]¸m¤è¦¡À³³£¤£¬Û¦P¡A
³Ì¦n¤W¶ÇÀɮסã¡ã¡ã

¤@¯ë¦b¨Ï¥ÎªÌ¶}±Òªí®æ«e¡A´N¥i®Ú¾ÚÅv­­¥h³]©w­þ¨Çª«¥ó¥i¾Þ§@¡A¤èªk¦³¡eÂê©w©Î¶}©ñ¡f¡eÁôÂéÎÅã¥Ü¡f

TOP

­ã´£³¡ªL¤j¤j,

§Ú¦³¦b³¡¸¨®æ¤U¸ü¤F¤À¨Éªº"³]©w¡e¤£¦P¨Ï¥ÎªÌ¡f¹ïÀɮתº¡e¨Ï¥ÎÅv­­¡f"
§Ú»Ý­nªº¬O¤U¤è®Ö¨ú¤è¶ô¦b¸g¥Ñ¿é¤J±b¸¹±K½X,¥i¥H°w¹ï¤£¦Pªº¨Ï¥ÎªÌ¶}©ñ¤Ä¿ïªºÅv­­

¬¡­¶Ã¯1.zip (13.24 KB)

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh,¤Ó·PÁ¤F....
¥¿¬O§Ú©Ò»Ý­nªºÅã¥Ü¤èªk,
ÁÂÁÂ...ÁÂÁÂ....ÁÂÁ­ò

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD