如何用vba設(shè)置excel工作表的試用時間？大家好，我是Excel大表姐666，關(guān)注我持續(xù)分享更多excel技巧。一起成長，一同華麗轉(zhuǎn)型。下面我用很長VBA代碼演示如何能設(shè)置excel工作表工作表的使

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

大家好，我是Excel大表姐666，關(guān)注我持續(xù)分享更多excel技巧。一起成長，一同華麗轉(zhuǎn)型。下面我用很長VBA代碼演示如何能設(shè)置excel工作表工作表的使用時間。

必須，空白文檔一個Excel工作表，排列再點(diǎn)文件—EXCEL選項(xiàng)—打開設(shè)置里宏對話框，而后左面直接點(diǎn)擊絕對信任中心，信任中心設(shè)置，再次進(jìn)入下一個對話框，點(diǎn)擊宏設(shè)置，接著重新設(shè)置所有宏，隨后確認(rèn)。

提高一個工作表，并鍵入公式NOW（）。并設(shè)置中單元格格式。該工作表僅用來儲存然后打開工作簿時的時間。

然后在時間工作窗口中，不能執(zhí)行如下操作，將工作表刻意隱藏過來。

然后按ALT F11，調(diào)出VBA程序設(shè)計(jì)窗口。左鍵單擊上側(cè)的Sheet1(Sheet1),同時右鍵不能執(zhí)行打開系統(tǒng)代碼。貼入100元以內(nèi)代碼。我將文件的使用中止時間設(shè)到了2019年12月31日，使用者也可以自己根據(jù)情況此處。Submain()

DimMydateasDate

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

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

IfMydatea8NowThen

MsgBox本文件將在ampMydateamp過期后！為不影響建議使用，請您按時炫舞紫鉆。

Else

MsgBox本文件已到期時間，即將關(guān)了！

Application.Quit

savechanges:False

EndIf

EndSub

選中后下面的ThisWorkbook并右鍵而執(zhí)行查看代碼。貼入200元以內(nèi)代碼。PrivateSubworkbook_open()

Call

EndSub

加密后工程文件，直接點(diǎn)擊工具—VBA工程屬性—保護(hù)，對VBA參與加密，這樣的話別人再打開VBA，要先輸入密碼

將工作表能保存為重新設(shè)置宏的工作表

可以使用期內(nèi)，可以使用已到期如下圖提示。

大家好，我是Excel大表姐666，打聽一下我短短分享大量excel技巧。一起成長，相互華麗轉(zhuǎn)變。

這個試用時間最好就是加密保存，位置自己根據(jù)情況設(shè)置，隔一段時間先打開或關(guān)閉工作簿前進(jìn)行存取，裝在工作表激活后和取消后激活事件代碼里參與定義判斷

vba如何選中一行？

Rows(5).Select選定第5行rowNO6變量Rows(rowNO).Select中,選擇變量代表的行