Office: Password für Visual Basic VBA öffnen

In meiner Access DB hat es ein VBA Code das ich nicht mehr öffenen kann da dies in Visual Basic mit Kennword geschützt wurde.
Ich kenne das Password nicht daher komme ich nicht an das Makro.
Kann mir jemand helfen wie ich das Kennwort entfernen kann oder auslesen kann.
Besten Dank für die Unterstützung.

Ich kann aktuell die access DB nur mit 32Bit Version öffnen, möchte gerne es auch für 64bit möglich machen. Kennt jemand eine möglichkeit wie der VBA Code für das angepasst werden kann.

 

Hallo,
wenn ein Kennwort in VBA programmiert wurde, ist das nicht besonders sicher. Die Ausführung jeglichen Startcodes kann man unterdrücken, indem man beim Start der Datenbank die Shift-Taste drückt. Wurde der Kennwortmanager von Access benutzt, wird's schwieriger.

Normalerweise ist die Ausführung einer 32-Bit DB auch unter 64-bit möglich. Probleme kann es mit AddIns geben, die unter 32 bit kompiliert wurden und für die es keine 64 bit Variante gibt. Außerdem müssen ggf. Aufrufe von externen DLL-Funktionen angepasst werden. Das Stichwort hierfür ist "PtrSave". Hierfür gibt es in diversen Foren reichlich Hilfe.

 

Besten Dank für die Rasche Rückmeldung
Jedoch erhalte ich die Meldung auch wenn ich die Access Datei mit Shift-Taste drückt.


Wenn ich die DB mit Office 64bit starte erhalte ich folgende Fehlermeldung

Besten Dank für die Unterstützung

 

Moin,
der ursprüngliche Programmierer ist nicht mehr greifbar? Hat er seine Zugangsdaten evtl. an jemand anderen weitergegeben?
Gruß
Doming

 

Hi Doming
Nein leider ist niemand mehr von denen Erreichbar und die Daten konnten nicht auffindbar gemacht werden.
Daher habe ich hier eine Anfrage gestartet.
Besten dank

 

Wahrscheinlich wurde die AllowBypassKey-Eigenschaft der Datenbank irgendwo gesetzt. Normalerweise baut sich der Programmierer dabei eine Hintertür ein, über die die Eigenschaft dann, bei Bedarf, geändert wird. Zum Beispiel ein Klick oder Doppelklick auf ein unauffälliges Steuerelement, Bezeichnungsfeld o. ä. Das ist natürlich müßig zu suchen, wenn man keinen Ansatzpunkt hat. Außerdem stecken in einem Modul wohl die schon beschriebenen 32 bit ActiveX Probleme.
Hast Du denn die Möglichkeit die DB unter einer Office 32-bit Installation zumindest bis zur Passwortabfrage zu öffnen?
Da das Passwortfenster ein PopUp ist, könnte da auch irgend wo die Hintertür sein. Dort einfach mal die rechte Maustaste drücken, ob man das Formular in den Entwurfsmodus bekommt.
Der Programmierer gehört aber heute noch verklagt, mangels ordentlicher Dokumentation.
Gruß
Andreas

 

Besten dank für deinen Tipp.
Ich habe dies versucht auf einem Office 32-bit Rechner zu öffnen leider finde ich ebenso kein PW dazu.

Ich habe jedoch noch eine zweite DB auf der ich die Makros öffnen kann.
Da erhalte ich folgende rote Meldungen.
Weisst du ev. was da angepasst werden muss damit es für 32 + 64 bit tauglich ist.

Besten Dank im Voraus.

mod_Benutzer:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Integer

mod_FileAPI:
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileW" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Boolean

mod_Timer:
Private Declare Sub QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency)
Private Declare Sub QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency)

mode_Tools:
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As RECT) As Long

Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

 

Füge das Wort "PtrSafe" jeweils hinter Declare ein. Das macht die API-Aufrufe kompatibel.

Code:

    Private Declare PtrSafe Function .......

Kleiner Hinweis: Wenn Du hier Codezeilen wiedergeben möchtest, füge sie über Einfügen/Code ein. Das erleichtert das Lesen.

Gruß
Andreas

 

habe ich gerade ausprobiert und hat bei diesem Modul gleich beim neustart funktioniert.
Nun habe ich nur noch das andere Access DB File das mit dem Password Blockiert ist und den VBA-Code nicht öffnen kann.

 

Tja, außer den Tipps s.o. kann ich aus der Ferne da wohl nicht mehr sagen. Müsste man die Datei haben um sie genauer zu untersuchen.

 

Dieser Link zeigt wie man bei einem VBA Projekt den Passwort-Schutz aufheben kann. Hab ich nie benötigt, also einfach der Anleitung folgen.

 

In der Beiliegenden ZIP.Datei habe ich das File hochgeladen.
Ev. findet jemand eine möglichkeit wie das Password entfernt oder Freigeschaltet werden kann ohne diese Meldung zu erhalten. Besten Dank

 

Suche in der Accessdatei mit einen Hex-Editor nach "DBP" und ändere es in "DBx". Dann lassen sich die Module aufklappen. Jedoch kommen dann reihenweise Laufzeitfehler, wenn man versucht die Module zu öffnen. Das liegt vermutlich an der kruden Struktur der DB. Man kann ja nichts damit anfangen, weil ja fast ausschließlich verknüpfte Tabellen enthalten sind, wo dann das Backend völlig fehlt. Liegt deine DB denn in der richtigen Netzwerkumgebung? Weil, wenn die Tabellen nicht verknüpft werden können, ist ja kein Zugriff darauf möglich.
Gruß Andreas

 

Besten dank Andreas für all deine Tipps.
ich konnte nun über diesen Weg das Password ändern und ebenso den VBA Code anpassen damit er für Access mit 32 & 64 bit Version funktioniert.
Gruss Thierry