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

構文

Object.UnProtectSharing(SharingPassword)

Object.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プロパティを参照します。

関連記事

• 共有のエクセルファイルを 誰が開いたか記録する【ExcelVBA】
• 共有ファイルを開いているユーザー情報を取得する【UserStatusプロパティ】【ExcelVBA】
• ブックを共有(レガシ)する【ProtectSharingメソッド】【ExcelVBA】