標題: [發問] Excel開檔權限 ,如何控制輸入密瑪需在指定時間內輸入完成 [打印本頁]

---

作者: landylin    時間: 2016-4-25 21:20     標題: 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
[attach]24000[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)