石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。

5118 / 5126 ツリー ←次へ | 前へ→

【83】「ピカつーる」が完成しました。 ぴかる 02/9/3(火) 12:45

【174】Re:「ピカつーる」が完成しました。 ぴかる 02/9/24(火) 12:33
【176】Re:「ピカつーる」が完成しました。 カド 02/9/24(火) 12:59

【174】Re:「ピカつーる」が完成しました。
 ぴかる  - 02/9/24(火) 12:33 -

引用なし
パスワード
   カドさん、こんにちは。

お試しありがとうございました。ツールバーを元に戻すならメニューバー上の元に戻すでOKです。でも今回はメニューバーとのことなのでこのマクロで戻して下さい。

オリジナルの部分を変更して下さい。でもこの名前が?だとちょっち、マズイっす。
このマクロもダメかもしれませんがお試し下さい。
Sub 戻す()

  With Application
    .CommandBars("Worksheet Menu Bar").Enabled = False
    .CommandBars("オリジナル").Enabled = True
  End With

End Sub

【176】Re:「ピカつーる」が完成しました。
 カド  - 02/9/24(火) 12:59 -

引用なし
パスワード
   ▼ぴかる さん:
回答ありがとうございます。

あわてていたので、メニューバーとツールバー全部を消してしまったら何も出来なくなってしまいました。
こんなときのために元に戻すマクロを作っていたのを思い出し何とかなりました。

5118 / 5126 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
219927
(SS)C-BOARD v3.8 is Free