Avatar billede BentTh Juniormester
11. november 2016 - 23:32 Der er 4 kommentarer

glemt adgangskode

Jeg har glemt (kan ikke finde) arkbeskyttelseskoden til en række excelark.
Kan nogen hjælpe med at knække koden?
Bent Th.
Avatar billede Slettet bruger
11. november 2016 - 23:54 #1
Avatar billede CRKrogh Ekspert
12. november 2016 - 10:47 #2
Hej.

  Bare så vi er sikre på, hvordan det er beskyttet: Jeg går ud fra at du godt kan åbne selve arket og se indholdet, men at det er felter og makroer, der er beskyttet med kodeord?

  Der er et par links her, men som de også er inde på, så er der ingen (supporteret) vej til at fjerne kodeord - kun via 3. parts software:
http://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_windows8/how-to-remove-protection-password-from-office/e0615fc5-cb9d-4a8e-987d-a78bf2466440

De bedste hilsner
Avatar billede Hestehat Seniormester
12. november 2016 - 22:31 #3
Du kan sagtens fjerne koden fra et excel ark, uden at skulle bruge 3. parts software. Hvis du søger på google, finder du VBA koden nedenfor, samt en instruktion til hvordan du kører det igennem.

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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)
        Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

Du kan finde lidt mere om koden her:

https://uknowit.uwgb.edu/page.php?id=28850

Hvis det er fordi du har beskyttet VBA delen, så er det lidt mere komplekst. Her skal du ændre navnet på filen fra .xlsm til .zip. Dernæst åbne filen med winzip eller lignende. Her vil du nu kunne se en håndfuld filer. Du skal åbne den der hedder .bin med en hex editor. Find værdien ved DPB og ændre den til: "282A84CBA1CBA1345FCCB154E20721DE77F7D2378D0EAC90427A22021A46E9CE6F17188A"
Dette giver passwordet macro.

Du kan finde mere om proceduren her:

http://stackoverflow.com/questions/22663809/excel-vba-password-via-hex-editor

Håber det kan hjælpe dig!
Avatar billede Dan Elgaard Ekspert
14. november 2016 - 10:26 #4
Bare lige for en god ordens skyld, så virker ingen af de nævnte forslag, hvis regnearket er beskyttet i Excel 2013 eller Excel 2016:

http://www.EXCELGAARD.dk/Bib/Password/Unlock/
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester