関数・メソッド

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

構文

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

関連記事

コメント

タイトルとURLをコピーしました