AW: rechte maustaste wieder herstellen
14.01.2010 07:31:53
Elias
Hallo Helge,
die Änderungen können sehr vielfältig sein; ob nun einzelne Schaltflächen abgeschaltet werden oder das ganze Menü geht aus Deiner Frage nicht hervor.
Wenn Du an den Code der gestern benutzten Datei herankommst und den part finden solltest, der die Maustaste verändert hat, kopiere ihn doch hierher, dann kann Dir sicher genauer geholfen werden.
Sind nur Ausschneiden/Kopieren/Einfügen/Inhalte einfügen nicht möglich, sollte Dir das hier weiter helfen:
(So aus dem Netz gefischt.)
Sub Kopieren_Aktivieren()
'Tastenkombinationen einschalten
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
'Drag & Drop wieder erlauben
Application.CellDragAndDrop = True
'Schaltflaechen in Menüleiste => Bearbeiten aktivieren
procControlEnableDisable 21, True ' Ausschneiden
procControlEnableDisable 19, True 'Kopieren
procControlEnableDisable 22, True 'Einfuegen
procControlEnableDisable 755, True 'Inhalte einfuegen
procControlEnableDisable 809, True 'Office-&Zwischenablage
End Sub
Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)
Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl
On Error Resume Next
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(ID:=intId, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next
End Sub
Einfach komplett in ein Modul kopieren, das "Kopieren_Aktivieren" per "Play"-Taste starten, dann sind die o.g. Sachen wieder verfügbar.
Gruß
Elias