[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『記載のあるセルだけ保護するマクロ』(kimiko)
お世話になります。
Sheet内で入力がされているセルを自動で保護したいのですが マクロで可能でしょうか? マクロボタンに組み込んで使用したいと考えております。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("C1").Select End If とかで,選択できないようにしては?
End Sub
(Hara) 2014/10/31(金) 12:43
教えていただいたマクロを試してみました。 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.