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
以上、よろしくお願いします。
No.3ベストアンサー
- 回答日時:
ThisWorkbook 等の自動実行イベントに
Private Sub Workbook_Open()
With Sheets("貼り付け先シート")
.Unprotect
'保護されたシートでマクロを実行するお呪い!
.Protect UserInterfaceOnly:=True
End With
End Sub
ご回答いただきありがとうございます。
教えて頂いた方法を試したところ、クリップボードからデータを貼り付けることが出来ました!
この方法の場合、マクロが「標準モジュール」と「ThisWorkbook」の2箇所に分かれるため、できれば1つのマクロで完結させたいのですが無理があるのでしょうか?
No.5
- 回答日時:
>できれば1つのマクロで完結させたいのですが無理があるのでしょうか?
一つのマクロで完結させるなら、処理開始前に保護解除をして、処理の終了時点で保護をする事になります。
いままでのプログラムの中の、保護解除や保護のタイミングを変えるだけで済みます。
ThisWorkbookモジュールではなくて、同じモジュールの中に別のプロシージャを書く方法もあります。
Auto_Open()
この場合、別のブックから呼び出された場合、実行されないので、そのような使い方がされる場合には適していません。
http://www.relief.jp/itnote/archives/001502.php
ありがとうございました。
マクロを一つにまとめる件、今日のところはうまくできなかったのですが、いくつかやり方を変えて試してみたいと思います。
No.4
- 回答日時:
#2です。
クリップボードのデータ取得は
Dim CB As New DataObject
Dim Dt As String
With CB
.GetFromClipboard
Dt = .GetText
End With
でできます。
が、#3さんの方法がよさそうですね。
No.1
- 回答日時:
このやり方ではダメですか?
「1.シート保護解除」→「2.クリップボードにコピー」→「3.貼り付け」→「4.シート保護」
Sub test()
Sheets("貼り付け先シート").Unprotect
Range("A1:C3").Copy
Sheets("貼り付け先シート").Range("A1").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("貼り付け先シート").Protect
End Sub
この回答への補足
ご返答いただきありがとうございます。
きちんとご説明できていなかったのですが、コピー元セル範囲は決まっておらず利用者が指定する必要があるため、マクロの中でRange("A1:C3").Copyといった定型的な指定が出来ないのです。
今のところ、シート保護と貼り付けを別々のマクロにする位しか回避策が思いつきません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
Excelで保護のかかったシートのコピー
Excel(エクセル)
-
エクセルVBA/イベント発生でコピペ不能はなぜ?
Excel(エクセル)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ロックしたセルのコピー&貼り付け
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセルVBAで値の貼り付けができない
その他(Microsoft Office)
-
8
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
9
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
10
ActiveSheet.Protect UserInterfaceOnly:=Trueの書き場所は
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
VBAのfor...next構文で i = A to Z としたい。
PowerPoint(パワーポイント)
-
13
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
-
14
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
15
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
16
シート保護を掛けたまま並べ替えやオートフィルタをするには
Excel(エクセル)
-
17
【エクセルVBA】「Protect UserInterfaceOnly」を2重にかけてはダメですか?
Visual Basic(VBA)
-
18
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
19
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
VBAで指定シート以外の選択
-
実行時エラー'1004': WorkSheet...
-
【Excel VBA】Worksheets().Act...
-
EXCEL VBAで複数シートから該当...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
指定文字が含まれるシートを削...
-
シートが保護されている状態で...
-
VBAでオブジェクト変数にsetし...
-
EXCEL(VBA)でシート保護がかか...
-
XL:BeforeDoubleClickが動かない
-
エクセル Worksheet_Calculate
-
EXCEL VBA シート比較し〇×判定
-
エクセルの絶対参照の一括操作...
-
別のシートを参照して計算する方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
【Excel VBA】Worksheets().Act...
-
実行時エラー1004「Select メソ...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報