0과 빈 셀 미만의 셀을 잠글 수 있습니다. Excel

Question

기본적으로 B1 < 0, B2 : B7 = 0 및 B2 : B7이 비어있는 경우 B2 : B7을 잠글 수 있어야합니다.

이것은 내가 지금까지 가지고있는 것입니다.

SN : 방금 시작 했으므로 나에게 약간의 우둔함이 있습니다.

Sub test_lock() 

If Range("B1") < 0 And Range("B2:B7") Then 
    Range("B2:B7").Locked = True 

ElseIf Range("B2:B7") > 0 Then 
    Range("B2:B7").Locked = False 

End If 

For Each rngTemp In Range("B2:B7").Cells 
     With rngTemp 
      If .Value > 0 Or Len(.Value) > 0 Then 
       .Locked = False 
      End If 
     End With 
    Next 
End Sub 

Answer 1

어때? 그것은 전체 범위를 잠그고 필요한 것을 열어줍니다.

범위를 구축 한 다음 한 번에 모두 잠금 해제하면 셀 수가 많으면 더 빨리 작동합니다.

주석 처리 된 행에 주목하십시오. 이는 잠금 해제 된 셀을 쉽게 확인하기 위해 녹색으로 표시합니다.

Sub temp() 
Dim rCell As Range 
Dim inRng As Range 
Dim rRng As Range 

set myRng = Range("A1:B2") 

myRng.Locked = True 
For Each rCell In myRng 
    If rCell.Value > 0 Then 
     If rRng Is Nothing Then 
      Set rRng = rCell 
     Else 
      Set rRng = Application.Union(rRng, rCell) 
     End If 
     End If 
    Next 
    rRng.Locked = False 
    'rRng.Interior.ColorIndex = 4 
End Sub