access-vba
Abilita / disabilita Shift Key su DB Open
Ricerca…
Osservazioni
Questo codice disattiva la capacità per un utente di tenere premuto il tasto Maiusc quando si apre un database per saltare l'apertura del modulo di default e consentire all'utente l'accesso al riquadro di spostamento e all'editor VB. Nei DB che non si desidera che gli utenti abbiano accesso a uno di questi (insieme alla disattivazione dell'uso di Chiavi speciali nelle Opzioni del database corrente), questo codice aiuterà a mantenere il database bloccato.
Generalmente, il codice qui sotto è inserito nel proprio modulo che può essere chiamato modulo basEnableDisableShift, ma questo è solo un suggerimento e puoi inserirlo in qualsiasi modulo che potresti già avere.
Per disattivare il tasto Maiusc, all'interno della schermata VB Editor, inserisci "DisableShift" nella finestra Immediata e premi Invio. Riceverai quindi un messaggio che avvisa che il tasto Maiusc è stato disabilitato.
Per riattivare il tasto Shift, dovrai tornare alla schermata VB Editor, inserire "EnableShift" nella finestra Immediata e premere Invio. Riceverai nuovamente un messaggio nella finestra Immediata, avvisando che il tasto Maiusc è stato abilitato.
NOTA: questo non è un modo infallibile per abilitare e disabilitare Shift Key, ma se si sta distribuendo un database per utenti che non hanno esperienza con MS Access e VBA, dovrebbe essere utile impedire agli utenti di accedere a VB Editor e / o il riquadro di spostamento all'interno del database.
Disabilita codice funzione Shift
Function 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.Database
Dim prop As DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False
'The function is successful.
Debug.Print "Disabled Shift Key - Successful"
Exit Function
errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
GoTo ExitHere
End If
ExitHere:
Set prop = Nothing
Set db = Nothing
Exit Function
End Function
Abilita codice funzione Shift
Function EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.
On Error GoTo errEnableShift
Dim db As DAO.Database
Dim prop As DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True
'function successful
Debug.Print "Enabled Shift Key - Successful"
GoTo ExitHere
errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
GoTo ExitHere
End If
ExitHere:
Set prop = Nothing
Set db = Nothing
Exit Function
End Function