Guten Morgen,
ich habe mir mittlerweilen einen VBA Code zusammengebastelt - funktioniert soweit auch ganz gut.
Nur habe ich jetzt noch ein paar Kleinigkeiten die noch reingebastelt werden müssen und ich schaffs selbst nicht. :-)
Hier mal der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'Blattschutz aufheben'
ActiveSheet.Unprotect "test"
'Wenn Spalte E gefüllt - dann Username in Spalte H'
If (Target.Column = "5" And Target.Row > "4" And Target.Row < "64") Then
Range("H" & Target.Row) = Application.UserName
End If
'Wenn Spalte F gefüllt - dann Datum/Uhrzeit in Spalte G und'
'Spalte B:H grau hinterlegt'
If (Target.Column = "6" And Target.Row > "4" And Target.Row < "64") Then
Range("G" & Target.Row) = Now()
Range("B" & Target.Row & ":" & "H" & Target.Row).Interior.ColorIndex = 15
End If
Application.EnableEvents = True
'Blattschutz aktivieren'
ActiveSheet.Protect "test"
End Sub
So nun zu den Fragen:
1)Ich hätte jetzt gerne in der Passage, wo Excel mir das Datum reinsetzt und die Zeile grau färbt, eine Kriteriumabfrage. Also er soll mir das ganze nur machen, wenn in der Zelle der Text mit "<" oder ">" beginnt. Wie muss ich das umschreiben?
2)Kann man irgendwie das Passwort für den Blattschutz unsichtbar machen oder den Editor sperren? So könnte man das Passwort ja leicht auslesen.
3)Geht es evtl. auch das Excel mir automatisch eine Email per Outlook schickt, wenn die Datei verändert und geschlossen wurde?
Vielen Dank schon im Voraus.
Grüße
Marcus