Zwischenablage leeren mit neuen Versionen
Franz
Habe eine 2003-Version. Wer könnte mir das nachfolgende mit einer 2007er und 2010er auf Funktionstüchtigkeit kurz testen? Ziel: in der Mappe1 wo dies gespeichert ist, möchte ich prüfen ob bei einem Wechsel in eine Mappe2 oder auch Mappe3 ein X-beliebiger Snapshot (Strg+V, oder Strg + Druck) aus der Zwischenablage gnadenlos gelöscht wird.
Unter Modul XYZ
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public Sub ClipBoardDel(bDummy As Boolean)
Quelle: Herber-CD
OpenClipboard FindWindow("xlMain", vbNullString)
EmptyClipboard
CloseClipboard
End Sub
Unter DieserArbeitsmappe
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Mein Aufruf
Call ClipBoardDel(True)
End Sub
Würde es auch mit Windows7 gehen? Darf ich mit euch wieder rechnen?
Danke im voraus.
Franz D.
Anzeige