PC-HELP.CZ

Ahoj,
rád bych navázal s dotazem na kolegův problém s uzamykáním buněk po zapsání hodnoty. Jelikož je toto téma uzavřené, vznesu dotaz tímto způsobem. viewtopic.php?f=35&t=172117
Bylo by možné tento kód, viz níže, specifikovat jen pro určitou oblast buněk?
Předem moc děkuji.

'heslo listu
Const cstrHeslo As String = "heslo"

'před použitím odstraňte zámek všech buněk listu

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngBunka As Range

'odemčení listu heslem
ActiveSheet.Unprotect cstrHeslo

'pro každou z měněných buněk
For Each rngBunka In Target.Cells

'je buňka prázdná?
If IsEmpty(rngBunka) Then
'vyjmi ji oblasti zamčených
rngBunka.Locked = False
Else
'uplatni na ni zámek
rngBunka.Locked = True
End If

Next rngBunka

'znovuzamčení listu heslem
ActiveSheet.Protect cstrHeslo

End Sub

Technicky - ano, dělá se to v událostní proceduře běžně.
Prakticky - něco mi říká, že to nebude fungovat, resp. že to nemá smysl.

Dobrý den,
moc děkuji za pomoc, funguje to tak, jak jsem si představoval. Ještě bych se zeptal, zdali by šla udělat úprava v tom, že by to uživatele vyzvalo k zadání hesla při rozkliknutí již zamčeného pole vyskakujícím oknem.
Ještě jednou moc děkuji.