受保護的工作表，單元格鎖定，將不接受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 

如果回答了您的問題，請點擊複選標記。