Passwort für Add-In vergessen

Forumthread: Passwort für Add-In vergessen

25.09.2006 10:34:31

Philipp

Hallo,
kann mir jemand helfen, ich habe ein Add-In vor Veränderungen mit Passwort geschützt. Dummerweise habe ich es mir nie aufgeschrieben und probiere schon seit Stunden.
Gruß,
Philipp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Passwort für Add-In vergessen

25.09.2006 10:38:08

TOM

Hallo Philipp
Mir hat das geholfen:
http://www.schmittis-page.de/index.html?/excel/pwremover.htm
Gruss
TOM

AW: Passwort für Add-In vergessen

25.09.2006 10:58:42

Philipp

Dateischutz kann man damit leider nicht aufheben und genau da liegt der Harcken.
Sonst noch eine Idee?

AW: Passwort für Add-In vergessen

25.09.2006 11:05:53

mumpel

Hallo!
Warum benutzt Du nicht google? Dort findest Du einiges zu diesem Thema.
Gruss Rene

Lad doch mal hoch

25.09.2006 12:19:47

thomas

Lad doch mal hoch und wenn es wirklich Dein AddIn ist schreibe etwas von Inhalt auf. Denn fremde Software wird nicht geöffnet. Ich ändere Dir dann das Passwort auf ein neues von dir gewünschtes.
Gruß
thomas

AW: Lad doch mal hoch

25.09.2006 20:58:48

Gerold

Hi Thomas
du glaubst selber nicht das du das Passwort auf ein neues von dir gewünschtes änderst

AW: Passwort für Add-In vergessen

25.09.2006 21:04:54

Angela

Hi code
Set oFilePropReader = New DSOleFile.PropertyReader
Set oDocProp = oFilePropReader.GetDocumentProperties(strFileName)
'Trap common errors returned from component
Select Case Err.Number
Case &H80040203
'The file is open by another program
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Auf die Datei " & strFileName & " konnte nicht zugegriffen werden. Wahrscheinlich ist die Datei von einem anderen Programm geöffnet oder wird von einem anderen Benutzer bearbeitet.", vbExclamation
Case &H80040202
'The file selected is not an OLE structured storage file
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Datei " & strFileName & " besitzt nicht das erforderliche Structured Storage-Dateiformat. Es kann sein, dass die Datei defekt ist, ein älteres Format verwendet oder keine Dokumentdatei dieser Anwendung ist.", vbExclamation
Case &H80040201
'DCOM is not installed -- fall through to MsgBox below
Case &H8007007E
If MsgBox("Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Instanzierung eines Objektes der Klasse 'PropertyReader' ist fehlgeschlagen. Wahrscheinlich ist die ActiveX DLL-Datei DSOFile.dll registriert, aber der in der Registry eingetragene Dateipfad ungültig." & vbCrLf & vbCrLf & "Soll jetzt versucht werden, die benötigte Komponente neu zu registrieren?", vbExclamation + vbYesNo) = vbYes Then
Err.Clear
On Error GoTo -1 'Trick: Error Handling initialisieren
On Error Resume Next
Shell "regsvr32.exe /s " & Chr$(34) & App.Path & "\DSOFile.dll" & Chr$(34), vbHide
If Err.Number 0 Then
MsgBox "Beim Versuch, die DLL-Datei zu registrieren, ist ein Fehler aufgetreten.", vbExclamation
Else
MsgBox "Die DLL-Datei konnte erfolgreich registriert werden." & vbCrLf & vbCrLf & "Damit das Vorschau-Bild des Reports angezeigt werden kann, muss das Dialogfenster neu geöffnet werden.", vbInformation
End If
End If
Case 429
If MsgBox("Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Instanzierung eines Objektes der Klasse 'PropertyReader' ist fehlgeschlagen. Wahrscheinlich ist die ActiveX DLL-Datei DSOFile.dll nicht registriert." & vbCrLf & vbCrLf & "Soll jetzt versucht werden, die benötigte Komponente zu registrieren?", vbExclamation + vbYesNo) = vbYes Then
Err.Clear
On Error GoTo -1 'Trick: Error Handling initialisieren
On Error Resume Next
Shell "regsvr32.exe /s " & Chr$(34) & App.Path & "\DSOFile.dll" & Chr$(34), vbHide
If Err.Number 0 Then
MsgBox "Beim Versuch, die Komponente zu registrieren, ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & "Bitte schliessen Sie das Eigenschaften-Fenster.", vbExclamation
Else
MsgBox "Die DLL-Datei konnte erfolgreich registriert werden." & vbCrLf & vbCrLf & "Damit die Datei-Eigenschaften angezeigt werden können, müssen Sie anschliessend das Eigenschaften-Fenster schliessen und neu öffnen.", vbInformation
End If
End If
Case Else
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description, vbExclamation, "Laufzeitfehler"
End Select

AW: Passwort für Add-In vergessen

25.09.2006 21:41:31

Thomas

Hi,
ich hab's jetzt nicht ausprobiert, was macht der Code?
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices

Beliebteste Forumthreads (12 Monate)

Forumthread: Passwort für Add-In vergessen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread