エクセルで上司のスケジュール表を作りました。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで、貼り付け禁止命令を実現したい(エクセル)
Visual Basic(VBA)
-
エクセルファイルを値でのみしか貼り付けできないようにする
Excel(エクセル)
-
EXCEL、セルのコピー・貼り付けを禁止したい
Excel(エクセル)
-
-
4
EXCELでのコピー&ペーストを含む複製処理の禁止方法について
Excel(エクセル)
-
5
Excelで書式の変更を禁止しデータ入力だけ許可したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 価格表から単価を呼び...
-
シートAで横に並んだ項目→シー...
-
行数が不規則な一週間ごとの合...
-
ある列、或いは、ある行のセル...
-
エクセルの順位別一覧表の自動...
-
Excel2013のF6キー操作について
-
エクセルで複数のシートにまた...
-
excelの不要な行の削除ができな...
-
Excelが固まってしまった。
-
エクセルで特定の範囲内から小...
-
スマートな関数を教えて下さい。
-
Excel元に戻す方法を教えてくだ...
-
Excelはなんで先頭の0を消すん...
-
【Microsoft Office Excel Comp...
-
4つのパターンを表示するEXACT...
-
[関数について]わかる方教えて...
-
Excel 2019 のピボットテーブル...
-
Excel初心者です。 詳しい方、...
-
関数を教えて下さい。
-
エクセルでチェックボックスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あみだくじの横線の本数の求め方
-
貼り付けをマクロで禁止させたい。
-
ゾンビエクセル・・・(Exc...
-
マクロでエクセル内のアウトラ...
-
エクセルのスピンボタン
-
エクセルでコメント挿入した部...
-
エクセルVBAのRand()関数は?
-
エクセルのselect case で 100...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
WordPressをインストールしてい...
-
オペランドが足りませんとコメ...
-
Excel2010でふりがなが漢字にな...
-
エクセル/マクロ Exit Subが実...
-
エクセルの文字間スペースを入...
-
pythonでrequestsが使えない
-
VBA シートの切り替えができな...
-
mfc42.dllファイルってなんです...
-
エクセル 「実行時エラー"13":...
おすすめ情報