ªð¦^¦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

^^ ³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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD