如何用vba設(shè)置excel工作表的試用時(shí)間？大家好，我 m excel s大表哥666，關(guān)注我分享更多Excel技巧。一起成長(zhǎng)，一起轉(zhuǎn)身。下面我用一個(gè)VBA代碼來(lái)演示如何設(shè)置excel工作表的工作時(shí)

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

大家好，我 m excel s大表哥666，關(guān)注我分享更多Excel技巧。一起成長(zhǎng)，一起轉(zhuǎn)身。下面我用一個(gè)VBA代碼來(lái)演示如何設(shè)置excel工作表的工作時(shí)間。

首先新建一個(gè)Excel工作表，點(diǎn)擊文件-Excel選項(xiàng)-打開(kāi)設(shè)置宏的對(duì)話框，然后點(diǎn)擊信任中心，信任中心設(shè)置，進(jìn)入下一個(gè)對(duì)話框，點(diǎn)擊宏設(shè)置，然后啟用所有宏，然后確認(rèn)。

添加工作表并立即輸入公式()。并格式化單元格。此工作表僅用于存儲(chǔ)工作簿打開(kāi)的時(shí)間。

然后在時(shí)間工作窗口中，執(zhí)行以下操作來(lái)隱藏工作表。

然后按ALT F11調(diào)出VBA編程窗口。選擇上面的Sheet1(Sheet1)，同時(shí)右鍵查看代碼。粘貼以下代碼。我把文件的結(jié)束時(shí)間設(shè)置為2019年12月31日，用戶可以在這里自行調(diào)整。副總管()

將我的日期顯示為日期

現(xiàn)在變暗為日期

Mydate #12/31/2019#將文件的到期日期設(shè)置為2019年12月31日。

現(xiàn)在是工作表(2)。單元格(1，1)。價(jià)值

如果我的日期是現(xiàn)在，那么

MsgBox此文檔將于amp Mydate amp！為了不影響使用，請(qǐng)按時(shí)續(xù)費(fèi)。

其他

MsgBox此文件已過(guò)期，即將關(guān)閉！

申請(qǐng)。放棄

savechang:False

如果…就會(huì)結(jié)束

末端接頭

選擇下面的ThisWorkbook，同時(shí)右鍵查看代碼。粘貼以下代碼。私有子工作簿_open()

打

末端接頭

加密項(xiàng)目文件，點(diǎn)擊工具-VBA項(xiàng)目屬性-保護(hù)加密VBA，這樣其他人必須輸入密碼才能打開(kāi)VBA。

將工作表保存為啟用宏的工作表。

服務(wù)期內(nèi)，用下圖提示到期。

大家好，我 m excel s大表哥666，關(guān)注我分享更多Exc

VBA如何把數(shù)字識(shí)別為文本轉(zhuǎn)成時(shí)間格式？

第一，如果是日期時(shí)間值，輸入2009-2、2009-2-14、14: 50等常用格式改變單元格格式最簡(jiǎn)單的方法就是通過(guò)錄制宏來(lái)記錄改變格式的過(guò)程。請(qǐng)參見(jiàn)代碼:示例。例如范圍(A2)。選擇[$-409]d-mmm-YY；@范圍(A1)。選擇[$-409]mmm，YY；@ feb-2009range (a3)。選擇[$-F800] dddd，mmmmdd，yyyy秒，如果非要調(diào)整，要在excel中調(diào)整。畢竟你知道左右的。