Accsess ツールバーの表示、非表示について

Question

いつもお世話になっております。

フォームの開くときイベントで「メニューバーの非表示」と「ツールバーを全て非表示」に設定しています。

Private Sub Form_Open(Cancel As Integer)

   Application.CommandBars("Menu Bar").Enabled = False  'メニューバーの非表示

    Dim cbar As Variant

    Dim strName1 As String

    Dim strName2 As String

    strName1 = "Menu Bar"

    strName2 = "ポップアップメニュー"

    For Each cbar In CommandBars

        If cbar.Visible = True Then

            If cbar.Name <> strName1 And cbar.Name <> strName2 Then

                'ツールバーを全て非表示にします。

                Application.CommandBars(cbar.Name).Visible = False

            End If

        End If

    Next

End Sub

管理者用に

Private Sub ラベル7_DblClick(Cancel As Integer)

    'ラベルをダブルクリックするとメニューバーの表示

    Application.CommandBars("Menu Bar").Enabled = True

    'ラベルをダブルクリックするとツールバーの表示

    Application.SetOption "Built-In Toolbars Available", True

End Sub

としているのですが、ツールバーが表示されません。

どのように修正すればよいのでしょうか。。。

どなたかご教示頂けたらと思います。

よろしくお願い致します。

使用環境：Access2003(XP),2010(Win7)

Answer 1

MukkuMukuです。

ツールバーってユーザー設定っぽいものでしたっけ？

一度リセットとかして確かめてみては？

そうでなければ、該当のツールバーVisibleあたりをTrueにしてみるとか。

Answer 2

MukkuMuku様

いつもどうもありがとうございます。

＞ツールバーってユーザー設定っぽいものでしたっけ？

フォントを選んだり、太字にしたり、フォントの色などを設定できる

ボタンです。ユーザー設定で色々とカスタマイズできる部分です。

＞そうでなければ、該当のツールバーVisibleあたりをTrueにしてみるとか。

ありがとうございます。確かに、個別に設定すると表示・非表示が

うまくいくので、個別に対応することに致しました。

どうもありがとうございました！

Answer 3

いつも大変お世話になっておりますMukkuMuku様！

出張で返信が遅くなりすみません。

Private Sub Form_Open(Cancel As Integer)

    Application.CommandBars("Menu Bar").Enabled = False

    Application.SetOption "Built-In Toolbars Available", False

End Sub

で「メニューバー」「ツールバー」は非表示になるのですが

Private Sub ラベル7_DblClick(Cancel As Integer)

    Application.CommandBars("Menu Bar").Enabled = True

    Application.SetOption "Built-In Toolbars Available", True

End Sub

で「メニューバー」は表示され

「ツールバー」は非表示のままになってしまうのですが

どこか確認する部分はございますでしょうか？

よろしくお願い致します。

Answer 4

こんにちは、MukkuMukuです。

Private Sub Form_Open(Cancel As Integer)

    Application.CommandBars("Menu Bar").Enabled = False

    Application.SetOption "Built-In Toolbars Available", False

End Sub

Private Sub ラベル7_DblClick(Cancel As Integer)

    Application.CommandBars("Menu Bar").Enabled = True

    Application.SetOption "Built-In Toolbars Available", True

End Sub

でも、それなりっぽい動作します。