Excel 產生亂數數字、字母

=CHAR(MOD(INT(RAND()*10000),26)+65)&CHAR(MOD(INT(RAND()*10000),26)+65)& INT(RAND()*10000)

 
Reference :
Random Alphanumeric Values in Excel | Click Consulting

VBA Application.Visible = False 後進入 開發人員 編輯

若 VBA 自動執行後設定 Application.Visible = False, 則 Excel  會被隱藏無法進行開發人員編輯

解法：
先開啟 Excel, 停用巨集, 再開啟此 VBA

載入 VBA 後關閉工作表

在 VBA 啟動時將工作表隱藏

Application.Visible = False

VBA 結束後, 工作表並未關閉, VBA 須回到工作表或將整個程式關閉

Private Sub UserForm_Terminate()
    ' 回到工作表
    Application.Visible = True
  
    ' 或將程式關閉
    Application.Quit
End Sub

Reference :
Application.visible = False On Startup

Excel 工作表自動執行 VBA

在 Microsoft Excel 物件 -> ThisWorkbook 中

Private Sub WorkBook_Open()
    TheMainMenu.Show
End Sub

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
    MsgBox "Quit"
End Sub

Reference :
WorkBook_Close() problem - MrExcel Message Board

Excel VBA 開發人員 & 啟用巨集

Excel 2007

顯示開發人員索引標籤
Office 圖示 -> Excel 選項 -> 常用 -> 在功能區顯示「開發人員」索引標籤

啟用巨集
Office 圖示 -> Excel 選項 -> 信任中心 -> 信任中心設定 -> 巨集設定 -> 啟用所有巨集

Excel 2010

顯示開發人員索引標籤
檔案 -> 自訂功能區 -> 開發人員打勾

啟用巨集
檔案 -> 選項 -> 信任中心 -> 信任中心設定 -> 巨集設定 -> 啟用所有巨集

Reference :
Excel VBA
[VBA] Excel 2007 啟用巨集 / Enable Marco
設定顯示開發人員索引標籤(Excel 2007/2010)或Visual Basic工具列(Excel 2003)