Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz

Forumthread: Blattschutz

Blattschutz
25.05.2004 08:16:04
dirk
hallo excelperten!
ich habe eine alte datei mit blattschutz und arbeitsmappenschutz
ich weiss leider kein passwort mehr!
wer kann mir helfen!
ich brauche die datei dringend!
danke für jeden tipp
gruss
dirk
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz
Matthias
Hi Dirk,
versuch mal folgendes:

Sub Makro1()
Dim i, j, k, l, m, n, o, p, q, r, s, t 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 n = 65 To 66
For o = 65 To 66
For p = 65 To 66
For q = 65 To 66
For r = 65 To 66
For s = 65 To 66
For t = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
MsgBox "Der Blattschutz ist aufgehoben!!!"
End Sub

Konnte ich helfen?
Gruss
Matthias
Anzeige
jo geht - danke
25.05.2004 09:39:02
dirk
danke für die hilfe !!
kannst du mir mal das prinzip erklären?
wäre nett
danke dirk
AW: jo geht - danke
Matthias
Hi Dirk,
leider nein!
Ich habe das hier aus dem Forum erhalten. Kann Die nicht sagen, wie das funzt.
Aber es klappt doch und das iat doch die Hauptsache.....
Gruss
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige