Print side | Luk vindue

Fjern kode på excel

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2879
Udskrevet den: 03.Mar.2025 kl. 18:57


Emne: Fjern kode på excel
Besked fra: Leonhardt
Emne: Fjern kode på excel
Posteringsdato: 30.Dec.2016 kl. 11:06
Hej
 
Er der en der har en kode der kan lås de her ark op? jeg kan lås de faner jeg kan kom til op med den her kode, men vil godt til den sidst og også tilfør ekstra faner.
 
håber en har en god en.
Og godt nytår til jer alle her ind.Beer
 
uploads/1452/gage-r-r-with-anova-xbarr-analysis.xlsm" rel="nofollow - uploads/1452/gage-r-r-with-anova-xbarr-analysis.xlsm
 
 
Sub PasswordBreaker()
'Knækker arkbeskyttelse.
  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 "Koden er brudt og dokumenet kan nu rettes!", vbExclamation + vbOKOnly
                              Exit Sub
                            End If
                          Next
                        Next
                      Next
                    Next
                  Next
                Next
              Next
            Next
          Next
        Next
      Next
    Next
End Sub


-------------
Jeg bruger 365 og 2016


Svar:
Besked fra: Bjarnehansen
Posteringsdato: 30.Dec.2016 kl. 11:37
uploads/397/gage-r-r-with-anova-xbarr-analysis-unprotected.xlsm" rel="nofollow - send mig en mail min står under min profil

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Leonhardt
Posteringsdato: 30.Dec.2016 kl. 11:52
Hej
Tak for hjælpen, men hvordan gjord du det??
 
MVH


-------------
Jeg bruger 365 og 2016

Besked fra: EXCELGAARD
Posteringsdato: 30.Dec.2016 kl. 13:55
Der findes masser af programmer derunde, som kan låe regneark op - nogle er gratis andre koster lidt penge...
...men, de tider, hvor man kunne gør det med en makro er ovre - fra og med Excel 2013 kan dette ikke længere lade sig gøre.

www.excelgaard.dk/Bib/Password/Unlock/ www.excelgaard.dk/Bib/Password/Unlock/

https://www.bst-utilities.dk - https://www.bst-utilities.dk er også en glimrende mulighed

Besked fra: Bjarnehansen
Posteringsdato: 30.Dec.2016 kl. 14:32
brugte det program Excelgaard omtalte fra BST Utilities.dk


Print side | Luk vindue