10. februar 2006 - 09:18Der er
7 kommentarer og 1 løsning
Ophæve skrivebeskyttelse uden password
Jeg har et regneark hvor i nogle kolonner er skrivebeskyttede og jeg har selvfølgelig ikke passwordet til at ophæve skrivebeskyttelsen. Kan det lade sige gøre at ophæve skrivebeskyttelsen uden passwordet??
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
Åben regnearket. Tast Alt+F11 I venstre side dobbeltklikkes på ThisWorkbook I højresiden indsættes makroen Skift til regnearket Tast Alt+F8 Vælg makroen
Markroen kan ikke køres fordi sikkerheds niveauet er indstillet til høj. Hver gang jeg åbner dokumentet vil den køre markroen, men det kan den ikke og fejlmeddelsen kommer. Makroen ligger stadig i visual basic som kommer frem når der trykkes Alt+F11. Hvordan får jeg den væk derfra ?
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.