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

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

taliban2008

中學生 Rank: 2

帖子: 13
主題: 2
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2011-3-9
最後登錄: 2016-8-26

8^#

發表於 2011-4-22 08:23 | 只看該作者

原來是密碼已經加密
所以永遠不會正確 XD
謝謝您的指導
非常感謝您

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

taliban2008