帖子: 27
主題: 3
精華: 0
積分: 35
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2011-10-21
最後登錄: 2017-3-28

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-10-21 15:58 | 只看該作者

請教一個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)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-18

2^#

發表於 2011-10-21 16:56 | 只看該作者

回復 1# tata211

在下圖中的位置加入程式碼~ 就可以在每次儲存後~ 再重新打開時~ 會選擇總表

學習才能提升自己

TOP

tata211

小學生 Rank: 1

帖子: 27
主題: 3
精華: 0
積分: 35
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2011-10-21
最後登錄: 2017-3-28

3^#

發表於 2011-10-24 12:40 | 只看該作者

回復 2# hugh0620

感謝大大的回覆
終於接近我想要的情況了

可是再想請問
能不能設定兩個密碼同時成立?
一個是給管理者使用
另一個是用戶?

又再麻煩大大們了

TOP

tata211

小學生 Rank: 1

帖子: 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"為開頭
有方法改改成字串形式呢?
英文+數字+符號那更完美了
望大大出手相助

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-18

5^#

發表於 2011-10-25 09:14 | 只看該作者

本帖最後由 hugh0620 於 2011-10-25 09:16 編輯

回復 4# tata211

其實不用想的太複雜~ 你可以將密碼的儲存格格式改成文字格式~
這樣不管是數字/英文/.... 任何格式都可以~
只是在撰寫程式碼時~ 要稍加注意一下~

下面是我之前仿一位大大所寫的使用一個sheet來管理帳密~提供給你參考~
希望對你有幫助~
http://forum.twbts.com/viewthread.php?tid=2543&highlight=

學習才能提升自己

TOP

tata211

小學生 Rank: 1

帖子: 27
主題: 3
精華: 0
積分: 35
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2011-10-21
最後登錄: 2017-3-28

6^#

發表於 2011-10-26 12:07 | 只看該作者

呵~ 看來不是我能掌握的東西
看了一小時都不知如何入手

TOP

joychiangg

中學生 Rank: 2

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

TOP

GBKEE