共有ブックの編集履歴一覧をマクロで一発表示させます。

前置き

共有設定されているブックでは（機能をオフにしていなければ）編集履歴が記録されているので、「校閲」タブのメニューから指定して変更履歴一覧を「履歴」シートとして表示できます。
が、都度メニューから表示を指定するのが面倒になったので、マクロで一発表示させてみました。

コード

共有設定されたブックではマクロを実行できないので、別のブックから下記を実行してやる必要があります。
※表を並び替える場合は「履歴」を表示させる前に行うこと

    With ActiveWorkbook
        '共有設定されている場合のみ実行
        If .MultiUserEditing Then
            .HighlightChangesOptions When:=xlAllChanges
            .ListChangesOnNewSheet = True
            .HighlightChangesOnScreen = False
        End If
    End With

備忘

「履歴」というシート名は予約語になっているので、表示させた「履歴」シートを他ブックにコピーすると「履歴 (2)」のようなシート名になります。
テーブル機能はとても便利ですが、共有設定できなくなるので注意が必要です。