EXCEL(VBA)でシート保護がかかったシートにクリックボードから貼り付けしたい
EXCEL2000のVBAで、クリップボードにコピーしたデータ（複数のセル範囲）を、シート保護がかかった別のシートにコピーする操作を行ないたいと考えています。
手順としては「1.クリップボードにコピー」→「2.シート保護解除」→「3.貼り付け」→「4.シート保護」なのですが、下記マクロを作成して試してみたところ、2.のシート保護解除を行なった時点でクリップボードが空になるようで、「実行時エラー'1004':RangeクラスのPasteSpecialメソッドが失敗しました。」と表示され貼り付けができません。
これについて何か回避策はないでしょうか？
Range("A1:C3").Select
Selection.Copy
Sheets("貼り付け先シート").Select
ActiveSheet.Unprotect
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
以上、よろしくお願いします。
お礼
早速のご指導ありがとうございました。 一つ条件が漏れて質問させていただきましたが、それも同時に解決できました。 張り付けていた画像にハイパーリンクを掛けていましたが、こちらには逆にチェックを入れ全て解決です。 本当にありがとうございました。