gibt es eine Möglichkeit das Ich den Start von VBA durch die Tastenkombination Alt+F11 verhindern kann?
mfg
Ulf_MS
Private Sub Workbook_Open()
Application.OnKey "%{F11}", ""
End Sub
Sub VBAEnable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("extras").Controls("Makro").Enabled = True
.OnKey "%{F8}"
.OnKey "%{F11}"
.OnKey "+%{F11}"
End With
End Sub
Sub VBADisable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("extras").Controls("Makro").Enabled = False
.OnKey "%{F8}", "VBAMessage"
.OnKey "%{F11}", "VBAMessage"
.OnKey "+%{F11}", "VBAMessage"
End With
End Sub
Sub VBAMessage()
MsgBox "Diese Funktion ist deaktiviert.", vbInformation, "Fehler"
End Sub
Gruß MatthiasUm das Öffnen des VBA-Editors mit der Tastenkombination Alt + F11 in Excel zu verhindern, kannst Du den folgenden VBA-Code verwenden. Dieser wird beim Öffnen des Arbeitsbuchs ausgeführt:
Private Sub Workbook_Open()
Application.OnKey "%{F11}", ""
End Sub
Führe die folgenden Schritte aus:
Alt + F11 funktioniert nicht: Stelle sicher, dass der Code korrekt im ThisWorkbook-Modul eingefügt ist und dass Du die Datei als Makro-fähig gespeichert hast.
Die Funktion wird trotz Code weiterhin aktiviert: Es gibt weitere Möglichkeiten, in den VBA-Editor zu gelangen. Du musst den Code entsprechend erweitern, um auch andere Tastenkombinationen wie Alt + F8 oder Shift + Alt + F11 zu deaktivieren.
Neben der Verwendung des obigen Codes gibt es alternative Methoden, um den Zugriff auf den VBA-Editor einzuschränken:
Hier ein erweitertes Beispiel, wie Du verschiedene Tastenkombinationen in Excel deaktivieren kannst. Der folgende VBA-Code deaktiviert Alt + F11, Alt + F8 und Shift + Alt + F11:
Sub VBAEnable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("extras").Controls("Makro").Enabled = True
.OnKey "%{F8}"
.OnKey "%{F11}"
.OnKey "+%{F11}"
End With
End Sub
Sub VBADisable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("extras").Controls("Makro").Enabled = False
.OnKey "%{F8}", "VBAMessage"
.OnKey "%{F11}", "VBAMessage"
.OnKey "+%{F11}", "VBAMessage"
End With
End Sub
Sub VBAMessage()
MsgBox "Diese Funktion ist deaktiviert.", vbInformation, "Fehler"
End Sub
1. Warum kann ich Alt + F11 nicht deaktivieren?
Es gibt mehrere Möglichkeiten, in den VBA-Editor zu gelangen. Du musst sicherstellen, dass Du alle relevanten Tastenkombinationen im Code berücksichtigst.
2. Kann ich Alt + F11 in Excel 2007 oder höher deaktivieren?
Ja, der Code funktioniert in Excel 2000, XP sowie in neueren Versionen wie Excel 2007 und höher, solange Du die Datei als Makro-fähig speicherst.