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.
Kopiere nachfolgende Anweisungen in das VBA Projekt "DieseArbeitsmappe"
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.
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
NextKopiere 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 SubMit 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
Das ist genau das, was ich gesucht habe!
Danke!
Gruß
Balumba

