VBAを使用して保護されたワークシートに貼り付けることはできませんが、手動で行うことができます

Question

あるブックから別のブックへデータの範囲をコピーするマクロを作成しました。他のブックのシートはパスワードで保護されていますが、私が手動でコピーして過去に行った場合、それを許可します。しかし、これを私のマクロに書き込もうとすると、ペーストが許可されません。次のように

コードは、現在、次のとおりです。

Sub COPYT() 
' 
' COPYT Macro 

    Range("B2:U109").Select 
    Selection.Copy 
    Workbooks.Open Filename:= _ 
     "_FileName_.xls" 
    Windows("_FileName_.xls").Activate 
    Range("H10").Paste 

End Sub 

であるように私は、マクロを実行すると、私は

実行時エラー「438」を取得：「オブジェクトは、このプロパティをサポートしていませんが法」

、デバッガや、問題が最終行であることを示しているRange("H10").Paste

私はシートの保護を解除できません（コンプライアンス）、私は明らかにこのマクロを実行してCtrl + Vを押すだけです（これにより、貼り付けが可能になります...）自動化されました。シートが保護されているため、貼り付けコマンドに別の構文が必要ですか？

ありがとう

Answer 1

ペーストはワークシートの方法であり、範囲ではありません。これを試して。シート参照を前提としていますが、調整が必要な場合があります。

Sub COPYT() 

Dim wb As Workbook 

Set wb = Workbooks.Open(Filename:="_FileName_.xls") 
wb.Sheets("compliance").unprotect  
ThisWorkbook.Sheets(1).Range("B2:U109").Copy wb.Sheets("compliance").Range("H10") 
wb.Sheets("compliance").protect 

End Sub