Защищенный лист, сотовой связи заблокирован, не принимается код 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 

Пожалуйста, нажмите на галочку, если это ответил на ваш вопрос.