エクセルで上司のスケジュール表を作りました。
1シート1か月分で別シートに祝日の関数を用意して特定のセルに年を入れると各月のシートの土日祝日のセルに色が付くように書式設定してあります。
これは私だけではなくほかの数人もスケジュールを入力しているのですが、あまりエクセルが詳しくない人がいて、複数人の上司について同じ予定がある際、コピー&ペーストしてしまうことで書式も一緒に貼り付けされてしまいます。
この質問集の中では同様の質問でペーストのショートカットと右クリックででる貼り付けを潰してしまうマクロが出ていて参考にしたのですが、ツールバー?(2007でいうリボン?)のところの貼り付けは可能のままです。リボンの貼り付けも潰してしまうマクロもしくは形式を選択して貼り付け→値を強制的に行うマクロをご存知の方がいたら教えていただけませんでしょうか?宜しくお願いします。
OSはXP,エクセルは2007をしようしています。
No.1ベストアンサー
- 回答日時:
単にペーストを禁止するだけなら下記方法でどうぞ
■ エクセル ワークシート内のコピー禁止!
http://detail.chiebukuro.yahoo.co.jp/qa/question …
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Application.CutCopyMode <> False) Then
Application.CutCopyMode = False
End If
End Sub
でできます。
>>ツールバー?(2007でいうリボン?)のところの貼り付けは可能のままです。
ただし、質問者さんのいうコントロールを実現するには 別な方法を用いないとできません。
上記の「Application.CutCopyMode = False」はたとえばボタン操作で
ON/OFF を行ったとしても即時に反映されないので 難しいです。
即時に反映する方法があれば別ですけど・・・・
残る方法はクリップボード操作で行う方法だと思います。
■ Excelでのクリップボード禁止の制御方法(MSDN)
http://social.msdn.microsoft.com/Forums/ja-JP/vs …
■ [AC97] クリップボードから情報を取り出す方法
http://support.microsoft.com/kb/138910/ja
■ Excel マクロ集
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv209.html
No.2
- 回答日時:
A No.1 です。
訂正します。
ボタン操作でも可能です。
Private Sub Copyボタン_Click()
Dim F As Integer
F = MsgBox("Copy&Past を有効にしますか?", vbYesNo)
If F = vbYes Then
G_CopyOK = True
Else
G_CopyOK = False
v = Application.ClipboardFormats
End If
Application.CutCopyMode = G_CopyOK
End Sub
G_CopyOK は グローバル変数です。
ボタンを押して「はい」と答えた場合のみ、コピーペーストができます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAで、貼り付け禁止命令を実現したい(エクセル)
Visual Basic(VBA)
-
エクセルファイルを値でのみしか貼り付けできないようにする
Excel(エクセル)
-
EXCELでのコピー&ペーストを含む複製処理の禁止方法について
Excel(エクセル)
-
-
4
EXCEL、セルのコピー・貼り付けを禁止したい
Excel(エクセル)
-
5
Excelで書式の変更を禁止しデータ入力だけ許可したい
Excel(エクセル)
-
6
【緊急】エクセルVBA(2003)でのショートカットキーの無効化について
Visual Basic(VBA)
-
7
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでセルに標準で入力さ...
-
お世話になります。 Excelを使...
-
エクセルでB列でフィルターをか...
-
EXCELの質問です 119から足した...
-
Excel VBについての質問です。
-
UNIQUE関数が使えないバージョ...
-
Excelで、項目の種類ごとにカウ...
-
【マクロ】アクティブセルにブ...
-
【マクロ】アクティブセルの行...
-
A列とB列を参照してC列に連番を...
-
【マクロ】アクティブセルの、...
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
エクセル日付 文字列の関数がエ...
-
エクセルの空欄をつめて、次の...
-
エクセルの問題です。絶対値の...
-
エクセルのコメントのデザイン...
-
エクセルで上位バイトのセルと...
-
Excel 大小比較演算子による「...
-
「問題が発生しました」ですと?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けをマクロで禁止させたい。
-
あみだくじの横線の本数の求め方
-
マクロでエクセル内のアウトラ...
-
VBAで写真参照→写真サイズ変...
-
VBA初心者
-
ゾンビエクセル・・・(Exc...
-
エクセル マクロ コピー 貼...
-
エクセルでテキストを任意のセ...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
オペランドが足りませんとコメ...
-
【ExcelVBA】sheet作成時にマク...
-
エクセル/マクロ Exit Subが実...
-
mfc42.dllファイルってなんです...
-
VBA シートの切り替えができな...
-
エクセルの文字間スペースを入...
-
(int)キャストとintvalの違い
-
pythonでrequestsが使えない
-
エクセル 「実行時エラー"13":...
-
Excel2010でふりがなが漢字にな...
おすすめ情報