Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Hilfe bei einem speziellen Makro gesucht





Frage

Hallo zusammen, ich habe folgenden Makrowunsch, komme aber mit der Erstellung nicht weiter... Ich brauche ein Makro, welches die Tastenkombination [STRG] + [C] und die Funktion "Kopieren" der rechten Maustaste unterbindet. Geht das überhaupt? Wenn ja, wie kann ich das dann realisieren, dass dieses akro automatisch startet? Bitte um zahlreiche Info´s. Gruß Balulmba

Antwort 1 von coros

Nabend balumba,

kopiere nachfolgende Makros in ein StandardModul.

Sub Funktion_aktivieren()
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
procControlEnableDisable 21, True
procControlEnableDisable 19, True
procControlEnableDisable 22, True
procControlEnableDisable 755, True
procControlEnableDisable 809, True
End Sub

Sub Funktion_deaktivieren()
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
procControlEnableDisable 21, False
procControlEnableDisable 19, False
procControlEnableDisable 22, False
procControlEnableDisable 755, False
procControlEnableDisable 809, False
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


Kopiere nachfolgende Anweisungen in das VBA Projekt "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Funktion_aktivieren
End Sub

Private Sub Workbook_Open()
Funktion_deaktivieren
End Sub


Mit den Makros werden die Kopier, Ausschneide Einfüge usw. Funktionen deaktiviert, bzw aktiviert. Egal ob als Tastenkombination oder in den Menüs, diese Funktionen sind komplett gesperrt. Mit den beiden Anweisungen, die in das VBA Projekt "DieseArebitsmappe" kopiert werden, werden die Makros beim Öffnen bzw. beim Schließen der Datei gestartet.

Ich hoffe, Du kommst klar. bei Fragen melde Dich.

MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 2 von balumba

Vielen Dank!

Das ist genau das, was ich gesucht habe!

Danke!

Gruß
Balumba

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: