Office: Blattschutz aufheben

Hallo zusammen,

habe hier eine kleine Problem hoffe ich.

Ich habe ein Excelblatt mit Blattschutz versehen, aber ohne Passwort.

In diesen Tabellenblatt habe ich 2 Button eingebaut, die per VBA programiert sind, so das sich ein paar Spalten ein- oder ausblenden.

Das klappt auch alles sehr gut.

Jetzt haben aber ein paar User heraus bekommen das sie den Blattschutz ganz einfach aufheben können, da ich ja kein Passwort hinterlegt habe.

Wenn ich jetzt aber ein Passwort im Blattschutz hinter legen, klappen meine beiden Button nicht mehr, kann mir hier einer helfen ?

Hier der Code für die Button, der auf den Arbeitsblatt liegt.

Code:

Danke für eure Hilfe


Gruß
Westi

:)

 

Hallo!


Zuerst den Schutz aufheben, dann "Callen", zum Schluß Schutz wieder setzen.
Code:

Gruß, René

 

Hi,

schütze dein VBA-Projekt zusätzlich mit einem Passwort, denn andernfalls kann man das Passwort des Blattschutzes ganz einfach ermitteln durch Aufrufen des VBA-Editors. Dennoch musst du dir darüber im Klaren sein, dass dein Passwort nicht vor Entdeckung sicher ist.

 

Hi,

danke klappt super. *grins

1 Frage habe ich noch.

Jetzt kommt beim öffnen der Datei das Fenster das ich das Passwort eingeben soll.
Kann ich das irgendwie unterdrücken?
Der User soll ja kein Passwort eingeben.

Gruß
Westi

 

Das kann nicht sein. Das Kennwort wird ja direkt im Code angegeben. Der Kennwortdialog dürfte somit nicht erscheinen.

Oder hast Du etwa ein Dateischutzkennwort angegeben? Damit schützt Du die Datei, nicht die Tabelle und nicht das VBA-Projekt.

 

Hi,

ich habe über Extra>Schutz>Blattschutz

ein Kennwort eingegeben.

Und im VBA habe ich das von dir umsgesetzt.

Gruß
Westi

 

Hi,

hast du vielleicht irgendwelchen Code im Workbook_Open Ereignis, welcher den Blattschutz setzen soll?

 

Jo habe noch einen drin für den Autofilter.

Hier der Code:

Code:

Habe hier jetzt aber auch Protect eingebaut.
Jetzt klappt es.
Gruß
westi

 

Und nun öffne die Datei mal mit OpenOffice.
Ist dann der ganze Schutz aktiv?

Pit