Excel VBA_依使用者名稱自動切換計算選項(自動計算/手動計算)

【背景】一來使用函數太多，二來電腦設備老舊，excel計算公式時總是會卡很久。所以我都把excel設定為「手動計算」，等該改的都改好了，再按下F9一次完成計算。

【現象】其它需要共同excel檔案的同事發現怎麼改了儲存格數字，總和卻沒有自動更新。感到不解及困擾。經我解釋原委，並教學如何自行切換為自動計算後，同事仍然感到不解及困擾。

【問題】如何讓excel檔案被同事開啟時是自動計算，但是當我本人開啟時就自動切換為手動計算？

【解法】在ThisWorkbook中寫入以下程式碼

Private Sub Workbook_Open()
 If Application.UserName = "henry.yang" Then
 Application.Calculation = xlCalculationManual
 'MsgBox "自己使用，已自動設定為「手動計算」模式"
 Else
 Application.Calculation = xlCalculationAutomatic
 MsgBox Application.UserName & "您好，已為您切換為「自動計算」模式。"
 End If
 End Sub