Excel VBA質問箱 IV

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

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


22591 / 76738 ←次へ | 前へ→

【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関数」を使用しているセルをアクティブにし、
その後最初に表示したいワークシートをアクティブにするコードも入れてみたのですが上手くいきませんでした。


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

0 hits

【59527】アドインの有効化について 08/12/16(火) 19:04 質問
【59528】Re:アドインの有効化について neptune 08/12/16(火) 20:38 発言
【59530】Re:アドインの有効化について 08/12/17(水) 9:47 お礼
【59532】Re:アドインの有効化について neptune 08/12/17(水) 10:53 発言
【59533】Re:アドインの有効化について 08/12/17(水) 11:42 発言
【59534】Re:アドインの有効化について 角田 08/12/17(水) 11:56 回答

22591 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free