Hmm...
Die Idee mit der Range gefällt mir, werde ich Montag ausprobieren... Könnte mir vorstellen, dass das klappt.
Was das Problem mit dem Aktivieren des Drag'n'Drop angeht: ich habe es noch nicht getestet, bin aber überzeugt, dass es mit dem im 1. Post gezeigten Code nicht mehr machbar ist. Zumindest der Rechte-Maus-Klick lässt sich mit
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Das Kontextmenü wurde deaktiviert." & vbCrLf & "Kopieren oder ''drag & drop'' funktioniert nicht.", 16, "In der gesamten Arbeitsmappe:"
End Sub
erfolgreich abschalten.
Ich melde mich Montag zu der Range-Idee...
Cheers, Foley
|