ProtectDB

'Dichiarazioni

Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
Dim CurrentPassword As String
Dim NewPasswordForDB As String
'modificare questa stringa con il proprio percorso

Const sData = "c:\documenti\database.mdb"
'Creare una nuova password (database senza password)

Public Sub dbNewPSW()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' esclusiva non protetto da PWD

Set db = ws.OpenDatabase(sData, True, False)
'aggiornamento del DB con la password contenuta in NewPasswordForDB

db.NewPassword "", NewPasswordForDB
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub

'Aprire un database protetto da password

Public Sub OpenDbPWD()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword

Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
MsgBox "Accesso al DB consentito!"
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub

'Modificare la password del database

Public Sub dbChangePSW()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword

Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
'aggiornamento del DB con la nuova password contenuta in NewPasswordForDB

db.NewPassword CurrentPassword, NewPasswordForDB
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub