[[20210713155219]]　『「暗証番号付きのファイルの範囲をコピーして取込』（超初心者）　ページの最後に飛ぶ

『「暗証番号付きのファイルの範囲をコピーして取込み元シートに貼り付ける」』（超初心者）

超初心者です。

閉じているファイルからデータの一部をコピー（範囲をコピー）して、取込み元シートに貼り付けることはできます。

内容は、以下のとおりです。
コピーされるファイル名＝データA.xlsx　　コピーされるファイルのシート名＝データA
コピーするファイルのシート名＝集計

Sub 取込実行()

    '閉じているファイルからデータをコピーして貼り付ける
    Dim SetFile As String
    Dim wbMoto, wbSaki As Workbook
    Set wbMoto = ActiveWorkbook
    Application.DisplayAlerts = False
    SetFile = "C:\閉じている\データA.xlsx"  'マスターデータファイルの取り込み場所をセット（取り込み先）
    Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
    Set wbSaki = Workbooks.Open(SetFile)
        wbSaki.Worksheets("データA").Range("A1:E8").Copy  '取り込み先のシート名の範囲をコピー
        wbMoto.Worksheets("集計").Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats  '取り込み元シート名のA1から貼り付け
        Application.CutCopyMode = False
        wbSaki.Close False
    Application.DisplayAlerts = True
End Sub

しかし、コピーされるファイルに暗証番号が付いている場合は、いろんなことを試しましたが取込み元シートに貼り付けることができません。上記の内容をどのように変更したらよいでしょうか。
コピーされるファイルの暗証番号＝1234です。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 とりあえず２回Openしちゃってます。

 >   Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
 >   Set wbSaki = Workbooks.Open(SetFile)

 >ファイルに暗証番号
 [読み取りパスワード]の事で合ってますよね?
 だとしたら、

 >いろんなことを試しました
 って、
    Set wbSaki = Workbooks.Open(SetFile, ReadOnly:=True, Password:="1234")

 とか試してみました?
 順当に考えれば、まずはこれから試すと思うんですけど...

（白茶） 2021/07/13(火) 18:49

白茶さんへ

ご指導のとおり変更したら取込み元シートに貼り付けることができました。

ご返答を頂き誠にありがとうございました。

（超初心者） 2021/07/14(水) 09:31

既に指摘されてますし質問とは関係ないですが、気になったので一応。

 ・wbMotoがValiant型になってます
 ・wbSakiが２度開かれています
 ・"Moto"と"Saki"では意味合いが逆なので後で混乱しそうな気がします。

 ※同じ人なのかはわかりませんが、既に↓で指摘済みです
[[20210301134135]]　『実行時エラー1004の原因』（sugar）
[[20210122143920]]　『データの最終行までコピー』（Help）
[[20210403111842]]　『指定した値を検索し、別エクセルに転記したい』（SS）
[[20210531191339]]　『別シートのマクロ実行』（すにゃ）
[[20210623143216]]　『VBAのコピーについて』（健太）

（もこな２） 2021/07/14(水) 09:47

コメント返信：

[ 一覧(最新更新順) ]

[[20210713155219]] 『「暗証番号付きのファイルの範囲をコピーして取込』（超初心者） ページの最後に飛ぶ

[[20210713155219]]　『「暗証番号付きのファイルの範囲をコピーして取込』（超初心者）　ページの最後に飛ぶ