返回列表 上一主題 發帖

[發問] 執行巨集 須輸入密碼,但套在此項程式內會無法判斷物件...

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2015-6-13 06:31 | 顯示全部帖子
starry1314 發表於 2015-6-10 17:07


執行巨集 須輸入密碼...
你可以把 Sub yy 的內容先加到 auto_open 最前面:
Sub auto_open()                   '檔案開啟時一般模組 自動執行的檔案
  Dim pw
  
  pw = InputBox("請輸入密碼: ")
  If pw <> "1234" Then MsgBox "密碼錯誤": Application.Quit ' 密碼錯誤時直接關閉檔案

  Sheets("出餐單").Select
...

至於你說的會無法判斷物件...
看不太出來與加上輸入密碼的程式有什麼關係耶?

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題