請問我要Excel自動執行Enter的程式碼怎麼寫

Question

請問我要Excel自動執行Enter的程式碼怎麼寫 例如
Excel的檔案夾之工作表Sheet1,Sheet2,Sheet3個有資料且設有保護密碼(1234)
設定日期為2006/12/30
我要程式在2006/12/30自動執行刪除Sheet2,Sheet3等2個工作表
請問程式碼怎麼寫
因為我在Visual Basic編輯器編輯後當日期到了開啟檔案是會自動執行一半
最後螢幕會顯示是否確定刪除工作表,必須再按enter才能執行刪除
請問可以用程式碼讓電腦自動執行刪除嗎?如何寫
謝謝

Answer 1

關掉警告即可:Application.DisplayAlerts = False    Sheets(Array("Sheet2", "Sheet3")).Select    ActiveWindow.SelectedSheets.DeleteApplication.DisplayAlerts = True