excel vba 共用活頁簿該如何設定

Question

我用錄製巨集的方式只能錄解除共用活頁簿的巨集
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveWorkbook.ExclusiveAccess
ActiveWorkbook.ConflictResolution = xlLocalSessionChanges
ActiveWorkbook.KeepChangeHistory = False
End Sub

無法錄製設定活用共用活頁簿的巨集
第一個是在編輯標籤的地方允許多人同時修改活頁簿，且合併活頁簿的地方打勾嘛
第二步是在進階標籤的地方得追蹤修訂選擇不保留歷程紀錄
第三步是在進階標籤的地方得當有衝突發生時選擇以正要被儲存的修訂為準
請各位幫忙，謝謝

還有一個問題，為什麼共用活頁簿模式下，
"下列使用者正在共用這個檔案"的區域就是目前有三台電腦在共用此檔，
但是同一台電腦因為不同天使用此檔，
"下列使用者正在共用這個檔案"的區域就又增加一個使用者，
所以用越多天，使用者就會越多，
檔案就越變越大，越跑越慢，
該如何解決?

Answer 1

問題一：試試看底下的兩個巨集
問題二：同時按下 Ctrl + Shift + Delete 三個按鍵，看看是不是有很多 Excel.exe 的程序正在執行，如果有的話選 Excel.exe 按「結束處理程序」把他們通通關掉，要執行這個動作前請先把你的檔案儲存，不然Excel裡面的資料可能會遺失。


Const BOOKNAME As String = "Book1.xls" '共用活頁簿的檔名

Sub 設定共用()
Application.DisplayAlerts = False
With Workbooks(BOOKNAME)
.KeepChangeHistory = True
.ConflictResolution = xlLocalSessionChanges
.KeepChangeHistory = False
.SaveAs Filename:=Workbooks(BOOKNAME).Path & "\" & _
Workbooks(BOOKNAME).Name, AccessMode:=xlShared
End With
Application.DisplayAlerts = True
End Sub

Sub 解除共用()
If Not Workbooks(BOOKNAME).MultiUserEditing Then Exit Sub
Application.DisplayAlerts = False
Workbooks(BOOKNAME).ExclusiveAccess
Application.DisplayAlerts = True
End Sub