[[20141031122439]] 『記載のあるセルだけ保護するマクロ』(kimiko) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『記載のあるセルだけ保護するマクロ』(kimiko)

お世話になります。

 Sheet内で入力がされているセルを自動で保護したいのですが
 マクロで可能でしょうか?
 マクロボタンに組み込んで使用したいと考えております。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then

 Range("C1").Select
End If
とかで,選択できないようにしては?

End Sub
(Hara) 2014/10/31(金) 12:43


Haraさま。返信ありがとうございます。
 教えていただいたマクロを試してみました。
 A1の部分を変更して範囲指定すると、選択できないようには
 なるのですが、
 ブックは多人数が頻繁に入力する形で運用しており
 誤って他の記載を削除・変更しないようにしたいのです。
 入力がある部分を自動で判別して、その部分だけを
 選択できないようにはできないでしょうか。
 また、その保護を一時的に解除することは、可能でしょうか?
 面倒なお願いで申し訳ありませんが
 よろしくお願いします。

(kimiko) 2014/10/31(金) 17:14


 まず全セルのロックを解除

 シートモジュールへ
 Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Unprotect
    On Error Resume Next
    Cells.SpecialCells(2).Locked = True
    Me.EnableSelection = xlUnlockedCells
    On Error GoTo 0
    Me.Protect
End Sub
(seiya) 2014/10/31(金) 17:37

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.