Здравейте!

Бихте ли ми помогнали относно следния казус.

Идеята ми е следната ако в лист1 една от клетките от "А1" до "В10" не празна , тоест(ако има текст или някаква стойност в нея), то тогава същата да бъде заключена (да няма възможност да се променя текста или стойността в нея. А ако е празна - да е отключена (да има възможност да се въвежда текст или нещо друго в нея).

Ето кода с който се опитвам всичко това да се случи, но за сега удрям на камък)


Dim rng As Range
Set rng = Range("A1:B10")
For Each cell In rng

Range(rng).Locked = False
If Range(rng).Value <> "" Then
Range(rng).Locked = True
End If
Next
ActiveSheet.Protect Password:="Test"

End Sub

 Dim Rng As Range

  Set Rng = Range("A1:B10")

  ActiveSheet.Unprotect Password:="Test"

  For Each Cell In Rng

      Cell.Locked = (Cell.Value <> "")

  Next

  ActiveSheet.Protect Password:="Test"

Благодаря много! Получи се!