保護シート、セルロック、VBAコードを受け付けません

Question

私は、パスのない保護されたシート、セルD6がロックされています。そのセルのVBAコードは実行されません。

私はここにいくつかの記事を読んでいます。これは同様の問題の解決策となりました。どのように使用するか、どこに置くかはわかりません。私はそれにパスワードを持っていないと述べたように。

Worksheets("Loading").Protect Password:=****, UserInterfaceOnly:=True 

Private Sub Worksheet_Change(ByVal Target As range) 

Application.EnableEvents = False '<--| disable events handling 
On Error GoTo ErrorHandler '<--| be sure to catch any error and enable events handling back 

Select Case Target.Address 

    Case "$D$4" 
     'Recalculate Downpayment D5 if Purchase Price is changed 

     range("D5").Value = (range("D4").Value * range("B5").Value)/100 
     Debug.Print "New value for D5 Downpayment "; range("D5").Value 
     range("D6").Value = (range("D4").Value - range("D5").Value) ' This cell won't activate when locked and sheet protected 
     Debug.Print "D6 New Mortgage " & range("D6").Value 

Answer 1

あなたは、セルD6の値を変更することができ、ワークシート変更イベントを持っています。 D6の値を変更するには、セルがロックされている場合は、まずVBAで保護されていないセルを保護する必要があります。今、あなたはこれを行う、あなたはD6は常に保護されるようにしたいと言っていること：

Case "$D$4" 
    'unprotect sheet 
    Worksheets("Loading").Unprotect 

    'Recalculate Downpayment D5 if Purchase Price is changed 

    range("D5").Value = (range("D4").Value * range("B5").Value)/100 
    Debug.Print "New value for D5 Downpayment "; range("D5").Value 
    range("D6").Value = (range("D4").Value - range("D5").Value) 
    Debug.Print "D6 New Mortgage " & range("D6").Value 

    'protect the sheet back 
    Worksheets("Loading").Protect 

これは、あなたの質問に答えた場合、チェックマークをヒットしてください。