- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 118
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-5-15
               
|
4#
發表於 2016-3-21 15:21
| 只看該作者
回復 3# aevilwitch - Private Sub Workbook_Open()
- Set d = CreateObject("Scripting.Dictionary")
- ar = Array("採購", 123, "單位主管", 456, "填單人", 789) '帳密資料陣列
- For i = 0 To UBound(ar) - 1
- d(ar(i)) = CStr(ar(i + 1))
- Next
- user = InputBox("輸入使用者")
- 10
- pw = InputBox("輸入密碼")
- If d(user) = pw Then
- With 工作表1
- .CheckBox3.Enabled = (user = "採購")
- .CheckBox1.Enabled = (user = "單位主管")
- .CheckBox4.Enabled = (user = "填單人")
- End With
- Else
- MsgBox "密碼錯誤"
- GoTo 10
- End If
- End Sub
複製代碼 |
|