Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lz As Long
If Not Intersect(Target, Range("A2:A" & Rows.Count & "")) Is Nothing Then
If Selection.Cells.Count > 1 Then Exit Sub
If Trim(Target) <> "" Then
ActiveSheet.Unprotect "123456"
Cells.Locked = False
Target.Offset(0, 1) = Now
Lz = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(Lz, 1)).Locked = True
Range(Cells(1, 2), Cells(Rows.Count, Columns.Count)).Locked = True
Range(Cells(Lz + 1, 1), Cells(Rows.Count, 1)).Locked = False
ActiveSheet.Protect "123456", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
in das Tabellenblatt
und schreib in A1 Barcode und in B1 Zeitstempel rein.
Dann geh auf A2 und mach einfach mit dem Barcodescanner ein paar Strichcodes.