kopieren schon aber einfügen nicht mehr möglich
19.02.2019 20:33:39
STeve
Habe folgenden Code (von Onur) in einem Blatt.
Er färbt die aktive Zelle (Target) in gelb ein - nur bei einem User (Administrator) nicht.
Blatt ist mit Passwort "PW" gesperrt.
PROBLEM: durch den Code kann zwar etwas mit STr+C kopiert .....aber nicht mehr mit Str+V eingefügt werden.
Könnte man das einbauen dass kopieren/Einfügen wieder geht?
Option Explicit
Public lTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If lTarget Is Nothing Then Set lTarget = Range("A1000")
Select Case LCase(Environ("UserName"))
Case Is = "Computername"
Exit Sub
Case Else
ActiveSheet.Unprotect Password:="PW"
Target.Interior.ColorIndex = 6
lTarget.Interior.ColorIndex = 0
Set lTarget = Target
End Select
ActiveSheet.Protect Password:="PW"
End Sub
Besten Dank und mfg
STeve
