12
返回列表 上一主題 發帖

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

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
250  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2011-12-23 23:58 | 只看該作者
本帖最後由 Hsieh 於 2011-12-23 23:59 編輯

回復 10# joychiangg
刪除所有工作表模組內的程序
Thisworkbook模組
  1. Private Sub Workbook_Open()
  2.     Sheets("sheet1").Select
  3. End Sub

  5. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  6. NoData Sh.Name
  7. End Sub
複製代碼
一般模組
  1. Sub NoData(sht As String)
  2. With Sheets(sht)
  3. If sht = "Sheet1" Then Exit Sub
  4.    .Cells.Font.ColorIndex = 2
  5.    .Cells.Interior.ColorIndex = 2
  6.    pwd = Application.InputBox("請輸入密碼:")
  7.    Select Case sht
  8.    Case "中山"
  9.    p = 40
  10.    Case "東台北"
  11.    p = 13
  12.    Case "建北"
  13.    p = 48
  14.    End Select
  15. If pwd = CStr(p) Or pwd = 6309 Then
  16. Range("A1").Select
  17. Cells.Interior.ColorIndex = xlNone
  18. .Cells.Font.ColorIndex = xlColorIndexAutomatic
  19. Else
  20. MsgBox "輸入錯誤，請從新選擇!!"
  21. Sheets("sheet1").Select
  22. End If
  23. End With
  24. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2011-12-23 18:27 | 只看該作者
本帖最後由 GBKEE 於 2011-12-23 18:30 編輯

回復 10# joychiangg
加入ThisWorkbook 的預設事件
  1. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  2.     If Sh.Name <> "Sheet1" Then
  3.         Sh.Cells.Interior.ColorIndex = 2
  4.         Sh.Cells.Font.ColorIndex = 2
  5.     End If
  6. End Sub
複製代碼

TOP

joychiangg

帖子
13 
主題
6 
精華
0 
積分
55 
點名
0  
作業系統
office 
軟體版本
office2003 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2010-11-8 
最後登錄
2016-3-31 

論壇贊助勳章
10#
發表於 2011-12-22 22:11 | 只看該作者
score.zip (124.83 KB)
我的文件如附…
Joy

TOP

davidoff

帖子
10 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2011-11-23 
最後登錄
2012-11-27 
9#
發表於 2011-11-24 13:11 | 只看該作者
回復 7# joychiangg

你該不會一開始只有sheet2有上色和要求密碼吧？
其他不想讓人看到的工作表也要記得在一開始就一併設定好喔。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2011-11-24 11:54 | 只看該作者
回復 7# joychiangg
上傳你的檔案看看

TOP

joychiangg

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

tata211

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

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
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

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

        靜思自在 : 多做多得。少做多失。
12
返回列表 上一主題