エクセル2000で「切り取り」を不可としたい。

Question

入力用のエクセルの表があり、入力された数値に基づき同じシート内で計算を行い、答えを出すようしています。
入力する部分は連続しており、5列20行ほどあります。
その部分のセルのロックを解除し、シートは保護して計算式の改変を防いでいるのですが、使用者の中には入力用のセルを切り取って、別の入力用セルに貼り付ける人がいて、そんなことをされると貼り付け先を参照した計算式はREFエラーになるし、切り取られた方を参照した計算式は参照先が変わってしまいます。
結果、こんなシートは使い物にならないと文句を言われます。
。・゜゜ '゜（*/o＼*）'゜゜゜・。

ならばツールバーを非表示にして、おまけにCntrl+Xのショートカットキーも無効にしてやろうかいとも考えましたが、そうすると多くのユーザーの使い勝手を阻害することになってしまいます。
多分、一番いいのは「切り取り」を察知してUndoが出来ればと思うのですが、Changeイベントでは無理ですよね？

何か良い方法はないでしょうか？

okormazd · Accepted Answer

Tihs Workｂookに、

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Application.CutCopyMode = xlCut Then
Application.CutCopyMode = False
End If

End Sub

と、

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
If Application.CutCopyMode = xlCut Then
Application.CutCopyMode = False
End If

End Sub
で、よさそうだけど。

NNAQ · Answer

セルをドラッグ＆ドロップされたらだめなのでは？
数式を再セットするほうが良いと思いますけど。

一例で、
Sub sample(flg As Boolean)
Static strFormula() As String
Dim rng As Range
Dim i As Integer

With ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
i = 1
If flg Then
    ReDim strFormula(1 To .Count)
    For Each rng In .Cells
        strFormula(i) = rng.Formula
        i = i + 1
    Next
Else
    Application.EnableEvents = False
    For Each rng In .Cells
        If rng.Formula <> strFormula(i) Then rng.Formula = strFormula(i)
        i = i + 1
    Next
    Application.EnableEvents = True
End If
End With
End Sub

↓シートモジュールに
Private Sub Worksheet_Activate()
Call sample(True)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call sample(Target.HasFormula)
End Sub

一応動きますが、不完全なのでジャンク扱い（動作保障無し）で。

考え方としては、
（１）作成済み数式を文字列で取得。
（２）その数式文字列をどこかに記録。
上記コードでは配列変数を使ってるが、未使用セルに書き出したほうがいい。
（３）数式が変更されてしまったら、記録した文字列から復元。

（１）（２）は、最初に1回実行、あとは数式を手直ししたときに実行するだけ。
（３）は、イベントまたは手動で。

やっぱりきついですか？

Wendy02 · Answer

こんちには。

>Application.OnKey "^{x}", ""

Application.OnKey "^x", "" 

>Ctrl + x　が押されたときにメッセージを出すマクロを割り当てることですね？

ということです。

>メニューバーから「切り取り」指示がされた場合の対応のことなのでしょうか？

そのとおりです。メニューの編集の中の「切り取り」と右クリックメニューの「切り取り」のことです。クラスで、「コマンドボタン」に付け加えます。私は、既存のイベントにはつけません。

Wendy02 · Answer

こんにちは。

>「切り取り」を封じたいのですが、切り取られたことを取得する方法がわからなかったのです。

あえてコードを書く必要はないと思いますが、私は、通常は、Ctrl + X のようなショートカットは、Auto_Openの中に、OnKey で、新たに設定させ、他のイベントは使いません。ブックを限定する場合は、DeActivate,Activate によってオン・オフをさせます。

ショートカットを封じるには、ダミーのプロシージャ・マクロを置きます。ここにメッセージを出してもよいと思います。また、コマンドは、コマンドボタン側にクラスのインスタンスを設けるようにします。

okormazd · Answer

下記で、切取りを取得できませんか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Application.CutCopyMode = xlCut Then
        MsgBox "cut"
    End If

End Sub

Wendy02 · Answer

こんにちは。

落雷で外国のマーライオンさんは壊れたそうですが、お元気ですか？

>一番いいのは「切り取り」を察知してUndoが出来ればと思うのですが、Changeイベントでは無理ですよね？

ということは、Change イベントはともかくとして、Ctrl + Xでは、Cut するだけで、Undo を発生させたら、その手前に戻ってしまいます。おそらく、貼り付け時に、Undo するということではないでしょうか。でも、それは、「切り取り」を封じているということと同じではありませんか？そのブックだけ、ショートカットの「切り取り」を封じてしまってもよいと思いますし、そのブックに限定させ、数式にのみに、「切り取り」を封じてしまっても、問題はないのではありませんか？

しょせん、一部のワカランチンから文句言われるぐらいなら、メッセージを出して、こうなると事前に通告してもよいとは思います。

Splatter · Answer

切り取り機能自体を封印すると操作性が悪化しますので、
逆の発想で、計算式のセルを再セットするマクロを作成しては
いかがでしょうか。これで変更されても復元させる訳です。

まず、エクセルのシートに名前をつけます。
(デフォルトでSheet1等の名称となっている部分です)

次にマクロ機能を使い、簡単な実行プログラムを作成します。
マクロ機能といっても簡単なコードしか使用しなくて済むため、
未経験でもすぐに着手が可能かと思われます。

Excel VBA についての知識は以下のサイトがお勧めです。

■Excel VBA 入門講座
http://excelvba.pc-users.net/

まず、マクロを記述するためのVisual Basic Editor を起動します。
起動方法については以下のページが参考になります。

■Excel VBA 入門講座 | Visual Basic Editorの起動
http://excelvba.pc-users.net/fol1/1_1.html

マクロに記述する機能はただ一つ。
『セルの指定とプロパティセット』というものです。
この機能については以下のページが参考になります。

■Excel VBA 入門講座 | セルの指定とプロパティセット
http://excelvba.pc-users.net/fol2/2_1.html

具体的に言うと、以下のようなコードを記述していきます。
-----------------------------------------------------
Worksheets("シート名").Activate
Worksheets("シート名").Cells(1,21).Value="=SUM(A1:A20)"
Worksheets("シート名").Cells(5,21).Value="=SUM(E1:E20)"
…(以降同様)
-----------------------------------------------------

１行目の記述は指定したシートをアクティブにするものです。
２行目以降の記述は指定したシート『Worksheets("シート名")』
の、指定したセル『.Cells(X,Y)』を、Valueで指定した値
『.Value="セルの値"』に書き換えるといった物です。

２行目と同様の行を作成していき、指定するセルの番号と、
セットする値を書いていくことで全ての計算セルを埋めます。

このマクロを実行すると、プログラムで記述されたセルが一斉に
指定された値に置き換わるので、計算式を含むセルが変更されても
一括で指定した状態に戻すことができるようになります。

もちろん使用者が間違って切り取ってセル内容を消失していても、
マクロを実行すれば管理者も、利用者も簡単に復元できますね。

このマクロの実行は、エクセルシート内にボタンを作成して、
そのボタンを押すだけでマクロを実行するように登録もできます。
VBAマクロボタンについては以下のページを参照下さい。

■印刷のテクニック　EXCEL編　VBAマクロボタン
http://homepage1.nifty.com/tabotabo/insat/excelp/excelp09.htm

以上の方法であれば、わざわざ切り取り操作を復元したり、
切り取り操作を察知してUndoするような高度なプログラムを
作成する必要はありませんし、エクセルシート側には特定セルに
編集ロックをかけておくだけで良くなります。

VBAに慣れてきたら、たとえば計算式以外のセルをボタン押下で
すべて初期状態にリセットするボタンを作成してみたり、
勤怠票であれば日付を見て１日～３１日の曜日を振ってみたり、
土日祝のセルに背景色をつける、といったマクロ機能を作成したりと
応用もできますし、興味があれば挑戦していただければと思います。

uun373 · Answer

入力するセルの座標が固定であれば、こんな方法もあります。

例 : A1～C3に入力するとして、A7～C10でそれを呼び出すとします。
まず、A4～C6に、それぞれA1～C3の参照名をデータとして入れた
文字列を入れておき、隠しておきます。
A7～C10で、INDIRECT(A4)～INDIRECT(C6)という風にして呼び出すと
A1～C3の所で切り取り貼り付けを行われてもA7～C10で得られる参照結果は変わりません。

切り取りされても問題がないようにする、という別のアプローチ方法ですが、
参考になれば幸いです。

web2525 · Answer

シートを保護し、入力用のシート（または入力フォーム）を別に作成。
入力完了後にマクロで指定した保存シートに追加していく形式に変更しては？

入力後の結果表示が必要なら、計算結果を表示するマクロをつけ足せばよいかと。

エクセル2000で「切り取り」を不可としたい。

Tihs Workｂookに、

セルをドラッグ＆ドロップされたらだめなのでは？

こんちには。

こんにちは。

下記で、切取りを取得できませんか。

こんにちは。

切り取り機能自体を封印すると操作性が悪化しますので、

入力するセルの座標が固定であれば、こんな方法もあります。

シートを保護し、入力用のシート（または入力フォーム）を別に作成。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング