[[20120712134659]]　『必ずマクロを有効にして開かせる方法』（花子）　ページの最後に飛ぶ

『必ずマクロを有効にして開かせる方法』（花子）

 表題にあるような事なのですが、マクロのブックを開くときに聞いてくる
 メッセージで、必ずマクロを有効にして開かせる方法はありますか？

 マクロを無効にして開こうとすると、「マクロを有効にして開いてください」
 とかいうメッセージが出て、無効では開けないようにするとか・・・

 よろしくお願いします。

 WindowsXP
 Excel2003

 >必ずマクロを有効にして開かせる方法はありますか？
 無いと思います。
 これできたら、ウイルス作成者が大喜びしそうですが。

 無いので、マクロを無効にして開いた場合は、ほとんど使えない状態にするといった
 方法ぐらいでしょうか？

 ブックを閉じる時に、使えるシートを非表示にダミーシートだけを表示しておくように
 細工するとか。
 ただ、これだと今までやった事を全部やり直したいと思ったときなど、保存せずに
 ブックを終了してやり直すといった事ができなくなるので私はやりたくないですけど。

 ブックを閉じる時に強制的に使えるシートを隠して、ダミーシートだけを表示。 
 ブックを開いた時にダミーシートを隠して、使えるシートを表示。

 こんな具合ですが、画面がちらつくとかクレームをたれる方が多いように思います。

 ああ、VBSを使って開く方法がありましたね。

 前に書いた奴なんで詳細忘れたけど、Auto_Openの書かれたマクロを実行をしたい時。
 下記をメモ帳に貼り付けて、保存後拡張子を「vbs」に変更。
 実行ブック.xlsを使いたい場合は、このVBSファイルから起動させる。
 良く考えたら、マクロのセキュリティを高や最高にされたらだめだろうね。
 BJ

 Spa = WScript.ScriptFullName
 Fpath = Left(Spa, InStrRev(Spa, "\") - 1)
 OPFL = Fpath & "\実行ブック.xls"
 On Error Resume Next
 Set ExlApp = GetObject(, "Excel.Application")
 If ExlApp Is Nothing Then
 Set ExlApp = CreateObject("Excel.Application")
 Else
 End If
 ExlApp.Visible = True
 AppActivate ExlApp.Caption
 ExlApp.DisplayAlerts = False
 ExlApp.EnableEvents = False
 ExlApp.Workbooks.Open OPFL
 ExlApp.Run ("'" & OPFL & "'!Auto_Open")
 ExlApp.EnableEvents = True
 Set ExlApp = Nothing

コメント返信：

[ 一覧(最新更新順) ]

[[20120712134659]] 『必ずマクロを有効にして開かせる方法』（花子） ページの最後に飛ぶ

[[20120712134659]]　『必ずマクロを有効にして開かせる方法』（花子）　ページの最後に飛ぶ