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