[[20041206203715]]　『コピーを出来なくする方法』（困った班長）　ページの最後に飛ぶ

『コピーを出来なくする方法』（困った班長）

こんばんわ！いつも拝見させていただいております。

質問ですが、色んな関数（計算式）が入ったシートに入力していくのですが

初心者が多く、入力が不慣れな為横着して隣のセルを【コピー】する時に

間違って【切り取り】をしてしまったり、段ズレで貼り付けてしまったりして

判定欄に色んなエラーを返す結果を招いてます。

初心者が多い為、そういった事の防止策として【コピー】・【切り取り】を使用不可

にする事は出来ないでしょうか？

宜しくお願いします。

http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040803.txt
こちらが参考になると思います

 【１】保護ではなくて、セル間の切り取り、コピー、貼り付け
を一切キャンセルしてしまうマクロ。
ThisWorkbookモジュールへ貼り付けます。
'//////////////////////////////////////////////////////////////////
 Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Application.CutCopyMode = False
 End Sub

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.CutCopyMode = False
 End Sub

 Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
 Application.CutCopyMode = False
 End Sub
'//////////////////////////////////////////////////////////////////

 【２】入力範囲が連続セルに限定されるの場合は
スクロールできる範囲を限定してしまうマクロ。
例はSheet1のB2:B10のみセル選択可能。
ThisWorkbookモジュールへ貼り付けます。
'//////////////////////////////////////////////////////////////////
 Private Sub Workbook_Open()
 ThisWorkbook.Worksheets("Sheet1").ScrollArea = "B2:B10"
 End Sub
'//////////////////////////////////////////////////////////////////

 【３】あるいは、入力するセルの書式設定のみ保護タブの「ロック」を
あらかじめはずしておいた上で保護されていないセルのみ
選択できるようにするマクロ。
ThisWorkbookモジュールへ貼り付けます。
'//////////////////////////////////////////////////////////////////
 Private Sub Workbook_Open()
 With Worksheets("Sheet1")
     .EnableSelection = xlUnlockedCells
     .Protect
 End With
 End Sub
'//////////////////////////////////////////////////////////////////
　
以上、【1】【2】【3】状況に応じて使い分けしてください。
【2】【3】はいったん保存して次回開いたときから有効です。
エクセル2002以降はシートの保護設定でセル選択不可にできるので、
マクロまで使わなくてもよいかも・
（みやほりん）

みやほりんさん丁寧な回答ありがとうございます。

しかし、マクロ？っていうのはまったく分からないので

何処にどうどう貼り付ければいいのか分かりません。

貼り付け方法／場所もご教授頂けないでしょうか？

宜しくお願いします。

（困った班長）

 エクセル2000以前のバージョンをご使用という事ですね？
メニューの「ファイル(F)」の左にあるエクセルのアイコン（タイトルバーのアイコンじゃないよ）
を右クリックして「コードの表示」を選択、
表示されるVisualBasicEditorのコードウィンドウへ貼り付けます。
ただ、まったく理解しないままご使用されるのは感心しませんので、
ある程度理解した上でのご使用をお勧めします。
それぞれ単独で試すようにしてください。
（みやほりん）

コメント返信：

[ 一覧(最新更新順) ]

[[20041206203715]] 『コピーを出来なくする方法』（困った班長） ページの最後に飛ぶ

[[20041206203715]]　『コピーを出来なくする方法』（困った班長）　ページの最後に飛ぶ