エクセル マクロ コピー→シート保護解除→貼付

質問

いつもお世話になっております。
マクロ勉強中の者です。

２つの別ブックのシート（互いに任意）を同時に開いている前提での作業です。

(1)あるブックのシート（任意）は，シート保護が施されています。このシートのシート保護の解除をします。

(2)(1)で示したブックとは別のブックのシート（任意）に，次のようなマクロを設定してあり，指定した範囲のコピーを行います。
Sub コピー()
コピー Macro
Range("E6:AI73").Select
Selection.copy
End Sub

(3)次に，(1)で示したブックのシート（任意）に次のようなマクロを設定してあり，先ほどコピーした内容を貼り付けます。
Sub 貼り付け()
Range("E6").Select
ActiveSheet.Paste
　ActiveSheet.Protect
End Sub

(4)(1)で示したシートには，(2)で行ったコピーの内容を貼り付け，シート保護された状態で作業が終わります。

この一連の作業の中で，(1)の作業を省けないかと考えています。つまり，
別ブックのシートを２枚開いている状態で，
◎あるブックのシートの内容をコピー（範囲指定あり）
→◎別のブックのシートに，シート保護解除して(2)でコピーした内容を貼り付け，（セル指定あり）シート保護して終了

(3)で示したマクロに　ActiveSheet.Unprotect　を付け加えて実行してみたのですが，うまくいきません。エクセルの性格上，「貼り付け」の前にシート保護解除の動作が入ることで，コピーした内容が失われ？て貼り付けることができないのかな？と感じているのですが，どなたかご教授いただけると嬉しいです。

エクセルのバージョンは，２０１６になります。

回答No.2

kkkkkm · ベストアンサー

以下のようにしておけばいかがでしょう。
Book1のSheet1のデータをマクロのあるブックにコピーすると仮定してます。
Sub example()
ActiveSheet.Unprotect
Workbooks("Book1.xlsm").Sheets("Sheet1").Range("E6:AI73").Copy
Range("E6").PasteSpecial
ActiveSheet.Protect
End Sub

また、Book1のSheet1に対してコピー以外の操作をする可能性がある場合には、以下のようにしておくといいでしょう。
With Workbooks("Book1.xlsm").Sheets("Sheet1")
.Range("E6:AI73").Copy
End With

お礼

アドバイスありがとうございました。
実際に試してみましたらできました。

回答No.1

ushi2015

こんにちは
シートの保護自体を別のマクロで行っておいては？
UserInterfaceOnly:=Trueにしておけば出来そうかと思います。

後は、提示されたマクロですが、ブック、シート等のオブジェクトを
指定するコードを追加して、Selectを使わないコードが書けるように
練習した方がいいかと思います。

お礼

的確なアドバイスをありがとうございます。