Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22660 / 76807

←次へ　｜　前へ→


	【59527】アドインの有効化について

桜 - 08/12/16(火) 19:04 -


	引用なし

	パスワード

こんにちは、桜です。
少々畑が違うかもしれませんが、もし可能ならお力を貸してください。

作成したマクロ入りexcelファイルを、
「読み取り専用」「マクロ有効」で立ち上げたくVBを作成しました。
「読み取り専用」「マクロ有効」でファイルを立ち上げるところまでは成功したのですが
そのファイルに「WORKDAY関数」が含まれており、これが無効の状態で立ち上がってしまいます。

オープンマクロでアドインのリフレッシュを試みたのですが
一度WORKDAY関数が使われているセルをクリックし、その後エンターを押さないと有効化されません。

■VB側
Option Explicit
Const cnsBook = "test.xls"
Const xlAutoOpen = 1
Dim objExcelApp, objWbk, strPath

' 本スクリプトファイルのフォルダ名の取得
With WScript
　strPath = Replace(.ScriptFullName, .ScriptName, "")
End With
' Excelのオブジェクトの参照を取得
Set objExcelApp = CreateObject("Excel.Application")
' 指定のワークブックを開く(同一フォルダ)。
Set objWbk = objExcelApp.Workbooks.Open(strPath & cnsBook, False, True)
' Excelウィンドウを表示
objExcelApp.Visible = True
' 自動起動マクロ(Auto_Open)があれば実行
objWbk.RunAutoMacros xlAutoOpen
Set objWbk = Nothing
Set objExcelApp = Nothing

■EXCEL VBA側（
Private Sub Workbook_Open()
　　AddIns("分析ツール").Installed = False
　　AddIns("分析ツール").Installed = True
End Sub

※VBA側に、一度「WORKDAY関数」を使用しているセルをアクティブにし、
その後最初に表示したいワークシートをアクティブにするコードも入れてみたのですが上手くいきませんでした。

よろしくお願いいたします。

1 hits

▼

【59527】アドインの有効化について 桜 08/12/16(火) 19:04

≪