hueywen_jia

回復 40# luhpro


我把以下字串都放進去了,這樣不對嗎？請看我的圖片,都有進去呀~  

Private Sub Workbook_Open()

  If Date > #5/11/2015# Then 刪除自己

End Sub

luhpro

回復  luhpro
我把以下字串都放進去了,這樣不對嗎？請看我的圖片,都有進去呀~  
Private Sub Work ...
hueywen_jia 發表於 2015-5-14 21:07

底下桃紅色這一塊  (刪除自己)程序實體 也要放進去,
Workbook_Open 中 Then 後面的 刪除自己 指令才呼叫的到 該程序 喔:

Public Sub 刪除自己()

    ThisWorkbook.Saved = True

    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly

    Kill ThisWorkbook.FullName

    ThisWorkbook.Close SaveChanges:=False

End Sub

Private Sub Workbook_Open()

  If Date > #5/28/2115# Then 刪除自己  ' 今天為此日期時, 刪除本檔案, 注意 : 檔案刪除後無法復原, 測試時請務必先備份本檔案.
End Sub

hueywen_jia

回復 42# luhpro


   終於成功了!!　感謝 luhpro　的大力協助！　不願其煩的幫我解答～因為巨集的文法真的不會，不曾學過，都只有用錄製的方式來寫巨集，真是感激不盡！！　再次謝謝你！～

luhpro

回復  hueywen_jia
    另外可否請有權限的大大幫我刪除我附件的壓縮檔呢(在第二頁下方WENWENWENWENW ...
hueywen_jia 發表於 2015-5-16 00:39

下次上傳的範例檔案,
可以酌情將討論串中用不到的部分工作表刪除,
討論會用到的資料可以酌情取用代表性的文字,
若是人名等可能觸犯到個資法的資料則酌予Mark(例如 : 王xx、李一一...等)或是用張三、李四、王美女等替代,
善用 編輯->取代 功能就可以很方便達成此目的,
不過要留意適當安排好先後順序,
例如若先用 5 取代 3,
之後就不適宜用 7 取代 5.(可能會破壞資料的唯一性)

總之要提供怎麼樣內容的範例檔案要看討論的目的與需求.