• 締切済み

エクセル　VBAについて

Private Sub Workbook_Open()　プロシージャーにてapplication.visible=falseを記述し、Userformのみ表示している状態で、違うエクセルファイルを開くと、表示されません。違うエクセルファイルを開いた時に自動でエクセルが表示できるような対象法を教えてください。お願いします。

noname#160581
noname#160581

みんなの回答

  • trajaa
  • ベストアンサー率22% (2662/11921)
回答No.1

Visibleを戻せば良いだけではないのか？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセル　VBA　エクセルの表示について

    下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

  • EXCEL ツールバーを非表示にするには（VBA)

    EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。 VBAで下記のように記述するとエラーが返ります。 Private Sub Workbook_Open() CommandBars(3).Visible = False End Sub 教えて頂けると幸いです。

  • エクセル　VBA　ＳHeetの隠し

    エクセルマクロでThisWorkbookの 記述に下記のようにしました！ つまりSheet２を隠す為にしました！ 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

  • 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 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。

  • ExcelのVBAでフォームだけ表示させる方法

    はじめまして。 UserForm1で、デジタルで時間を表示する(デジタル時計)を作成しています。 Excelのアプリケーションを表示せず、フォームのみ表示させたいので、 Application.Visible = Falseとしたいのですが、この方法だと、他のExcel ファイルを起動する際に、Excelが見えなくなってしまいます。 ■やりたいこと ・Excelファイルが1つも開かれていない場合、Excelを非表示にして 　Userform1のみ表示されている状態で起動する ・Userform1のみ表示している状態で、他のBooKを開いた場合、 　Excelを表示して開いたBookを表示させる ・他のBooKを開いている状態で、Userform1が記述されているBook 　を開いた場合、ExcelもUserform1も表示させる ・他のBookを閉じるて、Userform1が記述されているBookのみになった 　場合、Excelを非表示にしてUserfrom1のみ表示されている状態にする 自分自身(Userform1を記述しているBook)のみ起動している時には、 Application.Visible=falseにすれば良いのだと思いますが、どういうロジック を組めば良いかご教授いただければ幸いです。 すみませんが、よろしくお願い致します。 それ以外の時は

  • Excel VBAでリボンを非表示にした場合

    VBA独学中の初心者です。Excelは2013です。 リボンを非表示にするマクロは以下になると思いますが、元に戻すマクロの記述を書かなかった場合、再度リボンを表示させるにはどんな方法が有るでしょうか。 （元に戻せなかった時が怖いのでほぼ机上検討で質問を投稿しています。従って下記は間違っているところがあるかもしれません。その場合はそれも含めてご指摘いただければありがたいです。） (1) 前提 おそらくその後開くExcelファイル全て非表示になると思っていますので、それを前提に質問しています。 -------------------- (2) 非表示化のVBA Private Sub Workbook_open() Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, False)” End Sub ---------- でリボンを非表示した場合で、 -------------------- (3) 再表示：ブックを閉じるときの自動動作として ---------- Private Sub Workbook_BeforeClose() '（あるいは Sub Auto_Close()） Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)" End Sub ---------- を書かなかった場合や、 (4) 再表示：コントロールに記述 ---------- Private Sub CommandButton1_Click() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)" End Sub ---------- も配置しなかった場合、 (5) 質問 リボンを再表示させるにはどんな方法が有るでしょうか。 -------------------- 以下の視点で考えてみましたが、どうも答えが見つかりません。 a) マクロを走らせないで開く方法 →Shift＋ファイルのダブルクリックでもVBAは動作した →ファイルタブからShift＋で開こうとしてもそもそもファイルタブがない b) 別のファイルでもいいのでコントロールがあればそのプロシージャの編集からVBEを開く →右クリックしてもプロシージャが編集できるコマンドが出てこない -------------------- 以上、WEBで探しても見つけられず、おわかりの方教えていただけませんでしょうか。 宜しくお願いします。

  • excelファイルが意図せず起動

    下記を参考にして、起動時にタイマーを設定してexcelファイルを5分後に自動的に 保存・終了するようにしています。 http://okwave.jp/qa/q2911086.html しかし実際5分を待たず、手動でそのexcelファイルを終了した場合、 後でそのexcelファイルが自動で起動して、そのまま終了しているようです。 この症状をなくしたい場合どのように、記述を加えればよいか教えていただけないでしょうか？ 記述は下記です。 '標準プロシージャ Public Operated As Boolean Sub SetTimer() Application.OnTime Now + TimeValue("00:05:00"), "CloseMe" End Sub Sub CloseMe() If Operated Then Operated = False SetTimer Exit Sub End If 'ブックの上書き保存 ActiveWorkbook.Save ' 保存確認を避けるため、保存済みにする ThisWorkbook.Saved = True ' 他にブックが開いていなければ、Excelを終了する If Workbooks.Count <= 1 Then Application.Quit ' 本ブックをClose ThisWorkbook.Close False End Sub 'ワークブックプロシージャ Private Sub Workbook_Open() Operated = False SetTimer End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) Operated = True End Sub Private Sub Workbook_Deactivate() Operated = True End Sub Private Sub Workbook_Activate() Operated = True End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Operated = True End Sub

  • Excel VBAで別のブックからユーザーフォームの閉じる

    Excel VBAで別のブックからユーザーフォームの閉じたいのですが うまくいきません。 教えてください。 Private Sub CommandButton2_Click() Application.Visible = False Unload Workbook.("材料リスクマップ検索Ver2.xls")UserForm3・・・・※ Workbooks.Close userform3:=ThisWorkbook.Path & "あああ.xls" Workbooks("\いいい.xls").Close savechanges:=False UserForm1.Show vbModeless End Sub ※印のところが赤字にかわります。 コマンドボタン２は、いいい.xlsにあり、フォームを閉じたいのはあああ.xlsのUserform3です。 その後、ファイル名いいい.xlsは閉じます。 コードが間違っているかと思いますが、どんな風にすればよいかわかりません。初歩的なこととは思いますがよろしくお願い致します。

  • EXCEL VBA　フォームクローズと同時にアプリも終了したい

    いつもお世話になっております。 Excel　VBAでフォームをつくりました。 下記のように記述し、マクロ起動と同時にフォームだけ見えるようにしました。 Private Sub Workbook_Open() Application.Visible = False メニューフォーム.Show End Sub しかし、フォームの右上にある×ボタンで終了すると フォームは閉じますが、Excel自体は起動したままになってしまっています。 フォーム終了と同時にアプリも終了させたい時はどうすればよいか教えてください。 よろしくお願いします。

  • Excel VBA　ブックが閉じれない

    Excel2016を使用してVBAを使用しています。 VBA初心者ですが、よろしくお願いします。 質問内容は以下になります。 EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンから ダイアログボックスを表示し、他ブックを開く処理なのですが、 他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。 Private Sub Workbook_Open() UserForm1.Show End Sub Private Sub UserForm_Initialize() 　各種処理 End Sub Private Sub CommandButton1_Click() Dim OpenFileName As String SetCurrentDirectory (Worksheets(1).Cells(11, 3)) OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub UserFormを閉じると開いたブックも閉じることが可能です。 タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。 ”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。" UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。 申し訳ございませんがご教授下さい、よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する