wäre es auch möglich zu meinen beitrag von eben rote zeilen erst nach Passwort eingabe zu kopieren?
danke und gruß jens
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
Dim strPasswort As String
For Each rngZelle In Selection
If rngZelle.Interior.ColorIndex = 3 Then
strPasswort = InputBox("Rote Zeilen dürfen nur mit Passwort kopiert werden")
If strPasswort = "Mein Passwort" Then
Exit Sub
Else
MsgBox "Rote Zeilen dürfen nicht kopiert werden"
Range("A1").Select
Exit For
End If
End If
Next
End Sub