MS Excel

Téma: Opakování funkce / makra

Zaslal/a MilaF 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

Zaslat odpověď >

Stalker(16.7.2020 11:02)#047340

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

Palooo(16.7.2020 11:18)#047341

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)

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.