Blattschutz wird ohne Passwortabfrage aufgehoben

[Primo Centurio]

Hallo zusammen

Ich habe ein kleines Problem und zwar setzt mir der Code

Code:

ActiveSheet.Protect Password:="XXX"

den Blattschutz mit dem Code "XXX" ein, jedoch kann ich dann mit Rechtsklick auf dem Blatt den Blattschutz ohne Passwortabfrage aufgehoben werden. Kann mir jemand sagen wieso das passiert und wie ich das beheben kann?

Freundliche Grüsse

Primo

[Klaus-Dieter]

Hallo,

am besten ist es, wenn du auf den Blatt"schutz" verzichtest, denn das ist keiner. Jeder der ein wenig Ahnung von Excel hat, kann das im Handumdrehen aushebeln. Sensible Daten gehören nicht in Exceldateien, die in falsche Hände geraten können.

[Primo Centurio]

Hallo Klaus-Dieter

Es geht hier nicht um sensible Daten, sondern lediglich darum, dass jemand aus versehen keine Formel oder sonstiges löscht.

LG Primo

[RPP63]

Moin! 
Ist denn ActiveSheet zur Laufzeit des Makros das von Dir gewünschte? 

Gruß Ralf

[Klaus-Dieter]

Hallo,

Es geht hier nicht um sensible Daten, sondern lediglich darum, dass jemand aus versehen keine Formel oder sonstiges löscht.

dann brauchst du kein Passwort.

[Primo Centurio]

Moin Ralf

Ja ist es. Ich habe 10 verschiedene Blätter.

Er führt in Blatt 1 einen Befehl aus und bevor er zu Blatt zwei springt kommt der Befehl.

Ich könnte natürlich auch versuchen den Befehl gesondert durchführen zu lassen, dass er ganz am Schluss jedes Blatt durchgeht und den Blattschutz aktiviert.

Lg Primo

---

Habe es nun so probiert.

Code:

For i = 0 To 9

Worksheets("PP_" & Arr(i)).Activate
ActiveSheet.Protect Password:="XXX"

Next

aber auch so funktioniert es nicht, nur beim letzten Blatt fragt er mich nach dem Passwort.

[RPP63]

Moin!
• Lasse das Activate-Gedöns sein!
• Was soll das arr(i)?

Code:

For i = 0 To 9
   Worksheets("PP_" & i).Protect Password:="XXX"
Next

Gruß Ralf

[Primo Centurio]

Danke Ralf

Die Namen meiner Tabellenblätter sind so aufgebaut

"PP_102", "PP_116", "PP_116A" usw.

Deshalb musste ich die Nummer mit 

Code:

Dim Arr$(9), i&

  

zuordnen.

Lg Primo

[Klaus-Dieter]

Hallo Primo,

es wäre prima*, wenn du eine Beispieldatei einstellen würdest, damit wir uns hier nicht länger im Kreis drehen.

* das musste jetzt sein. 

[Primo Centurio]

Jetzt habe ich eine Beispieldatei gemacht und dort funktioniert es Problemlos, somit muss in meinem Code irgendwo ein Fehler drinstecken.

Ich überprüfe ihn mal und melde mich nochmals.

Danke schon Mal und sorry für die grauen Haare