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

[µo°Ý] ½Ð°Ý¦p¦ó¼u¥Xµøµ¡0..0

[µo°Ý] ½Ð°Ý¦p¦ó¼u¥Xµøµ¡0..0

¤p§Ì¦b°õ¦æµ{¦¡½X®É,¬O§_¥i¥HÅý¥L¼u¥Xµøµ¡¬O§_§@½T»{°õ¦æ!
¦pªþ¥ó!
¤p§Ì¬Ý¥H©¹ªº°ÝÃD¤å³¹...>W< EXCELªºVB·|¥X²{DLLµLªkÅã¥Ü!
½Ð°Ý¬O§_¥i¥H±Ð±Ð¤p§Ì¦p¦óÅý¥L¼u¥Xµøµ¡...

Q2.rar (7.67 KB)

Q2.rar (7.67 KB)

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-28 22:23 ½s¿è
  1. Sub °õ¦æ()

  2. yn = MsgBox("¬O§_°õ¦æ", vbOKCancel)
  3. If yn = 1 Then
  4. With Sheets("Á`ªí")
  5. .Unprotect "0000"
  6.   Sheets("key").Range("A2:C5").Copy .[A2]
  7. .Protect "0000"
  8. End With
  9. Sheets("key").Select
  10. End If
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

yn = MsgBox("¬O§_°õ¦æ", vbOKCancel)
If yn = 1 Then
End If
·PÁ¤j¤jÀ°¦£
ÁÙ¦³½Ð°Ý¤j¤j¥L¤£¯à¨Ì¦Û¤wªº³]©wª©­±¥X²{¶Ü?

TOP

§A­n¥Î¬Æ»ò¼Ëªº¤¶­±?
USERFORM=¦Û§ä³Â·Ð
­Y­n³]©w¤£¦P«ö¶s¡A½Ð°Ñ¾\MsgBoxªºVBA»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD