• ベストアンサー

EXCEL97のVBAのトラブル

EXCEL97のVBAで誤ったﾌﾟﾛｸﾞﾗﾐﾝｸﾞをしたため、 大切なﾌｧｲﾙが開けなくなってしまいました。 "Private Sub Workbook_Open()"のところです。 Sheetが開ければ、他はすべて消えても構わないのですが、 なにか開く方法はないでしょうか？ 強制終了になってしまいます。詳細には "EXCEL のﾍﾟｰｼﾞ違反です。 ﾓｼﾞｭｰﾙ : EXCEL.EXE、ｱﾄﾞﾚｽ : 0137:3009a7fd･･･"と出ます。

noname#4342
noname#4342

質問者が選んだベストアンサー

  • ベストアンサー
  • ARC
  • ベストアンサー率46% (643/1383)
回答No.1

SHIFTキーを押しながら、Excelを起動(もしくはファイルを開く)してください。一時的に自動実行マクロをオフにできます。 VBAのコードを開かないように注意しながら、ワークシートを別のファイルにコピーすると、シートの部分だけは救うことができるでしょう。 悲しいかな、VBAのコンパイラにはバグがあり、しばらく使っていると、たまに異常な実行コードを吐くことがあるのです。で、それがそのままExcelのファイルに保存されてしまったがために、開くたびにエラーが起きてしまうのです。(ちなみにこの部分は、実験とその結果に基づく推測です。)

noname#4342
質問者

お礼

うまくいきました！ありがとうございます。 コードを見てみましたが別に間違いはありませんでした。

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

関連するQ&A

  • 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を閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。 申し訳ございませんがご教授下さい、よろしくお願いいたします。

  • excel vba 選択されたセルの範囲を別のセル

    excel vba 選択されたセルの範囲を別のセルに書き込みたい。 お世話になっております。 乱筆乱文お許し下さい。 EXCEL VBAについてですが、或るブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でACTIVEなsheetの名前を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前sheetをACTIVEにすることは出来たのですが、もう一歩進んで、 ブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でselectされているcellの範囲（単一セル・複数セル共に、名前がついていたら名前、ついていなければrangeを表す文字列）を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前cell範囲をselectするようなことがやりたいのですが、私の検索の仕方が下手で、なかなか出てきません。どなたかご教示下さい。よろしくお願いします。

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

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

  • Office2010のVBAファイル自動オープン

    VBAの自動オープンで対象ファイルの開き方によって VBAが正常に動かないので質問させｔ下さい。 ネットワーク上のサーバーである AD-1から開くのとネットワークドライブPから開くのとでは Excelの名前の管理機能が動作しません。 Private Sub Workbook_Open() Workbooks.Open Filename:= _ "\\ad1\共通\aaaa.xlsx" Worksheets("Sheet1").Activate と Private Sub Workbook_Open() Workbooks.Open Filename:= _ "P:\共通\aaaa.xlsx" Worksheets("Sheet1").Activate 両方とも稼働させる方法はあるのでしょうか？ よろしくお願いします。 End Sub

  • VBA起動時のコンボボックスについて

    度々、お世話になっており、今回もご教授お願いしたいです。 VBAの“Sheet1”に２つのコンボボックスのプログラムを作成しました。 Private Sub ComboBox1_Change() Private Sub ComboBox2_Change() どちらも選択（fmStyleDropDownList）のみです。 しかし、Excel起動時にコンボボックスの内容が登録されないため、 ThisWorkbookの【Private Sub Workbook_Open()】　で Private Sub ComboBox1_Change() Private Sub ComboBox2_Change() ↑この２つを実行したいのですが、、、、 なんと記述したらよいかわからず、行き詰っています。。。 Private Sub Workbook_Open() ComboBox1_Change() = ture End Sub ↑こんな感じであれやこれや試してはいますが・・・ 記述方法をご教授ください。よろしくお願いします。

  • VBAについて質問です。

    VBAについて質問です。 現在、ExcelにてWorkbookを自動で作成するモジュールを作成しています。 モジュールを記載しているWorkbookを [wbSorce] 自動で作成されるWorkbookを [wbNew] とします。 [wbSorce] でモジュールを実行すると、 [wbNew] を新規に作成し、 データを入力して保存するのですが、保存する際に [wbNew] のイベントハンドラ ［Workbook_Open］ に 保存された [wbNew] を開いた時の挙動を記載するには どうすればよいでしょうか？ サンプルは下記になります。 ****[wbSorce]のモジュール**** Sub wbNew_Sakusei() 　　Dim wb As Workbook 　　Dim wb2 As Workbook 　　Dim i As Integer 　　Set wb = ThisWorkbook 　　Set wb2 = Workbooks.Add 　　For i = 1 To 5 　　　　wb2.Sheets(1).Cells(1, i) = wb.Sheets(1).Cells(1, i) 　　Next 　　wb2.SaveAs Filename:="wbNew" End Sub ****[wbNew]に記述したいモジュール**** Private Sub Workbook_Open() 　　ActiveWindow.ScrollRow = 1 　　MsgBox "Workbook_Openイベントが発生しました。" End Sub

  • VBAの「This Workbook」について

    VBAの「This Workbook」にコードを書くことについて教えて下さい。 ここにコードを書きと、例えばどんな便利な機能があるのでしょうか？ よろしくお願いします。 私は下記の意味はだいだいわかります。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open()

  • Excel VBAでの初期設定

    Excel VBA 初心者です。Excelは2013です。VBAでBookを開いたときにあるシートの初期設定をしたいと考えています。Activateイベントを使おうと思いましたがイベントが発生しないことがあるため質問しています。 例として以下のようなコードを記述したとき、sheet1以外を開いて保存している場合にはActivateイベントは発生しますが、sheet1を開いて保存している場合にはイベントが発生しないため初期設定の処理ができませんでした。 対応方法をお分かりの方ご教授いただけないでしょうか。 ============================= '"以下をThisWorkbook"に記述 Private Sub Workbook_Open() '②Worksheets("sheet2").Activate も入れれば Activateイベントは発生する Worksheets("sheet1").Activate '①もともと sheet1がActiveで保存されていた場合、Activateイベントは発生しなかった End Sub ============================= '"以下をsheet1"に記述 Private Sub Worksheet_Activate() '初期設定処理 MsgBox "sheet1の初期設定をしました" End Sub ============================= 宜しくお願いします。

  • エクセル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

  • 下記のVBAを他のワークシートにも適用する方法？

    下記のVBAを他の同じエクセルファイル内の他のワークシート（Sheet2,Sheet3,Sheet4)にも反映するためにはどのようにしたらよろしいでしょうか？ 現在書きVBAを本ワークブックという箇所に貼り付けております。 お手数ですがご教示いただきます様お願いいたします。 Private Sub Workbook_Open() With Sheets("Sheet1") .EnableOutlining = True .Protect Password:="****", UserInterfaceonly:=True End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する