行ごとに保護するマクロにパスワードを付けたい

質問

Excel2010を使用しております。

A列に「承認」という文字が入ると、その行が保護されるマクロがあります。
今の状態ですと、［校閲］-［シート保護の解除］を押すと解除されてしまいますので
保護を解除する際にパスワードを設定したいのですが上手く行きません。
どうかお助け下さい。宜しくお願い致します。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, rng As Range
Set rng = Intersect(Target, Columns(1))
If Not rng Is Nothing Then
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
For Each r In rng
If r.Value = "承認" Then
r.EntireRow.Locked = True
Else
r.EntireRow.Locked = False
End If
Next r
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True
End If
End Sub

回答No.1

doara_2011 · ベストアンサー

>ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True

を以下のように
ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True
パスワードを引数で渡せばOKです。
解除も Activesheet.Unprotect Password:="12345" でできます。

ただ、デフォルトですべてのセルはロックされているので、このままだと
一行に承認と書くと、シート全体が保護されて書き換えられなくなります。
マクロの実行前に、まず全てを選択してセルのロックを外しておくこと。

お礼

ここに書けば良かったんですね！勉強になりました。
お陰さまで希望通りになりました(^^♪
本当にどうもありがとうございました！