Blattschutz mittels Makro aufheben

[Dani Frei]

Hallo NG

wie sieht ein Makro aus, welches den Blattschutz aufhebt? Mit der
Makro-Aufzeichnung kommt nur folgendes heraus:

ActiveSheet.Unprotect

Doch nach dem Ausführen des Makros werde ich gebeten das Passwort
einzugeben. Da ich aber öfters das Sheet bearbeiten muss möchte ich nicht
jedes mal das PW eingeben müssen. In der definitiven Version wird das Makro
dann gelöscht.

Danke für eure Hilfe und

--
Liebe Grüsse aus der Schweiz

Dani

P.S. *** wer Schreibfehler findet darf sie gerne Behalten :-) ***

[Jörg Eisenträger]

Hi,

>wie sieht ein Makro aus, welches den Blattschutz aufhebt? Mit der
>Makro-Aufzeichnung kommt nur folgendes heraus:
>
>ActiveSheet.Unprotect

Aus der Online-Hilfe:

"Unprotect-Methode
Hebt den Schutz eines Blattes oder einer Arbeitsmappe auf. Diese Methode
hat keine Wirkung, wenn das Blatt oder die Arbeitsmappe nicht geschützt
ist.

Syntax
Ausdruck.Unprotect(Password)

Ausdruck Ein erforderlicher Ausdruck, der ein Chart-, Workbook- oder
Worksheet-Objekt zurückgibt.
Password Variant optional."

Achtung: Das Passwort steht im Klartext! Deshalb mindestens auch den
VBA-Code schützen.

BTW: Wenn Du den Cursor im VBA-Editor in das Wort Unprotect setzt und F1
drückst, kommt genau o. g. Hilfeseite.

Gruß
Jörg
--
LPs auf CD brennen - so geht's: http://www.joergei.de/

Bei Antworten per E-Mail bitte den Unterstrich aus der Adresse entfernen.

[Fred Schouten]

Hallo Dani,

"Dani Frei" wrote:

> Hallo NG
>
> wie sieht ein Makro aus, welches den Blattschutz aufhebt? Mit der
> Makro-Aufzeichnung kommt nur folgendes heraus:
>
> ActiveSheet.Unprotect
>
> Doch nach dem Ausführen des Makros werde ich gebeten das Passwort
> einzugeben. Da ich aber öfters das Sheet bearbeiten muss möchte ich nicht
> jedes mal das PW eingeben müssen. In der definitiven Version wird das Makro
> dann gelöscht.
>
> Danke für eure Hilfe und
>
>
> --
> Liebe Grüsse aus der Schweiz
>
> Dani
>

Ich habe hier ein paar VBA-Zeilen, die von allen Blättern den Schreibschutz
aufheben und ein paar Zeilen die diesen Schutz wieder aktivieren.

-----------

Schreibschutz einschalten

Sub PWeinschalten()
Dim Tabz As Integer
Dim i As Integer

Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, Password:="passwort"
Next i
End Sub

------------

schreibschutz aufheben

Sub PWausschalten()
Dim Tabz As Integer
Dim i As Integer

Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Unprotect ("passwort")
Next i
End Sub

----------

Happy Day
Fred
www.excel-plus.de