Quando qualcuno utilizza la cartella di lavoro di Lorenzo, vorrebbe che solo il tasto F2 fosse accessibile all’utente. Si chiede se c’è un modo per disabilitare tutti i tasti funzione in Excel, ad eccezione del tasto F2?

C’è un modo, ma deve essere fatto usando le macro. In particolare, ti consigliamo di utilizzare il metodo OnKey dell’oggetto Application. Questo codice disabiliterà tutti i tasti funzione ad eccezione di 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 deve essere aggiunta al modulo ThisWorkbook e verrà eseguita automaticamente all’apertura della cartella di lavoro.

Se lo desideri, potresti accorciare un po ‘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

Dovrai anche assicurarti di riattivare tutti i tasti funzione quando chiudi la cartella di lavoro. Questa macro, ancora una volta, dovrebbe essere aggiunta al modulo 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

Potresti anche usare una versione più breve dello stesso codice:

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 è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (13523) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.