- 帖子
- 124
- 主題
- 43
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣台北
- 註冊時間
- 2011-3-16
- 最後登錄
- 2021-10-7
|
屏蔽密碼
平安
請教有效屏蔽權限密碼
輸入 1111 但顯示 ＊＊＊＊
感謝不盡
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 |
|
發表於 2014-5-26 11:10
| 
發表於 2014-5-26 14:31
| 
