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

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

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

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

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

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

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

將我的日期顯示為日期

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

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

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

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

MsgBox此文檔將于amp Mydate amp！為了不影響使用，請按時續(xù)費。

其他

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

申請。放棄

savechang:False

如果…就會結(jié)束

末端接頭

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

打

末端接頭

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

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

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

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

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

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