пытаясь избежать снятия защиты / защиты - PullRequest
Новая
       12

пытаясь избежать снятия защиты / защиты

0 голосов
/ 31 октября 2018

Следующий код работает, но ищет решение, чтобы избежать закомментированной части кода снятия защиты / защиты. Диапазон «О» - формула в защищенных клетках. я продолжаю получать ошибку несоответствия типов при вызове значения в диапазоне «O». Попытка выяснить, как создать переменную с именем «Проверка», которая будет вычислять

=IFERROR(F168-(VLOOKUP($B168,eac_equipment_list!$P:$S,2,FALSE)),0)

и беги по петле. Будет ли это предотвращать замедление моей книги командой unprotect / protect? спасибо! 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

For i = 16 To 194

If Range("O" & i) = 0 Then
    ''do nothing
End If

If Range("O" & i) <> 0 Then
    answer = MsgBox("Price Change. Are you sure?", vbYesNo)
    ''Sheets("offer_sheet").Unprotect Password:="dvs2018"
End If

If answer = vbNo Then
    Range("F" & i).Formula = "=IFERROR(VLOOKUP($B" & i & ",eac_equipment_list!$P:$S,2,FALSE),"""")"       
End If

If answer = vbYes Then
    Range("O" & i) = "0"     
End If

Next i

''Sheets("offer_sheet").Protect Password:="dvs2018"

End Sub
...