12345
返回列表 上一主題 發帖

[發問] EXCEL設定某日期到檔案無法開啟

hueywen_jia

帖子
23 
主題
1 
精華
0 
積分
21 
點名
0  
作業系統
WIN7 
軟體版本
excel 2003 
閱讀權限
10 
性別
女 
來自
宜蘭 
註冊時間
2015-2-25 
最後登錄
2015-5-25 
41# 跳轉到 »
發表於 2015-5-14 21:07 | 只看該作者
回復 40# luhpro


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

Private Sub Workbook_Open()

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

End Sub
小雨

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
42#
發表於 2015-5-15 01:24 | 只看該作者
本帖最後由 luhpro 於 2015-5-15 01:31 編輯
回復  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

TOP

hueywen_jia

帖子
23 
主題
1 
精華
0 
積分
21 
點名
0  
作業系統
WIN7 
軟體版本
excel 2003 
閱讀權限
10 
性別
女 
來自
宜蘭 
註冊時間
2015-2-25 
最後登錄
2015-5-25 
43#
發表於 2015-5-16 00:34 | 只看該作者
回復 42# luhpro


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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
44#
發表於 2015-5-17 21:24 | 只看該作者
回復  hueywen_jia
    另外可否請有權限的大大幫我刪除我附件的壓縮檔呢(在第二頁下方WENWENWENWENW ...
hueywen_jia 發表於 2015-5-16 00:39


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

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

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
12345
返回列表 上一主題