- 帖子
- 32
- 主題
- 14
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2003 & 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-11-5
- 最後登錄
- 2020-7-16
|
[發問] Excel開檔權限 ,如何控制輸入密瑪需在指定時間內輸入完成
Dear 各位大大先進您好 ,
工作中急需要協助 ,
Excel 開檔時 VBA有設權限密碼 , 如要下列需求程式該如何寫 ? 謝謝
假設生管維護時間 07:30-08:30 需設控管 ,現場人員不可使用EXCEL檔案 .
狀況 :
1.假設現場人員在07:30之前已先開檔 ,如時間已到 07:30 ,則會停在輸入密碼畫面 ,檔案於1 min後自動關閉
2.假設現場人員在07:30-08:30 之間已開檔 ,則會停在輸入密碼畫面 ,檔案於1 min後自動關閉
Private Sub Workbook_Open()
If Time > TimeValue("07:30") And Time < TimeValue("08:30") Then
Application.EnableCancelKey = xlDisabled
MsgBox "每日 07:30-08:30 是生管維護資料時間 ,非生管人員禁止使用檔案[按Esc關閉檔案]"
If InputBox("生管人員請輸入權限密碼 :") <> "111111" Then
MsgBox "輸入密碼錯誤 ,檔案無使用權限 !"
Application.Quit
End If
End If
End Sub
 Excel範例檔, 開檔權限.rar (14.18 KB)
|
|
發表於 2016-4-25 21:20
| 
