[原創] 使用一次即自動刪除 AND 使用30天後自動刪除

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

2^#

發表於 2012-2-14 00:20 | 只看該作者

本帖最後由 pitera88 於 2012-2-14 01:06 編輯

回復 1# HUNGCHILIN

我想的方法是：
1。開檔自動執行vba
2。設定二個儲存格存放開啟次數，原始設定為0 。另一個存放可開啟次數(假設1)
3。(讀取原始設定儲存格的值)
4。比對這個值是否=可開啟次數值
5。判斷是 ->讀取檔案所在路徑
         ->刪除檔案(有強制刪除的方法吧!!(我想的)) =FILE.DELETE(GET.WORKBOOK(16))這個2003版好像不能用了不知有別的嗎
         ->強制關閉檔案(不存檔)

6。判斷否 -> 原始儲存格+1

結束 :P

我只能想法但vba碼實在不行  有大大可以把它寫出來嗎

一直粉好奇中  感恩

※開版大大的檔案沒法破解，看不到程式碼  :L

仁兄

版主 Rank: 7 Rank: 7 Rank: 7

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2012-2-14 01:22 | 只看該作者

這檔放精英很久了，一直都沒有鎖vba程式

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

4^#

發表於 2012-2-14 21:26 | 只看該作者

本帖最後由 pitera88 於 2012-2-14 21:31 編輯

回復 3# HUNGCHILIN

不好意思，才疏學淺，這檔案真是不會去看VBA(按確定後，他只給我打飛機

)

我下的檔不會是錯的吧??

ExcelVBA自動刪檔.rar (192.48 KB) 第一次上傳

大大教一下，要怎麼處理吧! 感恩

※話說：大大發的文章，真豐富。正在研讀「欄列保護」那一塊，真是 ----太神了，沒辦法完全解開，呵呵努力K文中

1 評分人數

HUNGCHILIN: 這些都是練習檔案此類作品會不斷增加金錢 + 1

仁兄

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-2-14 21:49 | 只看該作者

回復 4# pitera88
將巨集->安全性設為更高 , 再打開檔案就可看到vba

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

6^#

發表於 2012-2-14 22:47 | 只看該作者

回復 5# GBKEE

可以看到了，來去研究一下下，慢慢查

感恩

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

7^#

發表於 2012-2-14 23:50 | 只看該作者

回復 5# GBKEE

Sub KillMe()
Application.DisplayAlerts = False '畫面顯示(更新)停止
ActiveWorkbook.ChangeFileAccess xlReadOnly '檔案設定為唯讀
Kill ActiveWorkbook.FullName '刪除本檔指定路徑的檔案
ThisWorkbook.Close False '關閉目前檔案並放棄所有對此活頁簿的變更
End Sub

請問上面我的解讀對嗎??

另請問可以把上面的4行放到EXCEL 4.0巨集表內再用定義的方式藏起來嗎?? 不知道命令有沒有一樣?

仁兄

jorppiman

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Vista
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2015-8-13
最後登錄: 2018-11-29

8^#

發表於 2015-8-13 23:08 | 只看該作者

想學習.但是小學生又看不到..好可惜..