Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76174 / 76732 ←次へ | 前へ→

【4983】Re:大変申し訳ございませんでした。
発言  ぴかる  - 03/4/16(水) 12:46 -

引用なし
パスワード
   ▼森三中 さん:

こちらこそ、ご気分を損ねさせてしまったかもしれません。すんません。
本題については、やっぱり私には無理の様です。

参考までにツールバー非表示は、こんなんで出来ます。必要ないかもしれませんが・・・。

Sub ツールバー非表示()

Dim myCB As CommandBar
  
  On Error Resume Next
  For Each myCB In Application.CommandBars
    myCB.Visible = False
  Next myCB
  On Error GoTo 0
  Application.CommandBars("Worksheet Menu Bar").Enabled = False
  With Application
    .DisplayFormulaBar = False
    .DisplayStatusBar = False
  End With

End Sub
Sub ツールバー再表示()
  
  On Error Resume Next
  With Application
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = True
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
  End With
  On Error GoTo 0
  
End Sub

0 hits

【4962】タイトルバー 青木 03/4/15(火) 17:08 質問
【4966】Re:タイトルバー ぴかる 03/4/15(火) 17:51 回答
【4968】Re:タイトルバー 森三中 03/4/15(火) 21:11 質問
【4970】ほんまですね。 ぴかる 03/4/16(水) 8:56 発言
【4974】Re:ほんまですね。 森三中 03/4/16(水) 10:07 発言
【4975】Re:ほんまですね。 ぴかる 03/4/16(水) 10:21 発言
【4976】Re:大変申し訳ございませんでした。 森三中 03/4/16(水) 11:08 発言
【4983】Re:大変申し訳ございませんでした。 ぴかる 03/4/16(水) 12:46 発言
【4985】Re:なにやら・・ れいぞー 03/4/16(水) 13:14 回答
【4986】まあ,凹んだりアツクなったりしないで・・・ こう 03/4/16(水) 13:19 回答
【5004】コードの訂正 m(_ _)m こう 03/4/16(水) 22:44 発言
【4993】ありがとうございました。 ぴかる 03/4/16(水) 17:25 お礼
【4999】デバッグって何? こう 03/4/16(水) 20:57 回答
【5006】Re:デバッグって何? ぴかる 03/4/17(木) 9:10 発言
【5025】ありがとうございます。 青木 03/4/17(木) 19:10 お礼
【5048】Re:ありがとうございます。 bykin 03/4/19(土) 0:05 回答
【5066】Dim xx, yy As Integerは怪しいかった? こう 03/4/20(日) 23:10 発言

76174 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free