請教一個sheets單個加密的問題, 煩請大大賜教
- 帖子
- 27
- 主題
- 3
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-10-21
- 最後登錄
- 2017-3-28
|
請教一個sheets單個加密的問題, 煩請大大賜教
本帖最後由 GBKEE 於 2011-12-23 18:14 編輯
在網上找了好多資料
得到個跟自己差不多想像的東西
Private Sub Worksheet_Activate()
Sheets("sheet2").Cells.Interior.ColorIndex = 2
Sheets("sheet2").Cells.Font.ColorIndex = 2
If Application.InputBox("請輸入密碼:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
Else
MsgBox "輸入錯誤，請從新選擇!!"
Sheets("總表").Select
End If
End Sub
但小弟發現實制使用上出現問題:
例如在"sheet2"上儲存退出
下次再開時直接顯示"sheet2"的內容
那樣根本達不到加密的目的
除非每次都在"總表"下儲存退出
有大大可以幫忙修改嗎?
如不管在那個sheet退出都自動回到"總表"
另外還想加入一個管理員專用的密碼能任意打開每個sheet
煩請大大們出手相助(附上測試文檔) |
-
-
test.rar
(8.46 KB)
|
|
|
|
|
|
|
- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
2#
發表於 2011-10-21 16:56
| 只看該作者
回復 1# tata211
在下圖中的位置加入程式碼~ 就可以在每次儲存後~ 再重新打開時~ 會選擇總表
|
|
|
學習才能提升自己
|
|
|
|
|
- 帖子
- 27
- 主題
- 3
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-10-21
- 最後登錄
- 2017-3-28
|
3#
發表於 2011-10-24 12:40
| 只看該作者
回復 2# hugh0620
感謝大大的回覆
終於接近我想要的情況了
可是再想請問
能不能設定兩個密碼同時成立?
一個是給管理者使用
另一個是用戶?
又再麻煩大大們了 |
|
|
|
|
|
|
|
- 帖子
- 27
- 主題
- 3
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-10-21
- 最後登錄
- 2017-3-28
|
4#
發表於 2011-10-24 15:03
| 只看該作者
本帖最後由 tata211 於 2011-10-24 15:05 編輯
剛又找了些資料研究一下
終於達到可以用兩組以上密碼了
程式以下:
Private Sub Worksheet_Activate()
Sheets("sheet2").Cells.Interior.ColorIndex = 2
Sheets("sheet2").Cells.Font.ColorIndex = 2
pwd = Application.InputBox("請輸入密碼:")
If pwd = 123 Or pwd = 456 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
Else
MsgBox "輸入錯誤，請從新選擇!!"
Sheets("總表").Select
End If
End Sub
但測試只能用數字做密碼
且不能以"0"為開頭
有方法改改成字串形式呢?
英文+數字+符號那更完美了
望大大出手相助 |
|
|
|
|
|
|
|
- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
5#
發表於 2011-10-25 09:14
| 只看該作者
|
|
學習才能提升自己
|
|
|
|
|
- 帖子
- 27
- 主題
- 3
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-10-21
- 最後登錄
- 2017-3-28
|
6#
發表於 2011-10-26 12:07
| 只看該作者
呵~ 看來不是我能掌握的東西
看了一小時都不知如何入手 |
|
|
|
|
|
|
|
- 帖子
- 13
- 主題
- 6
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- office
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- Taiwan
- 註冊時間
- 2010-11-8
- 最後登錄
- 2016-3-31
|
7#
發表於 2011-11-24 11:28
| 只看該作者
非常感謝大大的分享，我爬了好多文終於找到您這篇工作表加密的分享。
小妹我試用後，發現有個小問題：
我的workseet有３個，設好上述之ｖｂａ程式後，按sheet2會跳出視窗要求輸入密碼，
但在該要求輸入密碼視窗後直接按到sheet3，就會顯示出sheet3所有資料，其他資料表內容一樣還是被看光光
請問有無方法可以解決？ |
|
|
Joy
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
8#
發表於 2011-11-24 11:54
| 只看該作者
回復 7# joychiangg
上傳你的檔案看看 |
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 0
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2011-11-23
- 最後登錄
- 2012-11-27
|
9#
發表於 2011-11-24 13:11
| 只看該作者
回復 7# joychiangg
你該不會一開始只有sheet2有上色和要求密碼吧？
其他不想讓人看到的工作表也要記得在一開始就一併設定好喔。 |
|
|
|
|
|
|
|
- 帖子
- 13
- 主題
- 6
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- office
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- Taiwan
- 註冊時間
- 2010-11-8
- 最後登錄
- 2016-3-31
|
10#
發表於 2011-12-22 22:11
| 只看該作者
|
|
Joy
|
|
|
|
|
