返回列表 上一主題 發帖

日期一到就刪除巨集.

日期一到就刪除巨集.

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

Sheet1程式區裡放著程式碼

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

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

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

回復 1# man65boy


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

TOP

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

TOP

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

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

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

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

TOP

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

TOP

本帖最後由 GBKEE 於 2011-9-16 07:19 編輯

回復 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. '存檔為範本給客戶
複製代碼

TOP

本帖最後由 jackdream 於 2011-9-9 16:10 編輯
有時給客戶的資料都為了方便,都會貼心的用一些實用性的巨集,好方便計算材料消耗,查詢,連接各個相關資料 ...


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

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

TOP

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

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

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

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

TOP

本帖最後由 GBKEE 於 2011-9-10 06:44 編輯

回復 9# man65boy
  1. Sub Ex()
  2.     For Each sh In ActiveWorkbook.Sheets
  3.         MsgBox sh.Name
  4.     Next
  5. End Sub
複製代碼
HUNGCHILIN兄 要來站位置, 你可以參考他的發帖

TOP

回復 10# GBKEE


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

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題