Tworzę arkusz kalkulacyjny z danymi trendów na potrzeby testów analitycznych produktów chemicznych. Chciałbym, aby każda linia danych została zablokowana po zweryfikowaniu transkrypcji tych danych przez recenzenta. Jestem w stanie zablokować pojedynczą linię za pomocą tego kodu w VBA:
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Jeśli Zakres("X3") = "Nie" Wtedy
Range("B3:W3").Zablokowany = Fałsz
ElseIf Range("X3") = "Tak" Zatem
Range("B3:W3").Zablokowany = Prawda
End If
End Sub
Kolumna X zawiera listę rozwijaną z dwiema opcjami „Tak” i „Nie”. Chciałbym, aby każda linia danych dodawana do arkusza była blokowana po wybraniu przez recenzenta w tej kolumnie opcji „tak”, aby mieć pewność, że w poprzednich danych nie zostaną wprowadzone żadne niezamierzone zmiany. Czy jest to możliwe bez konieczności ciągłego powtarzania kodu about dla każdej linii?
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Jeśli Zakres("X3") = "Nie" Wtedy
Range("B3:W3").Zablokowany = Fałsz
ElseIf Range("X3") = "Tak" Zatem
Range("B3:W3").Zablokowany = Prawda
End If
End Sub
Kolumna X zawiera listę rozwijaną z dwiema opcjami „Tak” i „Nie”. Chciałbym, aby każda linia danych dodawana do arkusza była blokowana po wybraniu przez recenzenta w tej kolumnie opcji „tak”, aby mieć pewność, że w poprzednich danych nie zostaną wprowadzone żadne niezamierzone zmiany. Czy jest to możliwe bez konieczności ciągłego powtarzania kodu about dla każdej linii?