EXCELマクロを無効にして開く方法

Question

掲題の通りなのですが、EXCEL2007で作成されたマクロ有効ファイル（XLSM形式）を
マクロ無効の状態で開く方法が分からず困っております。

マクロの内容は Workbook_Open 処理で、特定セルに入力されている
EXCELファイルを開き、自身は閉じるというものです。

Private Sub Workbook_Open()
    
    Dim FileName As String
    
    '１ファイル目
    Range("A2").Select
    FileName = ActiveCell.FormulaR1C1
    Workbooks.Open FileName:=FileName
    ThisWorkbook.Activate
    
    '２ファイル目
    Range("A3").Select
    FileName = ActiveCell.FormulaR1C1
    Workbooks.Open FileName:=FileName
    ThisWorkbook.Activate
    
    ・・・・・・繰り返し
    
    DoEvents
    ThisWorkbook.Close
    
End Sub

上記の特定セルに設定してあるファイルパスを変更するためには
マクロを無効にして開かなければなりません。

マクロのセキュリティを変更して、「すべてのマクロを無効にする」を設定して
該当のファイルを開けば良い事は分かっているのですが、他に分かりやすい方法で
マクロ無効状態で開く方法があれば、ご教授頂ければと思います。

cj_mover · Accepted Answer

Win7、Excel2010、ダブルクリックでファイルを開く設定、の場合ですが、
Excelが開いていない状態で、
一旦、ファイル（またはショートカット）をクリックしてから、
Shiftキーを押し、そのまま、ダブルクリック、
以上の手順で、セーフモードでExcelとブックが開きます。
つまり、Private Sub Workbook_Open()は実行されません。
環境によって手順は異なると思いますけれども。

WindFaller · Answer

確認しました。

エクスプローラからでは、Shift + も、Ctrl+ も、どの方法も出来ませんでした。特に、エクスプローラ上からでは、Shift +　は、多くのファイルが選択されてしまうので、ヒヤッとしました。

メニューから、Ctrl + で、Excelを選択する方法は、セーフモードで立ち上がるから、それは、それでもよいと思うのですが、それは目的とは違うようです。

今のところ、Excel 2010はないのですが、
私が行う場合(Auto_Openの自動実行をさせないために)は、

最初に、Excelで、新規ワークブックが立ち上げます。
　次に、Excelのメニューから、ファイル名を選び、
　Shiftキーを押しながら、ファイル名を選び、クリックします。
　そうすれば、Auto_Openは実行されません。

ところで、話は別ですが、質問のマクロは、少し危ういような気がしますが。
今回のことで、ファイル名を別のブックにしたり、テキストにしたり、iniファイルにしたりする方法もあるのではないかと思います。

サンプルを作ってみました。
以下は、ブックと同じフォルダに、"FileNames.txt"を置いて使うものです。
FileNames.txt の中身は、

-------------
f120929.xls
f121002.xls
f121005.xls
f121008.xls
-------------
のようになっています。もし、自動実行を止めたい場合は、テキストファイルの先頭に、ありえないファイル名を書けば、エラーが出て止まります。fAr(10)は、現在9個ですが、この数を増やせば、もっとブックが開けます。常識的な範囲で入れれば良いです。

'//
Private Sub Workbook_Open()
　Dim Fno As Integer
　Dim f As String
　Dim mPath As String
　Dim fAr(10) As Variant　'ファイルリストは9個まで、最後は空ける
　Dim i As Long
　Dim j As Long
　'ファイルリストは、このブックと同じフォルダに置かなくてはなりません。"
　Const FILE_LIST As String = "FileNames.txt"
　On Error GoTo ErrHandler
　mPath = ThisWorkbook.Path & "\"
　Fno = FreeFile()
　If Dir(mPath & FILE_LIST) = "" Then
　　MsgBox "file list が見つかりません。", 48
　　Exit Sub
　End If
　Open mPath & FILE_LIST For Input As #Fno
　Do While Not EOF(Fno)
　　Line Input #Fno, f
　　fAr(i) = f
　　i = i + 1
　Loop
　For j = 0 To UBound(fAr) - 1 '最後のIndex は、必ず開けます。
　　Workbooks.Open fAr(j)
　　If fAr(j + 1) = "" Then Exit For
　Next j
　ThisWorkbook.Close False
ErrHandler:
　 MsgBox Err & Err.Description
End Sub

cj_mover · Answer

＃２、３、ｃｊです。
すみません。訂正だけ。
＃２
（誤）
> 以上の手順で、セーフモードでExcelとブックが開きます。
（正）
以上の手順で、デザインモードでExcelとブックが開きます。

セーフモードはCtrl+でアプリケーション開くやつでしたね。
失礼しました。

tsubuyuki · Answer

落ち着いてゆっくりいきましょう。

エクスプローラーなどで、シングルクリックでファイルを選択。
その後、Shift+Enterキーで開く動作、ファイルが開ききるまでShiftは押しっぱなし。

言ってみれば、ダブルクリックと同じ動作なんですけどね。
選択して、一呼吸おいて、開いてみませんか。

cj_mover · Answer

こんにちは。＃２、ｃｊです。
解決策は見つけたということのようですので、よかったです。

でもまぁ、できれば簡単な方が良いかな？色々方法があった方がよいかな？
ということもあって、一応、もう一度レスしてみます。

私の＃２、
> 一旦、ファイル（またはショートカット）をクリックしてから、
これ↑伝わっていますでしょうか？
対象ファイルのアイコンがアクティブな状態にしてから
Shift + ダブルクリック、という意味ですので、
いきなり、Shift + ダブルクリック、ではうまくいかないです。

もっとも、Vista環境は私の方、確認しようがないので、OSの問題で違っていたとしても
不思議ではありませんが。

FEX2053 · Answer

Shiftキーを押しながらダブルクリックで開く・・・で行けたんじゃないかと。

EXCELマクロを無効にして開く方法

Win7、Excel2010、ダブルクリックでファイルを開く設定、の場合ですが、

この回答への補足

確認しました。

＃２、３、ｃｊです。

落ち着いてゆっくりいきましょう。

こんにちは。

Shiftキーを押しながらダブルクリックで開く・・・で行けたんじゃないかと。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング