AW: Edit: oder geht es dir....
28.11.2018 16:15:59
Karl-Heinz
Hallo zusammen,
M.E. kann bei geschütztem Blatt nichts eingefügt werden und bei ungeschütztem eben auch mit Formatierung.
Die Einstellungen im Dialog betreffen m.E. nur die Bearbeitung, nicht jedoch das Einfügen an sich.
Ich glaube nicht, dass es die gewünschte Funktionalität gibt. Deshalb bleibt nur der Weg, per VBA das Einfügen in eine eigene Sub umzulenken und dort zu handeln.
Hierzu sind folgende Schritte nötig:
Umlenken des Strg-V und ä. auf die eigene Sub
Context-Menü umbauen oder am besten abschalten
Ribbon-Einfügebutton im XML abschalten und/oder ggf. alternativ neu aufbauen auf eigene Sub.
Hier mal ein Ansatz zum ausprobieren (in das Tabellen-Modul:
Private Sub Worksheet_Activate()
Application.OnKey "^v", "FuegTextEin"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "^v"
End Sub
In ein Modul:
Sub FuegTextEin()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Ohne Ribbon-Bearbeitung und Abschalten des Context-Menüs bliebe nur der Blattschutz, der in FuegTextEin vorher aufgehoben werden müsste.
Dann aber vergisst Excel den Inhalt in der Zwischenablage. Dieser müsste vorher gerettet und wieder in die Zwischenablage kopiert werden.
Das klappt aber auch nur sehr unzuverlässig.
Sub FuegTextEin()
Dim oClip As dataobject, T As Variant
Set oClip = New dataobject
On Error GoTo Fehler
oClip.GetFromClipboard
T = oClip.GetText
ActiveSheet.Unprotect
oClip.SetText T
oClip.PutInClipboard
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Fehler:
ActiveSheet.Protect
End Sub
viele Grüße
Karl-Heinz