Discussion :

[tictac269]

Bonjour à tous

J'ai des fichiers .mdb 95 qui demandent un mot de passe à l'ouverture.
J'ai les mots de passe mais ils sont compliqués à utiliser et retenir.
Je voudrais les modifier ou meme les supprimer.

Quand j'ouvre ces fichiers avec access 2007, il me propose de les convertir mais refuse à cause du mot de passe.
Je l'ouvre donc telle quelle mais quand je vais dans outils de base de données, je ne peux pas supprimer le mot de passe.

Y a t'il une méthode pour supprimer ou modifier ce mot de passe sans avoir à trouver une vieille version d'access ?

Merci.

[mumen]

Bonjour,

Y a t'il une méthode pour supprimer ou modifier ce mot de passe sans avoir à trouver une vieille version d'access ?

J'en doute.

La version d'Access 97 ferait peut être l'affaire pour déprotéger ta base, car la 95 tu ne la trouvera sans doute jamais.

[LedZeppII]

Bonjour,

Voici un bout de code à tester sur une copie de ta bdd 95.
Je ne sais pas s'il peut fonctionner avec le format 95, mais avec le format 2000 il fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Changer_MDP_BDD()
Dim sBDD As String, sMDP As String, sMDPnouveau As String
 
sBDD = "C:\test\LaBase.mdb"
sMDP = "abc"            ' Mot de passe actuel
sMDPnouveau = ""     ' Nouveau mot de passe vide souhaité
 
ChgAccDbPwd sBDD, sMDP, sMDPnouveau
 
End Sub
 
Sub ChgAccDbPwd(strDB As String, oldPWD As String, NewPWD As String)
Dim db As DAO.Database
Dim bCanRetry As Boolean
 
On Error GoTo Errh
 
bCanRetry = True
 
If oldPWD <> "" Then
   Set db = DBEngine(0).OpenDatabase(strDB, True, False, ";pwd=" & oldPWD)
Else
   Set db = DBEngine(0).OpenDatabase(strDB, True)
End If
 
If Not db Is Nothing Then
   db.NewPassword oldPWD, NewPWD
   db.Close
End If
 
Sortie:
    Set db = Nothing
    Exit Sub
 
Errh:
    If bCanRetry Then
       If MsgBox("Erreur No." & Err.Number & " : " & Err.Description, _
                  vbRetryCancel + vbQuestion + vbDefaultButton1, "Erreur") = vbRetry Then
          Resume
       Else
          bCanRetry = False
          Resume Next
       End If
    End If
 
    MsgBox "Erreur No." & Err.Number & " : " & Err.Description, vbExclamation, "Erreur"
    Resume Sortie
End Sub

Crée une nouvelle base au format Access 2002-2003.
Colle le code ci-dessus dans un nouveau module de code.

Dans la sub Changer_MDP_BDD, met les informations qui vont bien les variables sBDD et sMDP.
Exécute la sub Changer_MDP_BDD.

Dans mon exemple je supprime le mot de passe abc de la base C:\test\LaBase.mdb
C'est une copie d'une base Access qui a été copiée dans le dossier C:\test, pour ne pas perdre la base en cas de problème.

A+

[tictac269]

Malheureusement ça ne fonctionne pas