[發問] 如何解決【啟用編輯】

reangame

程式碼如下：

termdate=dateserial(2017,7,28)
if termdate <= now then
application.displayalerts=false
activeworkbook.changefileaccess xlreadonly
kill activeworkbook.fullname
application.quit
end if
理論上是要實現依設定日期執行自動刪除檔案，
經電子郵件傳給別人後，打開檔案時，會出現受保護的檢視需點選【啟用編輯】，但是點選後出現錯誤：沒有設定物件變數或with區塊變數，再重新開啟檔案時就會自動刪除了，
請問這樣的問題可以使用Vba解決嗎？

GBKEE

回復 1# reangame
要殺的檔案必須是未開啟的

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Kill_Name As String, termdate As Date
   
4.     If termdate <= Now Then
   
5.         Application.DisplayAlerts = False
   
6.         With ActiveWorkbook
   
7.             .ChangeFileAccess xlReadOnly
   
8.             Kill_Name = .FullName
   
9.             .Close False  '檔案關閉
   
10.         End With
    
11.         Kill Kill_Name          Application.Quit
    
12.     End If
    
13. 
    
14. End Sub

複製代碼