Come eliminare l'avviso di protezione VBA

Question

Ho sviluppato un'applicazione di accesso tramite VBA. Ogni volta che Open Access, ho il seguente:

devo cliccare Opzioni ->abilitare il contenuto per eseguire le mie macro. Questa applicazione sarà condivisa tra un paio di persone al lavoro che non sono così esperti di tecnologia. Quindi, come da requisiti, devo rimuoverlo. Ho provato a firmare/impacchettare il database, ma non mi sbarazza ancora dell'avvertimento.

Answer 1

Per fare ciò è necessario aggiungere la posizione da cui viene avviato Excel in "Percorsi attendibili".

A tale scopo, procedere come segue:

• In Opzioni di Excel, andare al Centro protezione e quindi Percorsi attendibili
• aggiungere la posizione.

Questo dovrebbe essere fatto su base pc.

Inoltre, non esiste un modo per eseguire questa operazione da un punto di vista del file Excel in quanto ciò eliminerebbe completamente la funzione di sicurezza che consente all'utente di scegliere se eseguire il codice VBA o meno.

Anche un piccolo sidenote, se firmi il tuo file Excel, avresti comunque bisogno che il destinatario si fidi di te come editore, ecco perché probabilmente la tua soluzione non ha funzionato.

Edit:

Tenendo commenti, ci sembra essere un modo per farlo a livello di codice. Come preso da XpertsExchange,

Perché non impostare semplicemente la voce di registro dal codice, senza richiamare Shell? Utilizzare la classe cRegistry trovato qui:

http://www.vbaccelerator.com/home/VB/Code/Libraries/Registry_and_Ini_Files/Complete_Registry_Control/article.asp

codice VBA:

Dim c As New cRegistry 
    With c 
     .ClassKey = HKEY_CURRENT_USER 
     .SectionKey = "Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\YourTrustedLocationName" 
     .ValueKey = "Path" 
     .ValueType = REG_DWORD 
     .Value = "Full path to Trusted Folder" 
    End With 

L'unica avvertenza è che YourTrustedLocationname deve essere unico ...

dovreste provare se dovrebbe essere .ValueType = REG_DWORD o REG_SZ. Non sono sicuro su quello.

Answer 2

Fare firmare la macro da un'autorità fidata.

Answer 3

È un'opzione per utente. Tutti avrebbero bisogno di "fidarsi" della tua cartella di lavoro.

In Excel, fai clic sul pulsante del menu e seleziona Opzioni di Excel. In questa finestra, seleziona Centro protezione, quindi Impostazioni Centro protezione. In quella finestra, scegli Località attendibili.

Una volta su quella schermata, è consigliabile selezionare "Consenti percorsi attendibili sulla mia rete", quindi fare clic su Aggiungi posizione e aggiungere il percorso di rete della cartella di lavoro.

Answer 4

Quello che ho fatto è stato creare un progetto di installazione con Visual Studio 2010 (sotto i progetti di installazione &).All'interno di questo progetto si configura l'installazione/copia dell'applicazione MS Access in "C: \ Ntapps \ MsOffice \ Office12 \ ACCWIZ \". Questa è una cartella per i database attendibili. Quindi creare un collegamento all'applicazione MS Access e installarlo nella posizione desiderata.

Quando tutto è a posto e l'installazione è completa, MS Access (con configurazione predefinita) ora si fida del database.

Good Luck;)

Grtz, Tom

Answer 5

Anche se questa domanda è anni, nel caso in cui essa può aiutare, ecco quello che ho fatto. È un approccio diverso rispetto a quelli già proposti e potrebbe servire a qualcun altro. Nel mio caso, MsAccess non è stato aperto direttamente dall'utente. Invece, MsAccess è stato avviato utilizzando l'automazione da un'altra applicazione personalizzata. Quindi, invece di fare in modo che l'utente faccia clic su "Abilita contenuto", questa applicazione personalizzata indica a MsAccess di abilitare i macro. Qualcosa di simile a questo:

cli = create_object("Access.Application") 
cli.AutomationSecurity = 1    # 1 = msoAutomationSecurityLow 
cli.visible = true 
cli.opencurrentdatabase("c:/Users/jmperez/AppData/Local/Temp/DB_TMP.mdb") 

(dispiace per il codice di cui sopra, non è da un linguaggio di programmazione 'standard' o 'popolare', ma non dovrebbe essere difficile adattarsi a Visual Basic o qualsiasi altra cosa)