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

[µo°Ý] ¦p¦ó¸Ñ¨M¡i±Ò¥Î½s¿è¡j

[µo°Ý] ¦p¦ó¸Ñ¨M¡i±Ò¥Î½s¿è¡j

µ{¦¡½X¦p¤U¡G

termdate=dateserial(2017,7,28)
if termdate <= now then
application.displayalerts=false
activeworkbook.changefileaccess xlreadonly
kill activeworkbook.fullname
application.quit
end if
²z½×¤W¬O­n¹ê²{¨Ì³]©w¤é´Á°õ¦æ¦Û°Ê§R°£ÀɮסA
¸g¹q¤l¶l¥ó¶Çµ¹§O¤H«á¡A¥´¶}Àɮ׮ɡA·|¥X²{¨ü«OÅ@ªºÀ˵ø»ÝÂI¿ï¡i±Ò¥Î½s¿è¡j¡A¦ý¬OÂI¿ï«á¥X²{¿ù»~¡G¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼơA¦A­«·s¶}±ÒÀɮ׮ɴN·|¦Û°Ê§R°£¤F¡A
½Ð°Ý³o¼Ëªº°ÝÃD¥i¥H¨Ï¥ÎVba¸Ñ¨M¶Ü¡H
§Ú¬O´µ¦h

¦^´_ 1# reangame
­n±þªºÀÉ®×¥²¶·¬O¥¼¶}±Òªº
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Kill_Name As String, termdate As Date
  4.     If termdate <= Now Then
  5.         Application.DisplayAlerts = False
  6.         With ActiveWorkbook
  7.             .ChangeFileAccess xlReadOnly
  8.             Kill_Name = .FullName
  9.             .Close False  'ÀÉ®×Ãö³¬
  10.         End With
  11.         Kill Kill_Name          Application.Quit
  12.     End If

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

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD