- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
8#
發表於 2011-7-11 19:57
| 只看該作者
回復 7# 棋語鳥鳴
是怪怪的,修正密碼表單如下.- Option Explicit
- Dim P As Integer, 密碼區 As Range
- Private Sub UserForm_Initialize()
- Set 密碼區 = Sheet1.Range("A2", Sheet1.[C2].End(xlDown))
- TextBox2.PasswordChar = "*" '(僅英文輸入模式) 入密碼時讓密碼以"*"號顯示
- End Sub
- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
- If CloseMode = 0 Then Cancel = 1 '停止用表單( X ) 關閉表單
- End Sub
- Private Sub CommandButton1_Click()
- Dim R(2 To 3) As Range
- Dim WshShell As Object, BtnCode As Integer
- Set WshShell = CreateObject("WScript.Shell")
- Set R(2) = 密碼區.Columns(2).Find(TextBox1.Text, LookAt:=xlWhole, MatchCase:=True) '尋找帳號
- Set R(3) = 密碼區.Columns(3).Find(TextBox2, LookAt:=xlWhole, MatchCase:=True) '尋找密碼
- If Not R(2) Is Nothing And Not R(3) Is Nothing Then '找到帳號與密碼
- If R(2).Row = R(3).Row Then '帳號與密碼同一列
- BtnCode = WshShell.popup("登入者 :" & 密碼區(R(2).Row, 1), 3, "登入訊息")
- ThisWorkbook.權限 = 密碼區(R(2).Row, 1)
- Unload Me
- End If
- End If
- P = P + 1
- If P > 2 Then
- CommandButton1.Caption = "登入失敗了"
- Unload Me
- BtnCode = WshShell.popup("檔案需關閉" & Chr(10) & Chr(10) & "登入:帳號,密碼.. 錯誤", 3, "登入失敗")
- 'ThisWorkbook.Close False '*** 測試期間暫且不 關閉檔案 **
- Else
- CommandButton1.Caption = "登入次數 剩 " & 3 - P & " 次"
- End If
- End Sub
|
|
發表於 2011-7-8 21:48
| 
