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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige