Gentile Cinzia,
al link che mi hai segnalato non sono riuscito a trovare risposta.
Io utilizzo il seguente codice:
Function ap_DisableShift()'This function disable the shift at startup. This action causes'the Autoexec macro and Startup properties to always be executed.
On Error GoTo errDisableShift
Dim db As DAO.DatabaseDim prop As DAO.PropertyConst conPropNotFound = 3270
Set db = CurrentDb()
'This next line disables the shift key on startup.db.Properties("AllowByPassKey") = False
'The function is successful.Exit Function
errDisableShift:'The first part of this error routine creates the "AllowByPassKey'property if it does not exist.If Err = conPropNotFound ThenSet prop = db.CreateProperty("AllowByPassKey", _dbBoolean, False)db.Properties.Append propResume NextElseMsgBox "Function 'ap_DisableShift' did not complete successfully."Exit FunctionEnd If
End Function
Ora, lanciando da una finestra immediata il comando ap_DisableShift, disabilito il tasto Shift.
In pratica mi chiudo la porta alle spalle buttando la chiave all'interno.
A questo punto come può qualcuno violare questo blocco?
Grazie.