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 FunctionQuesta 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 FunctionQuesta 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. |