ブックを共有(レガシ)解除する【UnprotectSharing/ExclusiveAccess】【ExcelVBA】

構文
UnprotectSharingメソッドのサンプルコード
注意点
関連記事

構文

Object.UnProtectSharing(SharingPassword)

Object.ExclusiveAccess

SharingPassword・・・・ブックのパスワードを指定※省略可能

UnprotectSharingメソッド/ExclusiveAccessメソッドは、共用解除するメソッドです。
UnprotectSharingだけでは共有解除が出来ない場合があり、
ExclusiveAccessメソッドも併用する方が望ましいです。

UnprotectSharingメソッドのサンプルコード

Public Sub sample()
    ActiveWorkbook.ProtectSharing
    
    '■基本の共有設定解除
    ActiveWorkbook.UnprotectSharing
    ActiveWorkbook.ExclusiveAccess

    '■共有を解除しますか？ポップアップを非表示にする場合
    Application.DisplayAlerts = False
    ActiveWorkbook.UnprotectSharing
    ActiveWorkbook.ExclusiveAccess
    Application.DisplayAlerts = True
End Sub

注意点

基本はUnprotectSharing/ExclusiveAccessを両方記述するイメージでOKです。
共有が貼られていない状態で、ExclusiveAccessさせるとエラーが発生するので注意必要です。
実行時エラー ‘1004’:アプリケーション定義またはオブジェクト定義のエラーです。
共有がされているかどうかは、MultiUserEditingプロパティを参照します。