+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Avviso potenziale problema sicurezza

  1. #1
    Trappy non è in linea Scolaretto
    Buongiorno a tutti.
    Nel mio progetto uso una tabella contenuta in un nas che collego con la seguente istruzione:

        DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\Archivio" & "\ProgettoTeca.accdb", acTable, "Titoli", "Titoli"
    
    e tutto funziona perfettamente.

    Ora ho la necessità di collegare tabelle create da altri utenti contenute in file DB differenti, ma ogni volta che eseguo il comando mi da il seguente messaggio di sicurezza.



    Per non averlo più, la prima volta, devo aprire direttamente il file e cliccare su "Abilita contenuto", Access memorizza il file come attendibile e le volte successive non esce più l'avviso.

    Essendo un'operazione che si effettua spesso vorrei poter rendere il file attendibile via VBA. E' possibile?

    Grazie.

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Devi registrare il PATH nell'elenco delle TRUSTED LOCATION dal centro di sicurezza di Access:
    https://support.microsoft.com/en-us/...3-4e7c67147fb4
    ℹ️ Leggi di più su @Alex ...

  3. #3
    Trappy non è in linea Scolaretto
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Devi registrare il PATH nell'elenco delle TRUSTED LOCATION dal centro di sicurezza di Access
    Ok. Grazie, funziona.
    E' possibile fare questa operazione via VBA?

  4. #4
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Si ovviamente se sei AMMINISTRATORE della macchina... in quanto devi andare nel REGISTRY:

    HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location1

    Queste le Keys
    "Date"="28.04.2011 09:37"
    "Description"="My Application"
    "Path"="C:\\TuaNuovaPath\\"
    "AllowSubfolders"=dword:00000001
    
    Quindi puoi usare le API o la Libreria WScript.Shell ed andare a modificare il Registro.

    Io una volta usavo l'Installer per fare queste cose... veniva lanciato con i diritti di ADMIN e modificava le chiavi, installava il File MDE/ACCDE e creava cartelle varie... il Link sul desk e fine.
    Farlo da VBA dall'applicativo è sbagliato.
    Ultima modifica di @Alex; 23-09-2021 15:09 
    ℹ️ Leggi di più su @Alex ...

  5. #5
    Trappy non è in linea Scolaretto
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Quindi puoi usare le API o la Libreria WScript.Shell ed andare a modificare il Registro.
    Giusto, ora non pensavo al fatto che ovviamente fosse una chiave di registro.

    Ho risolto in questa maniera visto che non sarà qualcosa che verrà distribuito, ma solo ad uso interno.

    Public Function AddPosizioneAttendibile()
        Dim miaPosAtt As String
        Dim myWSS As Object
        
        On Error GoTo GestioneErrori
        
        miaPosAtt = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\Trusted Locations\Nemesis"
        Set myWSS = CreateObject("WScript.Shell")
    
        myWSS.RegRead (miaPosAtt & "\Path")
        'MsgBox "Chiave presente"
        Set myWSS = Nothing
        Exit Function
      
    GestioneErrori:
        myWSS.RegWrite miaPosAtt & "\Path", Application.CurrentProject.Path & "\", "REG_SZ"
        myWSS.RegWrite miaPosAtt & "\AllowSubFolders", "00000001", "REG_DWORD"
        myWSS.RegWrite miaPosAtt & "\Date", Now(), "REG_SZ"
        myWSS.RegWrite miaPosAtt & "\Description", "Aggiunto via VBA", "REG_SZ"
        Set myWSS = Nothing
    End Function
    
    Grazie dei suggerimenti.

  6. #6
    Phil_cattivocarattere non è in linea Topo di biblioteca
    Quote Originariamente inviato da Trappy Visualizza il messaggio
    ...
    ...
    miaPosAtt = "HKEY_CURRENT_USER\...\Access\Security\Trusted Locations\Nemesis"
    
    Funziona anche con la chiave Nemesis anziché Location(n) dove (n) è un numero progressivo?

  7. #7
    Trappy non è in linea Scolaretto
    Si, io lo faccio sempre quando posso, così si individua più velocemente la chiave che hai aggiunto.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. avviso di protezione
    Da muttley005 nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 08-05-2017, 09:50
  2. [c]Problema di sicurezza[si/no]
    Da vbExtreme nel forum C/C++
    Risposte: 2
    Ultimo Post: 05-01-2012, 14:51
  3. Problema sicurezza immagini (lo è veramente?)
    Da Skary nel forum Networking e sicurezza
    Risposte: 2
    Ultimo Post: 22-07-2011, 21:44
  4. Potenziale problema di sicurezza
    Da nebule nel forum Microsoft Word
    Risposte: 0
    Ultimo Post: 10-06-2011, 23:32
  5. problema sicurezza password
    Da andrea86 nel forum Visual Basic 6
    Risposte: 10
    Ultimo Post: 27-06-2005, 01:03