返回列表 上一主題 發帖

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

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

本帖最後由 棋語鳥鳴 於 2011-7-11 21:25 編輯

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


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

請問大大, 如果要同時設多組帳號密碼及權限該怎麼做?謝謝!
在神 的愛裡沒有懼怕

TOP

回復 14# boyao
ThisWorkbook.權限 = 密碼區(R(2).Row, 1) 可以傳回 進入活頁簿是 管理者 或是 使用者 如此可加以限制使用範圍.
如同你現在是小學生 6# 的檔案你尚無權限可下載一般

TOP

回復 8# GBKEE


請問...下面這段
ThisWorkbook.權限 = 密碼區(R(2).Row, 1)
"權限"是怎麼設定ㄉㄚ

有人可以跟我說嗎? 感謝!!
boyao

TOP

剛好最近需要類似功能, 找到這邊
真是大感謝~

TOP

回復 10# freeffly
             工作表的值    參數                        參數 (數值)
Sheet1.Visible = xlSheetHidden                0     :        普通隱藏    工作表 指令: 格式->工作表 -> 可以 取消隱藏
Sheet1.Visible = xlSheetVisible                -1    :        工作表顯現
Sheet1.Visible = xlSheetVeryHidden       2     :         深度隱藏      工作表 指令 ->   不可以 取消隱藏  僅可用VBA 取消

Sheet1.Visible =  False                                0     :          普通隱藏    工作表 指令: 格式->工作表 -> 可以 取消隱藏
Sheet1.Visible = True                                 -1    :          工作表顯現
Sheet1.Visible = 2                                        2    :           深度隱藏      工作表 指令 ->   不可以 取消隱藏  僅可用VBA 取消

Sheets(1).Visible =  0
Sheets(1).Visible =  -1     
Sheets(1).Visible =  2

TOP

這個是我之前完成的檔案
除輸入帳密才能進入外~
還額外提供依使用者的權限~ 可看到不同的活頁~
提供給你參考~
http://forum.twbts.com/viewthread.php?tid=2543&highlight=
學習才能提升自己

TOP

回復 4# GBKEE


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

TOP

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

TOP

回復 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
複製代碼

TOP

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題