如何用vba設置excel工作表的試用時間？

大家好，我mexcels大表哥666，關注我分享更多Excel技巧。一起成長，一起轉身。下面我用一個VBA代碼來演示如何設置excel工作表的工作時間。

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

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

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

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

將我的日期顯示為日期

現在變暗為日期

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

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

如果我的日期是現在，那么

MsgBox此文檔將于ampMydateamp！為了不影響使用，請按時續費。

其他

MsgBox此文件已過期，即將關閉！

申請。放棄

savechang:False

如果…就會結束

末端接頭

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

打

末端接頭

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

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

服務期內，用下圖提示到期。

大家好，我mexcels大表哥666，關注我分享更多Exc

VBA如何把數字識別為文本轉成時間格式？

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