Wenn jemand Lorenzos Arbeitsmappe verwendet, möchte er, dass nur die Taste F2 für den Benutzer zugänglich ist. Er fragt sich, ob es eine Möglichkeit gibt, alle Funktionstasten in Excel mit Ausnahme der Taste F2 zu deaktivieren.

Es gibt einen Weg, aber es muss mit Makros gemacht werden. Insbesondere möchten Sie die OnKey-Methode des Anwendungsobjekts verwenden. Dieser Code deaktiviert alle Funktionstasten mit Ausnahme von F2:

Private Sub Workbook_Open()

Application.OnKey "{F1}", ""

Application.OnKey "{F3}", ""

Application.OnKey "{F4}", ""

Application.OnKey "{F5}", ""

Application.OnKey "{F6}", ""

Application.OnKey "{F7}", ""

Application.OnKey "{F8}", ""

Application.OnKey "{F9}", ""

Application.OnKey "{F10}", ""

Application.OnKey "{F11}", ""

Application.OnKey "{F12}", ""

End Sub

Das Makro muss dem ThisWorkbook-Modul hinzugefügt werden und wird beim Öffnen der Arbeitsmappe automatisch ausgeführt.

Falls gewünscht, können Sie das Makro etwas kürzer machen:

Private Sub Workbook_Open()

Dim sTemp As String     Dim J As Integer

For J = 1 to 12         If J <> 2 Then             sTemp = "{F" & Trim(Str(J)) & "}"

Application.OnKey sTemp, ""

End If     Next J End Sub

Sie sollten auch sicherstellen, dass Sie beim Schließen der Arbeitsmappe alle Funktionstasten wieder aktivieren. Dieses Makro sollte erneut zum ThisWorkbook-Modul hinzugefügt werden:

Private Sub Workbook_BeforeClose(CANCEL As Boolean)

Application.OnKey "{F1}"

Application.OnKey "{F3}"

Application.OnKey "{F4}"

Application.OnKey "{F5}"

Application.OnKey "{F6}"

Application.OnKey "{F7}"

Application.OnKey "{F8}"

Application.OnKey "{F9}"

Application.OnKey "{F10}"

Application.OnKey "{F11}"

Application.OnKey "{F12}"

End Sub

Sie können auch eine kürzere Version desselben Codes verwenden:

Private Sub Workbook_BeforeClose(CANCEL As Boolean)

Dim sTemp As String     Dim J As Integer

For J = 1 to 12         If J <> 2 Then             sTemp = "{F" & Trim(Str(J)) & "}"

Application.OnKey sTemp         End If     Next J End Sub

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13523) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.