• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

werkblad beveiliging

  • Onderwerp starter Onderwerp starter Lois
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
L

Lois

Gebruiker
Lid geworden
26 mei 2006
Berichten
7
:( Help, van een excel bestand ben ik van een werkblad het wachtwoord kwijt en kan nu niets meer aanpassen. Is er nog een mogelijkheid --behalve alles opnieuw-- deze te achterhalen? Lois
 
Hallo Lois,

Probeer eens het werkblad te kopieeren en plakken in een nieuw werkblad.

Gr Justes
 
Hallo Justus,

Het plakken van een werkblad naar een andere werkmap heb ik ook al gedaan maar dat gaf niet het gewenste resultaat. Ik ben bang dat ik het bestand zal moeten overschrijven.

Groet, Lois
 
Beveiliging werkmap

Hoe is het wachtwoord voor de beveiliging werkmap te opheffen als je het wachtwoord niet meer weet.

Met bovenstaande code wordt alleen het beveiliging blad verwijderd
 
Re

Ik heb een exel bestand waar twee beveiligingen instaan.
Namelijk:
1 Blad beveiliging
2 Werkmap beveiliging

Met de bovenstaande code wordt alleen de eerste code opgeheven.
Is er ook een mogelijkheid om beide codes te verwijderen?
 
Dnereb zei:
Afijn even aangepast:

Plak dit in het beveiligde werkboek in een vba module:
Code: 
Sub WorBookPasswordBreaker()
  'Initial Author unknown (worksheetpassword breaker)
  'Adjusted to crack Workbook password by:
  'B.J.G. Nieuwhof
  'mail info@driesign.nl
  '29 may 2006
  
  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
     
        
 ActiveWorkbook.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 Err.Number = 1004 Then
    Err.Number = 0
  Else
      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
    
  MsgBox "No pasword found!"

End Sub

en voer de macro uit via extra->macro's->macro
Klik om te vergroten...
 

Bahlmann en Dnereb,

De macro die jullie gepost hebben werkt perfect! Hartelijk dank voor de reacties dit scheelt echt heel veel werk. In het vervolg zal ik maar wat zorgvuldiger omgaan met mijn wachtwoorden. Alhoewel, de macro heb ik maar opgeslagen zodat ik hem ook in de toekomst nog een kan gebruiken.

Lois
 
Fijne Code !

:evil:
In excel 2003 wordt mijn werkboek geopend : dit lukken
vervolgens is mijn VBA zoals gewoonlijk Open
Wil ik mijn VBA Extra instellen wordt een wachtwoord gevraagd.......:evil:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan