Tastenkombination deaktivieren

Forumthread: Tastenkombination deaktivieren
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tastenkombination deaktivieren

28.10.2016 13:14:16

Uwe

Hallo Zusammen,
ich möchte gerne in einem Tabellenblatt, und zwar nur in einem Tabellenblatt oder zumindest in einer Datei die Tastenkombination Strg+ und Strg- deaktivieren.
Wenn ich dass allerdings versuche, dann sind die Tastenkombinationen auch in allen anderen Exceldateien deaktiviert. Das ist aber nicht das Ziel.
Habt ihr mir dafür einen Code oder könnt Ihr meinen entsprechend ergänzen?
Wäre Euch sehr dankbar. Danke!!
Ich hatte zunächst damit begonnen:

Private Sub Tasten_Deaktivieren()
Workbooks("Mappe1.XLSM").Application.OnKey "^{109}", ""
Workbooks("Mappe1.XLSM").Application.OnKey "^{107}", ""
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Mappe1.XLSM").Application.OnKey "^{109}"
Workbooks("Mappe1.XLSM").Application.OnKey "^{107}"
End Sub

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tastenkombination deaktivieren

28.10.2016 13:17:38

Uwe
AW: Tastenkombination deaktivieren

28.10.2016 14:06:20

Rudi
AW: Tastenkombination deaktivieren

28.10.2016 14:18:44

Uwe
wie die anderen. owT

28.10.2016 14:20:15

Rudi
AW: wie die anderen. owT

28.10.2016 15:01:36

Uwe
in DieseArbeitsmappe!!! owT

28.10.2016 16:40:01

Rudi
AW: in DieseArbeitsmappe!!! owT

28.10.2016 16:58:03

Uwe

AW: Tastenkombination deaktivieren

28.10.2016 13:17:38

Uwe

Edit: nur in einem bedeuten, eben in ausgewählten Dateien in denen der Code hinterlegt ist, aber nicht automatisch in allen geöffneten Datein.
Danke.

AW: Tastenkombination deaktivieren

28.10.2016 14:06:20

Rudi

Hallo,
Codes ebenso in Workbook_activate und Workbook_deactivate
Gruß
Rudi

AW: Tastenkombination deaktivieren

28.10.2016 14:18:44

Uwe

Danke schonmal für deine Hilfe!
Aber kannst Du mir sagen wie der Code dann aussieht?
Ich bekomms grad nicht auf die Kette.
Grüße
Uwe

wie die anderen. owT

28.10.2016 14:20:15

Rudi

AW: wie die anderen. owT

28.10.2016 15:01:36

Uwe


Sub Workbook_Activate()
Workbooks("Mappe1.XLSM").Application.OnKey "^{107}", ""
Workbooks("Mappe1.XLSM").Application.OnKey "^{109}", ""
End Sub

Sub Workbook_Deactivate()
Workbooks("Mappe1.XLSM").Application.OnKey "^{107}"
Workbooks("Mappe1.XLSM").Application.OnKey "^{109}"
End Sub

Das sind jetzt meine Codes die im Modul stehen.
Nur diese zwei. Und es funktioniert leider nicht, vergess ich irgendetwas?
Oder muss ich die in unterschiedliche Module packen?
Bin leider totaler Anfänger :(
Die Zellen lassen sich immer noch in allen Tabellenblättern mit den Tastenkombinationen steuern/ oder eben nicht...aber nicht bezogen auf eine Datei.

in DieseArbeitsmappe!!! owT

28.10.2016 16:40:01

Rudi

AW: in DieseArbeitsmappe!!! owT

28.10.2016 16:58:03

Uwe

Vielen Dank und sorry für's blöde Fragen fragen! :D