Private Sub Workbook_Open()
If Date - DateSerial(2013, 1, 10) >= 60 Then
Application.EnableCancelKey = xlDisabled
MsgBox "※已超過 VBA 使用期限,除檔案管理者外無法使用本檔案!"
If InputBox("請輸入檔案管理者〔權限密碼〕!") <> "1111" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub作者: Hsieh 時間: 2014-5-26 14:31