Probleempje met beveiliging werkblad

[svekkes]

Aan allen,

Ik heb een excelbestand met daarin een werkblad waar ik graag de verborgen (oude) gegevens wil gaan aanpassen aan nieuwe gegevens. Alleen heb ik het paswoord niet meer.
Ik heb al gezocht op het internet en daar heb ik deze add-in gevonden (http://www.straxx.com/excel/password.html). Maar deze wil niet werken aangezien er nog iets ontbreekt (VBA-conversieprogramma of zoiets).

Alvast bedankt.

 

[markboots]

Heb eens deze gevonden kan een paar minuten duren, maar werkt wel

Sub ongedaanmakenwachtwoord()
  
  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)
   Sheets.Add.Name = "wachtwoord"
   ActiveWorkbook.Sheets("wachtwoord").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

 

[svekkes]

Beste markboots,

Dat van een paar minuten is wat overdreven. Het gaf de oplossing binnen de minuut al weer.

Hartelijk bedankt voor je hulp en toffe oplossing. :thumb::thumb:

Mvg

 

[danny147]

Beste markboots

Heb eens deze gevonden kan een paar minuten duren, maar werkt wel

Heb je er ook één voor VBA code ???

Groetjes Danny :thumb: