続：Wordのツールバーを固定する

Microsoft Wordのフローティングツールバーが勝手に移動するのを止めさせるマクロの記事を以前書きましたが、
ツールバー個々に移動を禁止していてイマイチだったのを、全てのフローティングツールバーについて一括で移動を禁止するマクロを見つけたので紹介します。



・起動時に自動実行させるためにThis Documentの方に書き込むマクロ

Private Sub Document_Open()

For Each c In CommandBars

If c.BuiltIn = False Then

c.Protection = msoBarNoMove

End If

Next c

End Sub



・フローティングツールバーの固定状態の切替えマクロ

Sub フローティングツールバー固定切替()

For Each c In CommandBars

If c.BuiltIn = False Then

If c.Protection = msoBarNoMove Then

c.Protection = msoBarNoProtection

Else

c.Protection = msoBarNoMove

End If

End If
　

Next c

End Sub



実際はフローティングツールバーではなくオリジナルに作成したツールバー全てを固定するマクロです。

このマクロはExcelにもこのまま修正なしで使えます。