ロックシートが意図したとおりに動作しない

Question

別のシートのセルの値に基づいて、指定したシートをロック/ロック解除したいとします。 私はシートformのためのワークシートの変更に次のコードを書いた：Statusがactive以外である場合しかし、私はまだ「Rangeクラスの隠されたプロパティを設定することができません」を取得overviewでいくつかのセルを変更することができます

Application.ScreenUpdating = False 
Status = Sheets("form").Range("J2") 
If Status = "Active" Then 
    Sheets("overview").Unprotect "password" 
    'MsgBox "The template is now unlocked" 
Else 
    Sheets("overview").Protect "password" 
    'MsgBox "The template is locked" 
End If 
Application.ScreenUpdating = True 

現れる。 どこにエラーがありますか？

Answer 1

は（あなたのformワークシートのコードで）Worksheet_Changeイベントに次のコードを試してください：あなたは、このコードが書かれていない

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.ScreenUpdating = False 

    Status = Me.Range("J2") 
    If Status = "Active" Then 
     Sheets("overview").Unprotect "password" 
     'MsgBox "The template is now unlocked" 
    Else 
     Sheets("overview").Protect "password" 
     'MsgBox "The template is locked" 
    End If 
    Application.ScreenUpdating = True 


End Sub