返回列表 上一主題 發帖

請教一個sheets單個加密的問題, 煩請大大賜教

tata211

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

收藏 分享

tata211

帖子
27 
主題
3 
精華
0 
積分
35 
點名
0  
作業系統
xp 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-10-21 
最後登錄
2017-3-28 
2#
發表於 2011-10-24 12:40 | 顯示全部帖子
回復 2# hugh0620


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

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

又再麻煩大大們了

TOP

tata211

帖子
27 
主題
3 
精華
0 
積分
35 
點名
0  
作業系統
xp 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-10-21 
最後登錄
2017-3-28 
3#
發表於 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

tata211

帖子
27 
主題
3 
精華
0 
積分
35 
點名
0  
作業系統
xp 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-10-21 
最後登錄
2017-3-28 
4#
發表於 2011-10-26 12:07 | 顯示全部帖子
呵~ 看來不是我能掌握的東西
看了一小時都不知如何入手

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題