Clever-Excel-Forum

Normale Version: Blattschutz wird ohne Passwortabfrage aufgehoben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3
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
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.
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
Moin! 
Ist denn ActiveSheet zur Laufzeit des Makros das von Dir gewünschte? 

Gruß Ralf
Hallo,


Zitat: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.
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.
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
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
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.  Blush
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  20
Seiten: 1 2 3