< návrat zpět

MS Excel


Téma: Opakování funkce / makra rss

Zaslal/a 16.7.2020 10:09

Dobrý den,

Mám zámek na buňce D1, který se odemkne, pokud jiná buňka A1 obsahuje nějaký text / hodnotu.

Můžete, prosím, poradit, jak automaticky opakovat výše uvedené pro každý další řádek?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Range("D1").Locked = True
ElseIf Target <> "" Then
Range("D1").Locked = False
End If
ActiveSheet.Protect
End Sub

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#047340
Stalker
Nastaven rozsah A1:A10. Samozřejmě musí být tento rozsah bez zámku.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Target.Offset(, 3).Locked = True
Else
Target.Offset(, 3).Locked = False
End If
ActiveSheet.Protect
End Sub
citovat
#047341
avatar
alebo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A" & Target.Row)) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then Range("D" & Target.Row).Locked = True Else Range("D" & Target.Row).Locked = False
ActiveSheet.Protect
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje