[發問] 請問如何在excel中設定帳號密碼??(以解決)

棋語鳥鳴

請問:如果我想以Sheet1之B、C欄為帳號密碼的條件，一開啟EXCEL檔時，則出現輸入帳號密碼，只有在Sheet1之B、C欄顯示的20組帳號密碼才能開啟此檔案，請問此巨集要如何設定??
帳密設定.rar (7.36 KB)

下載次數: 16

2011-7-8 21:48

由衷感謝"GBKEE"版主，為本帖子細心的回答，本帖以測試無誤~

GBKEE

回復 1# 棋語鳥鳴
試試看


    帳密設定..rar (11.04 KB)

下載次數: 31

2011-7-9 10:13

棋語鳥鳴

回復 2# GBKEE
測試OK.....但是在請問一下!如果我想把"Sheet1" 隱藏起來，要如何修改表單密碼中的巨集呢??

GBKEE

回復 3# 棋語鳥鳴
Sheet1.Visible = xlSheetVeryHidden   '完全隱藏 只可用 VBA 取消隱藏
Sheet1.Visible = xlSheetHidden           '隱藏 可在工作表指令->格式->工作表-> 取消隱藏
Sheet1.Visible = xlSheetVisible             '取消隱藏

棋語鳥鳴

回復 4# GBKEE

這3個我知道!但是卻不知道要加在哪一個鈕的程式碼裡??
另外有個問題，如果用隱藏，那一開始應該要取消隱藏工作表，最後在加上隱藏工作表!這樣他一取消時，不就帳號密碼都被看光了???
還是在前面又要加上application.screenupdating = false，讓它不顯示出來??

GBKEE

回復 5# 棋語鳥鳴
application.screenupdating ->，螢幕更新 (輸入)   不是讓它不顯示出來??

這3個我知道!但是卻不知道要加在哪一個鈕的程式碼裡??
放置密碼的工作表是管理者才有權限修改,本來就不該置於第一個工作表,任何使用者於輸入密嗎後進入檔案立即可見啊!!!
請看新版

帳密設定..rar (18.72 KB)

下載次數: 60

2011-7-11 10:32

棋語鳥鳴

回復 6# GBKEE

這次就可以了!不過有個地方怪怪的??
我在帳號那裡輸入管理者的帳號
在密碼輸入別組的密碼例如UUU的"123"，這樣也能登入耶??而且也能進入密碼表??不知是哪出了錯誤?導致這樣!!
另外在詢問一下!如何在輸入密碼時讓密碼以"*"號顯示!Thank you ~~

GBKEE

回復 7# 棋語鳥鳴
是怪怪的,修正密碼表單如下.

1. Option Explicit
   
2. Dim P As Integer, 密碼區 As Range
   
3. Private Sub UserForm_Initialize()
   
4.     Set 密碼區 = Sheet1.Range("A2", Sheet1.[C2].End(xlDown))
   
5.     TextBox2.PasswordChar = "*"   '(僅英文輸入模式)  入密碼時讓密碼以"*"號顯示
   
6. End Sub
   
7. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
8.     If CloseMode = 0 Then Cancel = 1                  '停止用表單( X ) 關閉表單
   
9. End Sub
   
10. Private Sub CommandButton1_Click()
    
11.     Dim R(2 To 3) As Range
    
12.     Dim WshShell As Object, BtnCode As Integer
    
13.     Set WshShell = CreateObject("WScript.Shell")
    
14.     Set R(2) = 密碼區.Columns(2).Find(TextBox1.Text, LookAt:=xlWhole, MatchCase:=True) '尋找帳號
    
15.     Set R(3) = 密碼區.Columns(3).Find(TextBox2, LookAt:=xlWhole, MatchCase:=True)      '尋找密碼
    
16.     If Not R(2) Is Nothing And Not R(3) Is Nothing Then   '找到帳號與密碼
    
17.         If R(2).Row = R(3).Row Then '帳號與密碼同一列
    
18.             BtnCode = WshShell.popup("登入者 :" & 密碼區(R(2).Row, 1), 3, "登入訊息")
    
19.             ThisWorkbook.權限 = 密碼區(R(2).Row, 1)
    
20.             Unload Me
    
21.         End If
    
22.     End If
    
23.     P = P + 1
    
24.     If P > 2 Then
    
25.         CommandButton1.Caption = "登入失敗了"
    
26.         Unload Me
    
27.         BtnCode = WshShell.popup("檔案需關閉" & Chr(10) & Chr(10) & "登入:帳號,密碼.. 錯誤", 3, "登入失敗")
    
28.             'ThisWorkbook.Close False    '***  測試期間暫且不  關閉檔案 **
    
29.     Else
    
30.         CommandButton1.Caption = "登入次數 剩 " & 3 - P & " 次"
    
31.     End If
    
32. End Sub

複製代碼

brabus

我們有可能用passwore:=a1
而a1用b1或c1的儲存格的值都可以解密碼嗎

freeffly

回復 4# GBKEE


    那各xlsheetveryhidden真是厲害的方式
   從一般excel介面看不出來有被隱藏的工作表
   不過我原本使用隱藏跟顯現的方式是用false 跟 true
    效果一樣不知道有沒有差別