Metodo per limitare l'utilizzo di un file database.accde ad un solo computer

Question

Salve

guardando un pò in giro nel web ho trovato questo metodo per limitare l'utilizzo di un file database.accde ad un solo computer

Codice VBA:

Private Sub Form_Open(Cancel As Integer)

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim CurrentSerial As String

    CurrentSerial = GetHDSerial() ' Ottieni il numero di serie del disco

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("tblSettings", dbOpenDynaset)

    If rs.EOF Then

        ' Se la tabella è vuota, salva il numero di serie

        rs.AddNew

        rs!AuthorizedSerial = CurrentSerial

        rs.Update

        MsgBox "Questa copia del database è stata autorizzata per questo computer.", vbInformation

    Else

        ' Se il numero di serie non corrisponde, blocca l'accesso

        If rs!AuthorizedSerial <> CurrentSerial Then

            MsgBox "Accesso non autorizzato. Questo database è riservato a un solo computer.", vbCritical

            Cancel = True

        End If

    End If

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub

E' da inserire nella prima maschera di apertura

Vorrei conoscere il parere di un esperto sulla validità del suo utilizzo

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao Aurelio,

Il codice VBA fornito è un metodo di base per limitare l'utilizzo di un file di database .accde a un singolo computer confrontando il numero di serie del disco rigido con un numero di serie autorizzato memorizzato nel database. Non è completamente sicuro, poiché gli utenti esperti di tecnologia possono aggirarlo. Per una maggiore sicurezza, prendi in considerazione metodi più potenti come dongle hardware o sistemi di licenza basati sulla rete.

Answer 2

Grazie della risposta