- ベストアンサー
EXCEL ツールバーを非表示にするには(VBA)
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
Private Sub Workbook_Open() Application.CommandBars(3).Visible = False End Sub としてみたらどうですか。
その他の回答 (2)
- taocat
- ベストアンサー率61% (191/310)
こんばんは。 既に的確な回答が出てますが・・・ 何故エラーになるかというとApplication オブジェクトを省略しているからです。 それから、このコードは標準モジュールでなくてはならないということはありません。 ---------------------------------------------- Private Sub Workbook_Open() Application.CommandBars(3).Visible = False End Sub ---------------------------------------------- 以上です。
お礼
>標準モジュールでなくてはならないということはありません。 成程、参考になります。 いろいろ試してみます。 有難う御座いました。
- dober-o
- ベストアンサー率59% (260/439)
まずツールバーの設定はブックやシートの設定ではなくエクセル自体の設定なので 標準モジュールに記述するようにしましょう また通常は Application.CommandBars(***).Visible = False などと記述します 以下応用を含めた記述例です(標準モジュール記述の事) Sub Auto_open() With Application .DisplayFormulaBar = False .DisplayFullScreen = True .CommandBars("Standard").Visible = False .CommandBars("Formatting").Visible = False .CommandBars("Worksheet Menu Bar").Enabled = False .CommandBars("Full Screen").Visible = False End With End Sub "Worksheet Menu Bar" はちょっと危険なのであまりお勧めしませんが 参考になれば
お礼
応用例、有難う御座います。 参考になります。 いろいろ試してみます。 たしかに"Worksheet Menu Bar"の操作は 慎重にしないといけないですね。
関連するQ&A
- Excel 数式バーを非表示にしたい(VBA)
ツール-オプション-表示-数式バーのチェックを外せば 数式バーを非表示にできますが、VBAでやりたいと思います。 次の様に記述してみましたが、書式バーの「数式バー(F)」のボタンが非表示になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Visible = False End Sub 次の様に記述してみても今度は「数式バー(F)」のボタンが操作不可になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Enabled = False End Sub 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA エクセルの表示について
下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub
- ベストアンサー
- Visual Basic
- エクセルのマクロを有効にしないと表示しないようにする方法
エクセルでマクロを有効にしないと、シートが表示されないように設定したいのですが、下記の様に(ほかの方の投稿から)入力すると三行目がエラーになります。素人なので、よくわかりません。どのようにしたら、マクロを有効にしないと全てのシートを表示しないようにできるのでしょうか? ご教授いただけますでしょうか Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(\"Sheet1\").Visible = False Sheets(\"Sheet2\").Visible = False ActiveWorkbook.Protect Password:=\"error123\" End Sub Private Sub Workbook_Open() ActiveWorkbook.Unprotect Password:=\"error123\" Sheets(\"Sheet1\").Visible = True Sheets(\"Sheet2\").Visible = True Sheets(\"Sheet1\").Select End Sub
- 締切済み
- その他(業務ソフトウェア)
- エクセル VBAについて
Private Sub Workbook_Open() プロシージャーにてapplication.visible=falseを記述し、Userformのみ表示している状態で、違うエクセルファイルを開くと、表示されません。違うエクセルファイルを開いた時に自動でエクセルが表示できるような対象法を教えてください。お願いします。
- 締切済み
- Visual Basic
- エクセルVBA 保護シート&フィルタ実行 全シート
VBA超初心者です。 たくさんのシートのあるエクセルで、 シート保護後もフィルタを使用できるようにVBAを設定したいと思ってます。 (現在エクセル2000を使用してます) ネットで調べてVBAを設定してみました。 しかし下記のようにするとコンパイルエラーになってしまうのですが、 正しい方法を教えていただけると助かります。 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Cell").Reset End Sub Private Sub Workbook_Open() With Application.CommandBars("Cell").Controls.Add( _ Type:=msoControlButton, Before:=1, Temporary:=True) .Caption = "AutoFilter" .OnAction = "ThisWorkbook.filter" End With With Worksheets.Select .Unprotect .EnableAutoFilter = True .Protect UserInterfaceOnly:=True End With End Sub Private Sub filter() On Error Resume Next Selection.AutoFilter End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA フォームクローズと同時にアプリも終了したい
いつもお世話になっております。 Excel VBAでフォームをつくりました。 下記のように記述し、マクロ起動と同時にフォームだけ見えるようにしました。 Private Sub Workbook_Open() Application.Visible = False メニューフォーム.Show End Sub しかし、フォームの右上にある×ボタンで終了すると フォームは閉じますが、Excel自体は起動したままになってしまっています。 フォーム終了と同時にアプリも終了させたい時はどうすればよいか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル2003で作成したVBAを2007で使用したい
エクセル2003で下記のようなVBAを作成していました。 作成した物を使用者が印刷設定を変更できないように ブックを開くと同時に印刷ボタンなどを非表示にしていたのですが・・・ 2007でも使用出来るようにしたいと思ったのですが 2007ではこのままではエラーが出てしまうようです。 2007はまったく扱ったことがないのでどのようにすればよいかわかりません。 どなたかご教授いただけたらと思います。 Private Sub Workbook_Open() Application.DisplayStatusBar = False 'ステータスバー非表示 'ブックを開く時ページ設定と印刷を非表示 On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("ページ設定(&U)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷(&P)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷プレビュー(&V)").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷範囲(&T)").Enabled = False Application.CommandBars("Standard").Enabled = False End Sub
- ベストアンサー
- オフィス系ソフト
- VBAでファイルを閉じる時に、他のエクセルファイルを閉じるには?
VBAで、 Private Sub Workbook_Open() Workbooks.Open FileName:="バス時刻表.xls",ReadOnly:=True End Sub で、バス時刻表.xlsを自動的にオープンした後、 閉じる時に、 Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("バス時刻表.xls").Close End Sub で記述したら、エラーとなります。 どのようにすればいいのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効にしようとするとエラーが出ることがある。
お世話になります。 VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記VBAを作成しました。 しかしながら、起動時(実行時)に 「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が出ることがあります。 でないときもあるのですが、 デバック時にとまるところは、毎回変わり(1)~(5)のどれかで止まります。 使用したい環境はexcel2007,excel2003で正常に動くようにしたいのですが、何卒よろしくお願いします。 *************ソース********************* Private Sub Workbook_Open() InsertEnabled False End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) InsertEnabled True End Sub Private Sub InsertEnabled(flg As Boolean) With Application (1) Application.CommandBars("Worksheet Menu Bar").Controls("挿入(&I)").Enabled = flg (2) Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = flg (3)Application.CommandBars("Cell").Controls("削除(&D)...").Enabled = flg (4)Application.CommandBars("Row").Controls("挿入(&I)").Enabled = flg (5)Application.CommandBars("Row").Controls("削除(&D)").Enabled = flg .CommandBars.FindControl(, 296).Enabled = flg .CommandBars.FindControl(, 293).Enabled = flg End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル VBA SHeetの隠し
エクセルマクロでThisWorkbookの 記述に下記のようにしました! つまりSheet2を隠す為にしました! Sheet2はマスターなのでそこを使用者に 触らせないように!と思いしましたが・・・ いざ、ファイルを開くと{マクロを有効にする} をクリックしすと{編集の為にロックされています} と表示され読み取り専用になってしまいます! 記述が間違っているのでしょうか? しかもファイルを閉じるとエラー表示され エラーを報告を送信しますか?と必ず表示されます! 他のファイルは問題なく開いたり閉じたり出来ます。 やはり、記述の問題なのでしょうか? 教えて下さい! Private Sub Workbook_Activate() Dim Msg As String, Sn As Variant Sheets("入力").Visible = True Sheets("Sheet2").Visible = False Sheets("グラフ").Visible = True Sheets("入力").Activate UserForm1.Hide End Sub
- ベストアンサー
- オフィス系ソフト
お礼
早々のご回答、感謝いたします。 おっしゃる方法で出来ました。 有難う御座いました。