返回列表 上一主題 發帖

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

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
1# 跳轉到 »
發表於 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
仁兄

TOP

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
2#
發表於 2012-2-14 21:26 | 顯示全部帖子
本帖最後由 pitera88 於 2012-2-14 21:31 編輯

回復 3# HUNGCHILIN


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

我下的檔不會是錯的吧?? ExcelVBA自動刪檔.rar (192.48 KB)   第一次上傳

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


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

評分人數

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

TOP

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
3#
發表於 2012-2-14 22:47 | 顯示全部帖子
回復 5# GBKEE


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

感恩
仁兄

TOP

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
4#
發表於 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巨集表內 再用定義的方式藏起來嗎?? 不知道命令有沒有一樣?
仁兄

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題