Lås regneark op

kan du komme til at kopiere arket over i et nyt, tomt ark?

Det vil så ikke være beskyttet.

Ellers prøv med følgende kode:

Sub PasswordBreaker()
  'Author unknown
  '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 "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

Den normale fremgangsmåde er Funktioner > Beskyttelse. Men der er måske password på?

Undskyld - ja - der er kode på, det er derfor jeg hverken kan kopiere eller sætte kode ind :-(

Når jeg går ind for at fjerne beskyttelsen spørger den efter en kode.

hent Excel Password Remover. Du finder den her:
http://www.straxx.com/excel/password.html

http://www.straxx.com/excel/password.html

b_hansen > sorry, botha se venligst bort fra mit sidste indlæg.

Alternativt kan du oprette et nyt ark, indsætte ovenstående kode, og så åbne dit regneark. Så kan du muligvis køre makroen med ALT+F8

mugs> det er helt fint..... der er kun 1 minut imellem *S*

tak for hjælpen b_hansen, det virkede, svar venligst :-)

Det glæder mig *S*

hov...