パスワード保護されたブックにApplication.Runを使用する方法？

Question

私が作成したエクセルベースのスケジューラの一環として、私はマクロを実行するには、次のように「Application.Ontime」関数を使用しています、指定の時間に

Sub Load 
    //snipped for brevity 

    Dim startName As String 
    startName = "'StartSub""" & filePath & """, """ & fileName & """, """ & macroName & """'" 

    Application.OnTime y, startName 

End Sub 

Sub StartSub(filePath As String, fileName As String, macroName As String) 
    Dim wb As String 
    wb = "'" & filePath & "'!" & macroName 
    Application.Run wb 
    Application.Workbooks(fileName).Close Savechanges:=True 
End Sub 

テストと簡単なPOCは実際に働いているようですよく私が直面している問題は、スプレッドシートの1つがパスワードで保護されていることです。問題は、パスワードの入力ダイアログが、マクロが予想通りに実行されないことです。出力と結果が複数のレポートにエクスポートされるため、パスワードで保護されたワークブックへの書き込みアクセスは必要ありません。

私の質問はこれを克服し、Application.Runを使用してパスワードで保護されたブックからマクロを実行する方法です。

Answer 1

ブックはパスワードで保護されているため、ファイルを開くときには常にパスワードが与えられます。これを克服するために、私はワークブックにパスワードを保存する必要がありました。だから問題は実際に正しいパスワードでファイルを開くことに沸った。

Sub StartSub(filePath As String, fileName As String, macroName As String) 
    Dim wb As String 
    wb = "'" & filePath & "'!" & macroName 
    Dim scheduledWb As Workbook 

    Dim pwd As String 
    Dim saveChange As Boolean 
    pwd = GetPassword(fileName) ' method that extracts correct password from somewhere 
    If Len(pwd) > 0 Then 
     Set scheduledWb = Workbooks.Open(fileName:=filePath, ReadOnly:=True, Password:=pwd) 
     saveChange = False 
    Else 
     Set scheduledWb = Workbooks.Open(fileName:=filePath) 
     saveChange = True 
    End If 

    Application.Run "'" & fileName & "'!" & macroName 
    Application.Workbooks(fileName).Close Savechanges:=saveChange 
End Sub 

Answer 2

いいえ。 MSはそれをサポートしていません。ワークブックを実行する前に保護を解除する必要があります。次に例を示します。http://www.ozgrid.com/forum/showthread.php?t=36816&page=1