[發問] 請問一下 &quot;VBA驗證密碼的問題&quot; ?

帖子: 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
有大哥可以指導一下嗎
還是我需要上傳檔案?
非常感謝

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

2^#

發表於 2011-4-19 17:27 | 顯示全部帖子

本帖最後由 taliban2008 於 2011-4-19 17:28 編輯

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

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

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

3^#

發表於 2011-4-19 18:20 | 顯示全部帖子

好的謝謝您
修改好就傳上來

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

4^#

發表於 2011-4-21 14:01 | 顯示全部帖子

版主大人您好
我上傳檔案了
麻煩請您幫忙查一下
非常感謝您

密碼驗證測試檔.rar (798.74 KB)
我是寫在這邊
Private Sub Workbook_Open()
If ActiveWorkbook.Password <> "0000" Then
MsgBox "改啥密碼!?"
不知道是那裡有問題
就算我密碼是0000
一開啟workbook也是跳"改啥密碼"
是密碼沒寫入嗎?
但是我去輸入0000都可以解除
還是說上面語法是錯的?
非常感謝您

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

5^#

發表於 2011-4-22 08:23 | 顯示全部帖子

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