- 帖子
- 6
- 主題
- 3
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- 1
- 閱讀權限
- 10
- 註冊時間
- 2013-5-2
- 最後登錄
- 2019-11-21
|
If Date > DateValue("2015/05/01") Then
MsgBox ("已超使用期間，不可使用。請求助開發者!!")
Exit Sub
End If
Q1 = Application.InputBox(prompt:="請輸入製作者名稱：")
If Q1 = "Vercent" Then
Else: MsgBox "密碼錯誤，即將退出！"
ActiveWorkbook.Close savechanges = False
End If |
|
發表於 2015-5-5 16:59
| 