EXCEL設定某日期到檔案無法開啟 - Excel程式區

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

25^# 跳轉到 »

發表於 2015-4-12 22:42 | 只看該作者

感謝luhpro,雖然你的設定是可成功,但是像我這麼小聰明的還是有法破解,我相信應該還是有人可以破解,只要把電腦時間改在我設定的日期前,還是可以開啟~~這點好像很難讓它不成功厚.......
所以我也很頭痛!!

小雨

TOP

KdStudio

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2015-4-11

24^#

發表於 2015-4-11 13:36 | 只看該作者

要指定某日後巨集無法使用，也可以改變驗證方式。
指定日期，如上面前輩所寫的，
IF DATE > "日期" THEN
關閉活頁簿
END IF

改變驗證方式，可以配合GOOGLE 試算表。(可設定不顯示網頁)
活頁簿打開，自動打開網頁，進入GOOGLE 試算表，去抓指定欄位的值，如果值跟你事先輸入VBA的值相同，就繼續。如果值不相同，就強制關閉活頁簿。

這方式比較具有彈性。

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

23^#

發表於 2015-4-11 07:31 | 只看該作者

謝謝樓上大大,可是我用了之後,開啟檔案出現：
我點 "是"跟"否"檔案可以關閉沒錯,但是我點"取消",就不會自動 ...
hueywen_jia 發表於 2015-4-9 20:46

底下這個方式即使檔案設成唯讀, 也照樣能關閉檔案:

Private Sub Workbook_Open()
Dim MyDate As Date
MyDate = #4/4/2015#
If Date >= MyDate Then
With Application
.DisplayAlerts = False
.Quit
End With
End If
End Sub

複製代碼

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

22^#

發表於 2015-4-10 14:57 | 只看該作者

回復 21# hueywen_jia

ThisWorkbook模組的程式碼

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean) '活頁簿的預設事件程序(關閉檔案時自動執行)
Me.Save
End Sub

複製代碼

活頁簿模組的預設事件還有許多,可練習看看
工作表模組一樣有許多的預設事件

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

21^#

發表於 2015-4-9 20:46 | 只看該作者

謝謝樓上大大,可是我用了之後,開啟檔案出現：

我點 "是"跟"否"檔案可以關閉沒錯,但是我點"取消",就不會自動關閉,而且還可以使用巨集!! 怎麼辦!?

Private Sub Workbook_Open()
Dim MyDate As Date
MyDate = #4/4/2015#
If Date >= MyDate Then Application.Quit
End Sub

小雨

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

20^#

發表於 2015-4-7 15:43 | 只看該作者

本帖最後由 GBKEE 於 2015-4-7 15:45 編輯

回復 19# hueywen_jia

附檔中的所有巨集在某個時間一到就無法使用,最好是檔案都無法開啟是最好的

ThisWorkbook模組的程式碼

Private Sub Workbook_Open() '活頁簿的預設事件程序(開啟檔案時自動執行)
Dim MyDate As Date
MyDate = #6/1/2015# '你要如何指定日期
If Date >= MyDate Then Application.Quit
'Application.Quit 關閉Excel
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

19^#

發表於 2015-4-6 18:10 | 只看該作者

本帖最後由 Hsieh 於 2015-5-17 23:00 編輯

原來是點兩下,雖然出現了,可是我複製了之前大大給的字串貼進去後還是無法執行,跳到F8那欄是錯誤的語法,SORRY~我笨拙~不會用這種
請高手幫我,我想讓附檔中的所有巨集在某個時間一到就無法使用,最好是檔案都無法開啟是最好的!! 可以告訴我怎麼做嗎? 或是幫我修改檔案後再回傳給我呢? 因為檔案有點大,需要用到很多活頁簿及公式,謝謝
[attach]20590[/attach]

小雨

TOP

stillfish00