VBA ブックの共有化




VBAを使ってエクセルブックのの共有をする方法です。
エクセル上だと[リボン]→[校閲]→[ブックの共有]で同じ動作を再現します。


ステートメント構文など
WorkBook.ProtectSharing



サンプルコード
Sub kyoyu()
    ActiveWorkbook.ProtectSharing
End Sub


実行結果イメージ


解説
例としてActiveWorkbookに対して共有する処理をしています。
エクセル上で冒頭にあるような共有の仕方をする時もそうですが、共有しようとすると

「この操作を行うと、ブックはいったん保存されます。よろしいですか？」
というコメントが出て、「ＯＫ」か「キャンセル」を選択しないと処理が進まなくなります。
このアラートを出したくない場合は
ProtectSharing
前に
Application.DisplayAlerts = False
と記述しておけば、 アラートなしで共有化が出来るようになります。



パスワード設定をする場合（エクセル上の「ブックの保護と共有」）はProtectSharingのパラメーターSharingPasswordを指定します。
サンプルコード
Sub kyoyu()
    ActiveWorkbook.ProtectSharing  Sharingpassword:="1234"
End Sub

関連・類似ページ
ブックの共有の解除
ブックの保存
警告や確認メッセージを非表示にする

ラベル: ,