投稿日 | : 2003/02/19(Wed) 14:53 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^7: EXCELマクロ無効オープン |
> マクロ実行しないようになりました
私もホットしました。(^_^;)
場合によっては下記のような事も有効です。
Public MacroFlag As Boolean
Sub Macro1()
If MacroFlag = True Then
Range("B4").Select
ActiveCell.FormulaR1C1 = "マクロが実施されました。"
Range("A1").Select
End If
End Sub
Sub Auto_Open()
MacroFlag = True
End Sub
以上はExcel上の記述
VBからExcelを起動すると通常は、Auto_Open が実施されません。
従ってフラグが設定してあるマクロは実行できません。
※ No.2778の投稿の下記の部分は
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.EnableEvents = False
こちらに訂正願います。
Set xlApp = CreateObject("Excel.Application")
xlApp.EnableEvents = False
Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
Set xlSheet = xlBook.Worksheets(1)
Workbook_Openイベントに書かれているマクロも無効になります。