1

リモート サーバーの共有ドライブにある別のワークブックからコピーした情報を取得したいワークブックがあります。ただし、このリモート ファイルはパスワードで保護されています。これらのファイルが同じコンピューター上にある場合、正常に動作します。ただし、ネットワーク経由でテストすると、まるでループ グリッチであるかのように、パスワードの入力を求められます。つまり、プロンプトが表示されたら、キャンセルしても、コードから指定されたパスワードを使用して完了します。

Private Sub Workbook_Open()

Application.DisplayAlerts = False
Set DATES = Workbooks.Open("Shareddrivepath\test.xlsx", password:="test")
    Range("G2:H27").Copy
    ThisWorkbook.Sheets(1).Range("C2:D27").PasteSpecial
    Range("J2:K27").Copy
    ThisWorkbook.Sheets(1).Range("G2:H27").PasteSpecial
    Range("A1:E21").Copy
    ThisWorkbook.Sheets("SET").Range("A1:E21").PasteSpecial


    ThisWorkbook.Sheets(1).Activate

DATES.Close
Application.DisplayAlerts = True

End Sub

そのパスワードをすぐにロードできる何かが不足していますか、それとも開いたときに呼び出される別のサブにリンクする必要がありますか? また、セルをリンクするだけでも試しましたが、起動時にパスワードが必要/要求されます。

4

1 に答える 1

1

これを回避する方法を見つけたと思います：

http://office.microsoft.com/en-us/excel-help/create-and-manage-links-to-other-workbooks-HA001054812.aspx

パスワードで保護されたワークブックへのリンク ソース ワークシートまたはワークブックに保護パスワードを割り当てても、パスワードを知らないワークブックをリンクするユーザーがリンクを更新するのを防ぐことはできません。ユーザーがリンクを更新するためにパスワードを入力する必要がある場合は、開くためのパスワードを指定してソース ブック ファイルを保存します ([ファイル] メニューの [名前を付けて保存] をクリックし、[ツール] メニューの [全般オプション] をクリックします)。

Set DATES = Workbooks.Open _
                    ("Shareddrivepath\test.xlsx", WriteResPassword:="test")
于 2013-10-02T15:47:11.500 に答える