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

[µo°Ý] EXCEL³]©w¬Y¤é´Á¨ìÀÉ®×µLªk¶}±Ò

ÁÂÁ¼ӤW¤j¤j,¥i¬O§Ú¥Î¤F¤§«á,¶}±ÒÀÉ®×¥X²{¡G
§ÚÂI "¬O"¸ò"§_"ÀÉ®×¥i¥HÃö³¬¨S¿ù,¦ý¬O§ÚÂI"¨ú®ø",´N¤£·|¦Û°ÊÃö³¬,¦Ó¥BÁÙ¥i¥H¨Ï¥Î¥¨¶°!! «ç»ò¿ì!?


Private Sub Workbook_Open()
    Dim MyDate As Date
    MyDate = #4/4/2015#
    If Date >= MyDate Then Application.Quit
End Sub
¤p«B

TOP

¦^´_ 21# hueywen_jia

ThisWorkbook¼Ò²Õªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Workbook_BeforeClose(Cancel As Boolean) '¬¡­¶Ã¯ªº¹w³]¨Æ¥óµ{§Ç(Ãö³¬Àɮ׮ɦ۰ʰõ¦æ)
  3.     Me.Save
  4. End Sub
½Æ»s¥N½X
¬¡­¶Ã¯¼Ò²Õªº¹w³]¨Æ¥óÁÙ¦³³\¦h,¥i½m²ß¬Ý¬Ý
¤u§@ªí¼Ò²Õ¤@¼Ë¦³³\¦hªº¹w³]¨Æ¥ó


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁ¼ӤW¤j¤j,¥i¬O§Ú¥Î¤F¤§«á,¶}±ÒÀÉ®×¥X²{¡G
§ÚÂI "¬O"¸ò"§_"ÀÉ®×¥i¥HÃö³¬¨S¿ù,¦ý¬O§ÚÂI"¨ú®ø",´N¤£·|¦Û°Ê ...
hueywen_jia µoªí©ó 2015-4-9 20:46

©³¤U³o­Ó¤è¦¡§Y¨ÏÀɮ׳]¦¨°ßŪ, ¤]·Ó¼Ë¯àÃö³¬ÀÉ®×:
  1. Private Sub Workbook_Open()
  2.     Dim MyDate As Date
  3.    
  4.     MyDate = #4/4/2015#
  5.     If Date >= MyDate Then
  6.       With Application
  7.         .DisplayAlerts = False
  8.         .Quit
  9.       End With
  10.     End If
  11. End Sub
½Æ»s¥N½X

TOP

­n«ü©w¬Y¤é«á¥¨¶°µLªk¨Ï¥Î¡A¤]¥i¥H§ïÅÜÅçÃҤ覡¡C
«ü©w¤é´Á¡A¦p¤W­±«e½ú©Ò¼gªº¡A
IF DATE > "¤é´Á" THEN
Ãö³¬¬¡­¶Ã¯
END IF

§ïÅÜÅçÃҤ覡¡A¥i¥H°t¦XGOOGLE  ¸Õºâªí¡C(¥i³]©w¤£Åã¥Üºô­¶)
¬¡­¶Ã¯¥´¶}¡A¦Û°Ê¥´¶}ºô­¶¡A¶i¤JGOOGLE ¸Õºâªí¡A¥h§ì«ü©wÄæ¦ìªº­È¡A¦pªG­È¸ò§A¨Æ¥ý¿é¤JVBAªº­È¬Û¦P¡A´NÄ~Äò¡C¦pªG­È¤£¬Û¦P¡A´N±j¨îÃö³¬¬¡­¶Ã¯¡C

³o¤è¦¡¤ñ¸û¨ã¦³¼u©Ê¡C

TOP

·PÁÂluhpro,ÁöµM§Aªº³]©w¬O¥i¦¨¥\,¦ý¬O¹³§Ú³o»ò¤pÁo©úªºÁÙ¬O¦³ªk¯}¸Ñ,§Ú¬Û«HÀ³¸ÓÁÙ¬O¦³¤H¥i¥H¯}¸Ñ,¥u­n§â¹q¸£®É¶¡§ï¦b§Ú³]©wªº¤é´Á«e,ÁÙ¬O¥i¥H¶}±Ò~~³oÂI¦n¹³«ÜÃøÅý¥¦¤£¦¨¥\«p.......
©Ò¥H§Ú¤]«ÜÀYµh!!
¤p«B

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2015-4-13 00:18 ½s¿è
·PÁÂluhpro,ÁöµM§Aªº³]©w¬O¥i¦¨¥\,¦ý¬O¹³§Ú³o»ò¤pÁo©úªºÁÙ¬O¦³ªk¯}¸Ñ,§Ú¬Û«HÀ³¸ÓÁÙ¬O¦³¤H¥i¥H¯}¸Ñ,¥u­n§â¹q ...
hueywen_jia µoªí©ó 2015-4-12 22:42

¨ä¹ê¤£½×¬O«ç¼Ëªº«OÅ@³£¦³¥i¯à³Q¯}¸Ñ.

³Ì²³æªº¤èªk¬O¨ú±oÀɮ׫á,
¥ý»s§@¨ä³Æ¥÷,
±µµÛ´N¬O¥Ù»P¬Þªº°ÝÃDÅo.

§Ú¤]´¿·Q¹L¤é´Á¨ì¤F®Éª½±µ§R°£¦Û¨­ÀÉ®×,
¤£¹L¥u­n¨Ì¤W­z¥ý°õ¦æ¹L,
¹J¨ì¤£¯à¥Î®É¥ý§ï¤é´Á«á¦ACopy¦^¥h·Ó¼Ë¯àÄ~Äò¨Ï¥Î,
°£«DÀɮפº¸ê®Æ»P¥Ø«e¤é´Á¦³¥¿¬ÛÃö,
¤é´Á¤£¹ïµ²ªG´N¤£¨ã°Ñ¦Ò»ù­È,
·íµM¨º¤S¬O¥t¤@ºØ¯}¸Ñ¤è¦¡¤F.

©ÎªÌ¼g°Ñ¦Ò­È¨ìµn¿ýÀÉ°õ¦æ®É¥ß§Y§@¤ñ¹ï,
¼g°Ñ¦Ò­È¨ì¥t¤@­Ó¥[±KÀɮ׸Ì...µ¥µ¥,
·íµM...ÁÙ¬O¥»½g¶}ÀY¨º¥y¸Ü...

«áÄò¦A¸É¥R:
©ÎªÌ­Y½T»{¹q¸£¶}±ÒÀɮ׮ɤ@©w·|¤Wºô,
¨º»ò¤é´Áª½±µ¸ò°ê®a®É¶¡»PÀW²v¼Ð·Ç¹êÅç«Ç§ì,
³o¼Ë§ï¹q¸£¥»¨­¤é´Áªº¯}¸Ñ¤è¦¡´N¨S¦³¥Î¤F.

TOP

¨º»ò½Ð°Ýluhpro¤j¤j~~
±z¥i·|¼g¤é´Á¤@¨ì´Nª½±µ§R°£¸ÓÀÉ©O? ³o­Ó¤£¿ù!! ¦]¬°¤£·|¦³¤H·Q¨ì,´Nºâ§ï¦^¤é´Á,ÀÉ®×ÁÙ¬O¨S±o±Ï¤F!!  ÁÂÁÂ
¤p«B

TOP

¨º»ò½Ð°Ýluhpro¤j¤j~~
±z¥i·|¼g¤é´Á¤@¨ì´Nª½±µ§R°£¸ÓÀÉ©O? ³o­Ó¤£¿ù!! ¦]¬°¤£·|¦³¤H·Q¨ì,´Nºâ§ï¦^¤é´Á,ÀÉ®× ...
hueywen_jia µoªí©ó 2015-4-15 23:42

ºô¸ô¤W§ä¨ìªº:
§R°£¥¨¶°©Ò¦bªº¬¡­¶Ã¯

TOP

¦^´_ 28# luhpro

¤U¦C¥¨¶°·|¥ý±NÀÉ®×¥»¨­§ï¥H°ßŪªº¤è¦¡¶}±Ò¡A¦A§R°£­ì¨ÓªºÀɮסAµM«áÃö³¬°ßŪÀÉ¡C

¥i¥Î©ó­­¨îÀɮתº¨Ï¥Î´Á­­¡A´Á­­¤@¨ì´N§R°£ÀɮסC

¥i¬O§Ú­n¦b­þ³]©w¤é´Á©O?  ¬Ý¤£À´,¦]¬°§Ú¤£À´¥¨¶°¤¤ªº¤½¦¡

Sub §R°£¦Û¤v()
    ThisWorkbook.Saved = True
    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
    Kill ThisWorkbook.FullName
    ThisWorkbook.Close SaveChanges:=False
End Sub
¤p«B

TOP

¥»©«³Ì«á¥Ñ hueywen_jia ©ó 2015-4-28 00:06 ½s¿è

¨S¦³¤H¦^À³§Ú......¦³¨S¦³¥i¥HÀ°À°§Ú§r~~ÁÂÁÂ
¤p«B

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD