|
|
| Тема |
 Заключване на клетка |
|
| Автор |
zvezdi4kata_ff (непознат
) |
|
| Публикувано | 16.08.15 22:27 |
|
|
|
Здравейте!
Бихте ли ми помогнали относно следния казус.
Идеята ми е следната ако в лист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
| |
| |
| 
|
|
