GBKEE

¦^´_ 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. 
    
14. End Sub

½Æ»s¥N½X