Beveiligd document

[Destroyme88]

Hallo allemaal,

Ik heb een hele tijd geleden een excel document aangemaakt met daar in een aantal inlog gegevens van verschillende websites. Omdat ik die nooit onthoud en ergens wou noteren.
Hiervoor heb ik excel gebruikt, het bestand beveiligd met een wachtwoord. Helemaal goed en lekker veilig dacht ik.

Nu een paar maand later ben ik het wachtwoord vergeten dat ik heb ingevoerd.

Is er een mogelijkheid om deze te verwijderen?

Het betreft een office home en student 2010 een .xlsx bestand
Alvast bedankt voor jullie informatie.



Groeten,
Peter

 

[Joelle99]

Naar mijn idee kunt u het wachtwoord op geen enkele manier verwijderen, dit zou ook niet mogen kunnen want dan zou ieder willekeurig persoon bij uw wachtwoorden kunnen komen. Ik denk dat er niks anders op zit dan het bestand te verwijderen en een nieuwe aan te maken.

Mvg, Joëlle

 

[Cobbe]

Open je bestand eens in OpenOffice, wil nog wel eens lukken.

 

[W Bloemendal]

Probeer dit eens

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com
  
  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  On Error Resume Next
  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
     
        
 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       Exit Sub
  End If
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next


End Sub

ik heb het zelf nog geprobeerd maar het lukt toch niet ik denk dat het is om een pasword van een blad af te halen is
wim