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

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

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

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

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

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

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

DimMydateasDate

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

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

IfMydatea8NowThen

MsgBox本文件將在ampMydateamp過(guò)期后！為不影響建議使用，請(qǐng)您按時(shí)炫舞紫鉆。

Else

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

Application.Quit

savechanges:False

EndIf

EndSub

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

Call

EndSub

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

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

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

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

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

vba如何選中一行？

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