如何用vba設(shè)置excel工作表的試用時間？大家好，我是Excel大表姐666，了解我緩慢彼此分享大量excel技巧。一起成長，相互華麗轉(zhuǎn)身。下面我用一部分VBA代碼實時演示如何可以設(shè)置excel工作

如何用vba設(shè)置excel工作表的試用時間？

大家好，我是Excel大表姐666，了解我緩慢彼此分享大量excel技巧。一起成長，相互華麗轉(zhuǎn)身。下面我用一部分VBA代碼實時演示如何可以設(shè)置excel工作表工作表的使用時間。

簡單，剛建一個Excel工作表，順次排列直接點擊文件—EXCEL選項—先打開設(shè)置里宏對話框，隨即左面再點信任中心，信任中心設(shè)置，進入下一個對話框，點擊宏設(shè)置里，隨后禁用所有宏，接著確定。

提升一個工作表，并輸入輸入公式NOW（）。并系統(tǒng)設(shè)置單元格格式。該工作表僅為了存儲文件再打開工作簿時的時間。

然后在時間工作窗口中，先執(zhí)行追加操作，將工作表隱藏地起來。

然后再按ALT F11，菜單VBA程序設(shè)計窗口。左鍵單擊上側(cè)的Sheet1(Sheet1),同樣右鍵負(fù)責(zé)執(zhí)行欄里點代碼。貼入以下代碼。我將文件的使用中止時間設(shè)到了2019年12月31日，使用者可以自己調(diào)整此處。Submain()

DimMydatesuchDate

DimNowsuchDateMydate#12/31/2019#設(shè)置文件到期時間為2019年12月31日

Now Worksheets(2).Cells(1,1).Value

IfMydategtNowThen

MsgBox本文件將在ampMydateamp過期后！為不影響不大使用，請您按時來充年費。

Else

MsgBox本文件已已到期，尚未關(guān)掉！

Application.Quit

savechanges:False

EndIf

EndSub

鼠標(biāo)右鍵點擊下面的ThisWorkbook并右鍵另外不能執(zhí)行查找代碼。貼入以上代碼。PrivateSubworkbook_open()

Call

EndSub

加密文件工程文件，點擊工具—VBA工程屬性—保護，對VBA接受加密，那樣的話別人打開VBA，要先輸入密碼

將工作表存放為禁用宏的工作表

不使用期內(nèi)，不使用過期后如下圖提示。

大家好，我是Excel大表姐666，關(guān)注我緩慢彼此分享許多excel技巧。一起成長，相互華麗轉(zhuǎn)身。

這個試用時間建議加密保存，位置自己根據(jù)情況設(shè)置，有時候先打開或關(guān)閉工作簿前接受存取，放在工作表激活碼激活和已取消激活事件代碼里參與判斷推理

vba日期函數(shù)每周一日期怎么顯示？

A2格式設(shè)置中為日期格式的（星期三）(格式--單元格--數(shù)字--日期--星期三)，然后把寫公式：A1也也可以用weekday（）函數(shù)計算星期幾。但特別注意周日如果沒有周一為1。