Microsoft Excel

Excel und VBA: Beitrag aus Herbers Excel-Forumsarchiv

Blattschutz-Code vergessen ...

Betrifft: Blattschutz-Code vergessen ...
von: Reto E.
Geschrieben am: 05.08.2004 07:47:15

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.
  


Betrifft: AW: Blattschutz-Code vergessen ...
von: Torsten K.
Geschrieben am: 05.08.2004 09:03:25

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


  


Betrifft: AW: Blattschutz-Code vergessen ...
von: Reto E.
Geschrieben am: 05.08.2004 09:42:46

Grossartig! Es funktioniert.

Besten Dank

Reto E.