Office: (Office 2007) Marko Blattschutz aufheben mit Passwort

Hallo,

ich habe mir gerade mit Hilfe von Google versucht beizubringen wie man ein Makro schreibt. Hat soweit aiuch ganz gut funktioniert ;-)

Jetzt habe ich noch eine Frage um das ganze etwas zu vereinfachen.

Ich habe folgendes Makro um den Blattschutz (mit Passwort) aller Arbeitsmappen aufzuheben:

Sub BlattschutzAufheben()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:=""
Next
MsgBox "Alle Blätter wurden vom Blattschutz befreit"
End Sub

Jetzt werde ich aber in jeder Arbeitsmappe nach dem Passwort gefragt.
Da in jeder Mappe das gleiche Passwort hinterlegt ist, wäre es einfacher, wenn ich nur einmal das Passwort eingeben müsste.

Gibt es da eine Möglichkeit?

Vielen Dank schonmal! *wink.gif*

:)

 

Hi,

ActiveWorkbook.Sheets(i).Unprotect Password:="Dein_Pass"

trage es doch ein im Code!

 

Hallo Chris,

danke für die schnelle Antwort.
Die Möglichkeit habe ich auch bereits gesehen. Aber dann wird man gar nicht mehr nach dem Passwort gefragt und dann kann ich mir das Passwort auch ganz sparen.
Ich hätte gern, dass man nur einmal nach dem Passwort gefragt wird.

Gibts da was?

Danke! ;-)

 

Hi,

Code:

aber sicher *Smilie

schönes WE

 

Überragend!

Vielen Dank und schönes Wochenende! ;-)

 

Hallo,

leider habe ich jetzt festgestellt, dass man auch ohne das Eingeben des Passworts den Blattschutz aufhebt. Einfach ok drücken und der Schutz ist weg..

Wie kann ich das noch ändern?

Vielen Dank.

PS: Aktuell habe ich folgendes Makro:

Sub BlattschutzAufheben()
Dim i As Integer
Dim pw As String
pw = InputBox("Geben Sie das Passwort ein")
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:="Passwort"
Next
MsgBox "Alle Blätter wurden vom Blattschutz befreit"
End Sub

 

Hallo!

Dann hast Du kein Kennwort für die Tabellenblätter vergeben. Der Schutz hat nur einen Sinn wenn auch ein Kennwort vergeben wurde, also jedes Tabellenblatt auch mit einem Kennwort geschützt wurde, "leere Kennwörter" sind sinnlos.
Oder Password:="Passwort" ersetzen durch Password:=pw

Gruß, René

 

Hallo!

doch habe ich. Hier ist die gesamte Programmierung:

Sub BlattschutzAufheben()
Dim i As Integer
Dim pw As String
pw = InputBox("Geben Sie das Passwort ein")
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:="Passwort"
Next
MsgBox "Alle Blätter wurden vom Blattschutz befreit"
End Sub
Sub BlattschutzEinstellen()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Passwort"
Next
MsgBox "Alle Blätter wurden geschützt"
End Sub

Passwort ist halt dann durch ein eigenes Passwort ersetzt.
Habe ich da einen Fehler?

 

Hi,

der Code sieht ander aus als meiner ^^
ActiveWorkbook.Sheets(i).Unprotect Password:=pw
wenn du wieder einen fixen Text reinschreibst......

p.s aber vergesse nicht dein Passwort! *wink.gif*

Code:

 

Ja dann werde ich aber wieder in jeder Mappe nach dem Passwort gefragt.
Wollte ja nur einmal für alle Mappen gefragt werden ;-)

 

Hi,

? verstehe ich nicht
Es wird nur einmal gefragt. *Smilie
Welche MAPPEN sollen den abgefragt werden, der Code ist ja nur für eine Mappe!

 

Hi,

nein, ich möchte dass in allen Mappen das gleiche Passwort hinterlegt ist und ich somit wenn ich das Makro BlattschutzAufhaben ausführe nur einmal zur Eingabe des Passworts aufgefordert werde und alle Mappen dann frei sind.

Ich hoffe man kann verstehen was ich meine ;-)

Gruß Schindel

 

Hallo Schindel,

bei mir funktioniert der letzte Code von Chris aus #9
Beim Schützen der Mappen wird einmal gefragt nach einem Passwort.
Und beim Entsperren ebenso.

Wenn es in deiner Datei nicht funktioniert, hast du vielleicht noch einen falschen Code hinterlegt.
Sonst beschreibe einmal genau wie du vorgehst, und welcher Fehler bei dir entsteht.

Edit:
Meinst du mit Mappen alle offenen Dateien?

VG
Santa

 

Servus Santa,

doch funktioniert alles.
Mein Fehler ;-)

Danke an alle!