返回列表 上一主題 發帖

[發問] 請問一下 "VBA驗證密碼的問題" ?

taliban2008

帖子
13 
主題
2 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2011-3-9 
最後登錄
2016-8-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-19 09:51 | 只看該作者

[發問] 請問一下 "VBA驗證密碼的問題" ?

各位大哥高手
請問一下
小弟做的excel檔案
因為有很多sheets
每個sheets都有各自的功能
所以用vba來控制
1號啟動就隱藏234號....其他類推
activeworkbook跟activesheet都在activate時就unprotect
程式碼執行完畢再protect並加上密碼
到這裡都沒問題
直到我加上密碼驗證才出現錯誤
我做的密碼驗證之前
如果輸入正確的密碼再改其他密碼並存檔
下次開啟會出現密碼不正確的對話框
但是密碼已經被變更了
我想做的是如果密碼在workbook open階段驗證錯誤
就關畢workbook跟sheet
有大哥可以指導一下嗎
還是我需要上傳檔案?
非常感謝
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-4-19 15:00 | 只看該作者
回復 1# taliban2008
我做的密碼驗證之前,如果輸入正確的密碼再改其他密碼並存檔,下次開啟會出現密碼不正確的對話框,但是密碼已經被變更了

再改為其他密碼  你有存在哪裡嗎?

TOP

taliban2008

帖子
13 
主題
2 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2011-3-9 
最後登錄
2016-8-26 
3#
發表於 2011-4-19 17:27 | 只看該作者
本帖最後由 taliban2008 於 2011-4-19 17:28 編輯

版主大哥您好
小弟可否mail檔案給您看呢
因為是公司的東西
也不好上傳到論壇
不好意思打擾您
若不方便也沒關係的
非常感謝您

哇嗚
小學生什麼權限都沒有
ㄎㄎ

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-4-19 17:40 | 只看該作者
回復 3# taliban2008
可修改工作表的內容上傳來看看

TOP

taliban2008

帖子
13 
主題
2 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2011-3-9 
最後登錄
2016-8-26 
5#
發表於 2011-4-19 18:20 | 只看該作者
好的謝謝您
修改好就傳上來

TOP

taliban2008

帖子
13 
主題
2 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2011-3-9 
最後登錄
2016-8-26 
6#
發表於 2011-4-21 14:01 | 只看該作者
版主大人您好
我上傳檔案了
麻煩請您幫忙查一下
非常感謝您
密碼驗證測試檔.rar (798.74 KB)
我是寫在這邊
Private Sub Workbook_Open()   
If ActiveWorkbook.Password <> "0000" Then
    MsgBox "改啥密碼!?"
不知道是那裡有問題
就算我密碼是0000
一開啟workbook也是跳"改啥密碼"
是密碼沒寫入嗎?
但是我去輸入0000都可以解除
還是說上面語法是錯的?
非常感謝您

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2011-4-21 16:33 | 只看該作者
回復 6# taliban2008
ActiveWorkbook.Protect Password:="0000"   '開啟活頁簿後:設定保護活頁簿使其不被修改時所需的密碼
ActiveWorkbook.Password = "AAAA"             ' 設定開啟指定活頁簿時所需的密碼
If ActiveWorkbook.Password <> "0000" Then   '是永遠成立的
試試 MsgBox ActiveWorkbook.Password 你就知道的

TOP

taliban2008

帖子
13 
主題
2 
精華
0 
積分
83 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2011-3-9 
最後登錄
2016-8-26 
8#
發表於 2011-4-22 08:23 | 只看該作者
原來是密碼已經加密
所以永遠不會正確 XD
謝謝您的指導
非常感謝您

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題