Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz-Code vergessen ...

Blattschutz-Code vergessen ...
05.08.2004 07:47:15
Reto
Peinlich aber wahr! Habe den Blattschutz-Code vergessen und bin jetzt ein bisschen aufgeschmissen. Kann man den irgendwie aufheben als ersteller des Excel-Dokuments?
Würde mir viel Arbeit ersparen.
Danke
Reto E.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz-Code vergessen ...
Torsten
Hi Reto,
probier's mal hiermit (aus dem Forum):

Sub Makro1()
'Muß in den Code des Sheets eingefügt werden, in welchem
'der Blattschutz aufgehoben werden soll
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)
If ActiveSheet.ProtectContents = False Then
MsgBox "Der Blattschutz ist aufgehoben!!!"
Exit Sub
End If
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

Gruß
Torsten
Anzeige
AW: Blattschutz-Code vergessen ...
Reto
Grossartig! Es funktioniert.
Besten Dank
Reto E.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige