Hallo Sven,
Das mit dem Passwort kann man lösen. Tuasche Deinen VBA-Code gegen den folgenden aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Const strPasswort = "Hier das Passwort eintragen"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
ActiveSheet.Unprotect strPasswort
If Target.Value = "" Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = ""
End With
Else
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
ActiveSheet.Protect strPasswort
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, Range("C:C")) Is Nothing Then
ActiveSheet.Unprotect strPasswort
Range("C:C").Interior.ColorIndex = xlNone
Selection.Interior.ColorIndex = 5
ActiveSheet.Protect strPasswort
End If
End Sub
In der Zeile
Const strPasswort = "Hier das Passwort eintragen"musst Du anstelle des Textes "Hier das Passwort eintragen" Dein Passwort eintragen. Achtung! Datei nicht die Anführungszeichen löschen, dass Passwort gehört dazwischen.
Zu Deiner 2. Frage kann ich im Moment leider nichts sagen, da ich die Frage irgendwie (noch) nicht verstanden habe.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
