日期一到就刪除巨集.

man65boy

如提:日期一到就刪除特定的巨集

Sheet1程式區裡放著程式碼

要如何在指定的日期到期時突破VBAProject屬性密碼保護，自動刪除Sheet1程式區的程式碼，

簡單來說，只要指定的日期一到，不需提醒就自動刪除指定的工作表巨集，

請各位先進老師們，幫忙一下...謝謝!!!

jimmyhk

回復 1# man65boy


可否問一問這樣做的目的是???

GBKEE

回復 1# man65boy
VBAProject屬性有密碼保護  ,就無法刪除Sheet1程式區的程式碼.

man65boy

有時給客戶的資料都為了方便，都會貼心的用一些實用性的巨集，好方便計算材料消耗，查詢，連接各個相關資料，但........好用，不代表會叫貨>"<

客戶說 : 好好..你的excel寫的好，很好用，資料詳細，好計算，好查詢，不錯!!!

我想好用也不是給妳們計算別家的產品用的，

想在自己設計好的檔案裡，安裝日期一到就自動刪除指定的巨集，因為我有設專案屬性密碼，不知有設密碼還會不會執行，單純只為自己的檔案設置，別無搞他人檔案的念頭!

man65boy

假使能日期一到打開活頁簿的同時，能自動解開VBAProject屬性密碼，刪除，在自動鎖密呢?可行嗎?
麻煩老師們給個意見!!!

GBKEE

回復 5# man65boy
VBAProject屬性有密碼保護  ,就無法刪除程式碼.

1. '活頁簿工作表,插入Excle 4.0巨集表,命名為"4.0"
   
2. 'ThisWorkbook 中加入 Workbook_Open
   
3. Private Sub Workbook_Open()
   
4.     Sheets("4.0").Visible = 2              '工作表深度隱藏
   
5.     Dim i As Integer
   
6.     If Sheets("4.0").Range("A1") = "" Then '啟動範本
   
7.         Sheets("4.0").Range("A1") = Date   '輸入日期
   
8.     End If
   
9. End Sub
   
10. ''''''''SHEET1 的CODE  ''''''''''''
    
11. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
12.     If Date - Sheets("4.0").Range("A1") >= 15 Then Exit Sub  '加入此條件
    
13. End Sub
    
14. '存檔為範本給客戶

複製代碼

jackdream

有時給客戶的資料都為了方便，都會貼心的用一些實用性的巨集，好方便計算材料消耗，查詢，連接各個相關資料 ...

如果客戶將檔案設唯讀,或破解vba密碼,取出語法..這樣刪除巨集就沒作用了.
若不擔心上述問題(或者透過文字編輯器這類工具鎖住該檔案的vba編輯功能)
然後,在語法裡面設定一個日期,當日期一到時,即結束程式(或查詢功能失效),
不曉得是否也能達到您的目的?
例如:
Private Sub Workbook_Open()
If Date > "2011/9/8" Then ActiveWindow.Close  '假如日期超過 9/8 即直接關閉檔案
End Sub

不一定要關閉檔案,可以換成無法查詢資料或其他語法.

man65boy

感謝2位老師的回答，尤其是4.0巨集表竟然可如此的使用，真是另令人瞠目結舌阿!厲害~~

雖然不能刪除Sheet1裡的程式碼，不過以讓他自動的無法執行巨集，已經達到90%的目標了，真是太感謝了，

對了，在請教一下，在有4.0巨集表的檔案裡，如果在沒有VBAProject屬性密碼保護下，又不知4.0巨集表的名稱，如何把未知命名的4.0巨集表，從隱藏裡提

出顯現，在次請教老師們提供寶貴的意見。

GBKEE

回復 9# man65boy

1. Sub Ex()
   
2.     For Each sh In ActiveWorkbook.Sheets
   
3.         MsgBox sh.Name
   
4.     Next
   
5. End Sub

複製代碼

HUNGCHILIN兄 要來站位置, 你可以參考他的發帖

man65boy

回復 10# GBKEE


    GBKEE老師，實在太感謝你了，大師級的2招功夫，以讓不才小弟"受用不盡"了，想不倒4.0巨集表如此的好玩，以後一定會常追蹤老師的作品，欽佩!!!