返回列表 上一主題 發帖

屏蔽密碼

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
passwordInputbox.zip (13.7 KB)
學海無涯_不恥下問

TOP

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
3#
發表於 2014-5-26 17:22 | 只看該作者
本帖最後由 vinejason 於 2014-5-26 17:24 編輯
回復  vinejason
Hsieh 發表於 2014-5-26 14:31

平安
謝謝超級版主撥空回覆
無止盡的努力上進

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題