Cuando alguien está usando el libro de trabajo de Lorenzo, le gustaría que solo la tecla F2 fuera accesible para el usuario. Se pregunta si hay alguna forma de deshabilitar todas las teclas de función en Excel, con la excepción de la tecla F2.

Hay una forma, pero debe hacerse mediante macros. Específicamente, querrá usar el método OnKey del objeto Application. Este código deshabilitará todas las teclas de función con la excepción de 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

La macro debe agregarse al módulo ThisWorkbook y se ejecutará automáticamente cuando se abra el libro.

Si lo desea, puede acortar un poco la macro:

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

También querrá asegurarse de que cuando cierre el libro de trabajo, vuelva a habilitar todas las teclas de función. Esta macro, nuevamente, debe agregarse al módulo ThisWorkbook:

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

También puede utilizar una versión más corta del mismo código:

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 es su fuente de formación rentable en Microsoft Excel.

Este consejo (13523) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.