Board logo

標題: 屏蔽密碼 [打印本頁]

作者: vinejason    時間: 2014-5-26 11:10     標題: 屏蔽密碼

平安
請教有效屏蔽權限密碼
輸入 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
作者: Hsieh    時間: 2014-5-26 14:31

本帖最後由 Hsieh 於 2014-5-26 14:44 編輯

回復 1# vinejason


    http://blog.xuite.net/crdotlin/e ... x%E5%87%BD%E6%95%B8
[attach]18372[/attach]
作者: vinejason    時間: 2014-5-26 17:22

本帖最後由 vinejason 於 2014-5-26 17:24 編輯
回復  vinejason
Hsieh 發表於 2014-5-26 14:31

平安
謝謝超級版主撥空回覆




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)