帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-9-8 18:51 | 只看該作者

日期一到就刪除巨集.

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

Sheet1程式區裡放著程式碼

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

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

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

樓主熱帖

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

2^#

發表於 2011-9-8 20:22 | 只看該作者

回復 1# man65boy

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

TOP

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兔年全勤獎章

3^#

發表於 2011-9-8 20:53 | 只看該作者

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

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

4^#

發表於 2011-9-8 20:54 | 只看該作者

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

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

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

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

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2011-9-8 20:59 | 只看該作者

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

TOP

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兔年全勤獎章

6^#

發表於 2011-9-9 09:47 | 只看該作者

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

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

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

複製代碼

TOP

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

7^#

發表於 2011-9-9 15:18 | 只看該作者

本帖最後由 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

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

8^#

發表於 2011-9-10 00:12 | 只看該作者

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

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

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

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

TOP

GBKEE