|
Modules |
| 5.68 Disabilita o riabilta la macro Autoexec |
| Alessandro Baraldi |
|
Disabilita la macro Autoexec La funzione che segue verifica se nel database corrente esiste o meno la macro Autoexec e nel caso positivo la disabilita cambiandogli il nome in _Autoexec.
Private Function DisableAutoExec() As Boolean
Dim docCiclo As DAO.Document
Dim dbs As DAO.Database
Set dbs = CurrentDb
DisableAutoExec = False
For Each docCiclo In dbs.Containers!Scripts.Documents 'Scorre l'insieme Documents del
If docCiclo.Name = "Autoexec" Then ' database per verificare la presenza della Macro
DoCmd.Rename "_Autoexec", acMacro, "Autoexec" 'la rinomina
DisableAutoExec = True
End If
Next docCiclo
Set dbs = Nothing
End Function
Questa funzione restituisce il valore True se nel database corrente esisteva una macro Autexec alla quale ha cambiato il nome in _Autoexec, oppure il valore False in caso contrario.Riabilita la macro Autoexec La funzione che segue verifica se nel database corrente esiste o meno una macro chiamata _ Autoexec e nel caso positivo la riabilita riassegnadole il nome di Autoexec.
Private Function EnableAutoExec() As Boolean
Dim docCiclo As DAO.Document
Dim dbs As DAO.Database
Set dbs = CurrentDb
EnableAutoExec = False
For Each docCiclo In dbs.Containers!Scripts.Documents 'Scorre l'insieme Documents del
If docCiclo.Name = "_Autoexec" Then ' database per verificare la presenza della
DoCmd.Rename "Autoexec", acMacro, "_Autoexec" ' rinomina
EnableAutoExec = True
End If
Next docCiclo
Set dbs = Nothing
End Function
Questa funzione restituisce il valore True se nel database corrente esisteva una macro chiamata _Autexec ed alla quale ha cambiato il nome in Autoexec, oppure il valore False in caso contrario.Nota comune alle due funzioni Ambedue le funzioni fanno riferimento alla libreria Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, si dovrà aggiungere tale libreria ai riferimenti del database. |