SHOJI's Code
以前の記事で、全画面にしてメニューバーを消す、というのを書いたが、その応用。
今している仕事で、誤操作の元になるからツールバーとか出すのをやめてくれ、とのこと。
今している仕事で、誤操作の元になるからツールバーとか出すのをやめてくれ、とのこと。
Sub ShowToolbars(ByVal mode As Boolean)
Dim cb As CommandBar
Dim w As Window
Dim ws As Worksheet
On Error Resume Next
'ツールバーを表示/非表示
For Each cb In Application.CommandBars
cb.Enabled = mode
Next
'数式バー/ステータスバーの表示/非表示
Application.DisplayFormulaBar = mode
Application.DisplayStatusBar = mode
End Sub
テーマ:EXCEL - ジャンル:コンピュータ
|
この記事へのコメント
大変です！
上にあるコードを何気なくコピーして実行したら、エクセルが何も操作できなくなりました！！
ほかのブックを開いても、何も操作できるものが無い〜！
どうすれば直るのでしょう？
上にあるコードを何気なくコピーして実行したら、エクセルが何も操作できなくなりました！！
ほかのブックを開いても、何も操作できるものが無い〜！
どうすれば直るのでしょう？
VBを開いて、Workbookのクローズ時に逆のことを書けばなおりますよ
2007/07/06(金) 11:03:39 | URL | #-[ 編集]
今頃コメントに気がついてしまいました(^^;
おやおや(汗) 結局元に戻ったのでしょうか？
Alt F11でVBAのエディタが開くと思いますから、慌てずそこで mode = TRUE で同じコードを実行すれば元に戻ると思います。
ただ、試されるのは結構ですが、自己責任にて...
このブログ割と放置しているので気付くのがかなり遅くなりそうです(汗)
おやおや(汗) 結局元に戻ったのでしょうか？
Alt F11でVBAのエディタが開くと思いますから、慌てずそこで mode = TRUE で同じコードを実行すれば元に戻ると思います。
ただ、試されるのは結構ですが、自己責任にて...
このブログ割と放置しているので気付くのがかなり遅くなりそうです(汗)
| ホーム |