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

[­ì³Ð] ¨Ï¥ÎVBA¶}±Ò¥t¤@­Ó±a¦³Àɮ׫OÅ@ªºEXCELÀÉ

[­ì³Ð] ¨Ï¥ÎVBA¶}±Ò¥t¤@­Ó±a¦³Àɮ׫OÅ@ªºEXCELÀÉ

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-2-19 16:05 ½s¿è

³o¤@«h¬O«Ü²³æªº¤@­Ó¤p§Þ¥©»P·Qªkªº¹ê²{

¹B¥Î®É¾÷»P·Qªk:
1.Àɮצ³³]©w«OÅ@±K½X®É¡A¤£·Q¸ò§O¤H»¡±K½X
2.Àɮצ³³]©w«OÅ@±K½X®É¡A©È±K½X§Ñ°O
3.Àɮצ³³]©w«OÅ@±K½X®É¡A¤£·Q¨C¦¸¦Û¤v¥´±K½X
µµ·L¤æ¼Æ±Æ½Lµ{¦¡.part1.rar (1.43 MB)
µµ·L¤æ¼Æ±Æ½Lµ{¦¡.part2.rar (1018.94 KB)
µµ·L¤æ¼Æ±Æ½Lµ{¦¡KEY.rar (5.07 KB)

P.S.
4.KEY»s¦¨EXEÀɮɥiÅýKEYÀÉ»PKEY©Ò¶}±ÒªºÀÉ®×Á׶}¥¨¶°¦w¥þ³]©w
¤]¬O¤@­Ó¡AÀɮצ³³]©w«OÅ@±K½X®É¡AÀÉ®×Á׶}¥¨¶°¦w¥þ³]©wªº¤@­Ó¤èªk

µµ·L¤æ¼Æ±Æ½Lµ{¦¡KEYexed.rar (6.66 KB)

§Ú­Ì¦bThisWorkbook ¤¤¿é¤J¤U¦C²³æµ{§Ç´N¥i§¹¦¨
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3. On Error GoTo ERROR1
  4. Dim pa As String
  5. pa = Application.GetOpenFilename
  6. Workbooks.Open Filename:=pa, Password:="11686106"
  7. ERROR1: ThisWorkbook.Close
  8. End Sub
½Æ»s¥N½X

³Q'¨¾¬rÀɦí¤F= =

TOP

^^ ³o­ÓKEY.EXE ½T¹ê·|³Q¨¾¬r³nÅé ¹jÂ÷

·íµM³o­ÓKEY ªºVBA¥N½X¤w¸g ©ñ¤W¨Ó¤F³\¤[
§Ú­Ì¥i¥HÀH®É¥ÎEXCELÀÉ©ñ¤JVBA¥N½X§@¤@­Ó·sªºKEYÀÉ
¥u¬O¨S¦³§@¦¨EXEÀÉ

TOP

HUNGCHILIN ¥S
  ½Ð±Ð KEYexed ÀɦpªGª½±µÁä¤J¦b¬Y­Ó XLS¤º (Sheet1.xls)¦Ó¦¹Sheet1.xls©ñ¦b®à­±¤W¬O§_¥i¦æ
(§Y¦w¥þ©Ê¬°°ª©Î³Ì°ª§¡¿Å°õ¦ævba) ¦]¬°§Ú¸ÕµÛ°õ¦æ§AªºKEYexedÀÉ = pa¬O¿ï¶µ
§Ú·Q·íª½±µ°õ¦æ¦b®à­±¤WªºSheet1.xlsÀɮɤ£ºÞ¨ä¦w¥þ©Ê¦p¦ó§¡¥i°õ¦ævba

TOP

¦^´_ 4# jim


1.·íµM¤£¥i¦æ.¦]¬°ÀÉ®×±K½X°õ¦æ¶¶§ÇÀu¥ý©óvba
2.§A¬ã¨s¤@¤U³o¤@«hhttp://forum.twbts.com/viewthread.php?tid=5892&highlight=
3.©ÎªÌ¥i¥H¨Ï¥Î ¼Æ¦ìñ¦W¥\¯à

TOP

¦^´_ 5# HUNGCHILIN
¤F¸Ñ  ¬ã¨s¤¤ thanks

TOP

¥»©«³Ì«á¥Ñ linshin1999 ©ó 2012-3-30 00:27 ½s¿è

ªü¦NÁÙ¦b,§AªºÄ_¨©ªø±o¯u¥i·R¤F,§Ú­Ì®aªº¤w¸g¤p¤»¤F,«Ü¤[没¨Ó³o¸Ì³}¤F,¦]¬°§Ú¸I¨ìªº°ÝÃD³£³Q§A­Ì¸Ñ¨M¤F,©Ò¥H´N«Ü¤Ö¨Ó¤F,¤£¹L«Ü·PÁ§A!!
V98

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD