Kannst Du mir die beiden VBA Codes per "Re" ins Forum stellen ?
Besten Dank
Friedl
ich heise zwar nicht beckersbest aber wenn ich schon mal da bin
vielleicht ist der folgende Code das richtige für Dich.
Gruß Robert
Ich wusste nicht das du das bist, tut mir leid !!!
Danke für den VBA Code
:-)
Friedl
beckersbest ist ein Anderer !?
Trotzdem Danke !!
Friedl
In beiden Fällen !!
Was gebe ich statt Tabelle1 ein - Oder gilt das für alle Tabellenblätter?
Friedl
bevor ich eine Lösung anbieten kann möchte ich nochmal nachfragen.
Du möchtest per InputBox beim starten und beenden der Datei den Passwortschutz aktivieren bzw. deaktivieren?
Weiter wieviele Tabellenblätter sollen geschützt werden?
Gruß bis bald
Robert
ich nutze diese Dinge hauptsächlich auf der Arbeit, von daher ist es also eher Zufall, dass ich jetzt noch mal reinschaue, ich hab deswegen den genauen VBA-Code nicht zur Hand.
Zu der Sache mit der Abfrage, ich hab zwar auch nicht die Optimallösung, aber ich habe zumindest Password:="Schutz" durch Cells(1,1) ersetzt, da ich sowieso im gleichen Zuge einen Teil der Tabelle ausblende, eben auch den, in dem dass Passwort steht. Dass Cells(1,1) hat zur Folge, dass er den Inhalt der entsprechenden Zelle als Passwort nimmt.
Und zum Wiederaufheben des Schutzes, wenn ein Passwort beim einstellen des Blattschutzes gesetzt wird, kommt die Dialogbox automatisch, das Einzige, was dort zu beachten ist, dass keine Fehlermeldung im VBA-Code erscheint, wenn das Passwort falsch eingegeben wurde, denn das ist der Fall, wenn keine On Error-Funktion verwendet wird.
Wenn Dir das grundsätzlich weiterhilft, dann kann ich es Morgen früh gerne noch einmal in das Forum stellen (vor allen Dingen wegen des Error-Handlings), denn dann hab ich auf diese Daten wieder Zugriff.
Gruß und gute Nacht
Thorsten
hier die Antwort von mir.
Aus der Steuerelement-Toolbox Symbolleiste 2 Befehlsschaltflächen
auf Tabelle1 ziehen und über Eigenschaften anpassen.
Dann folgende Code reinkopieren.
Ich hoffe es ist das was Du suchst.
Ansonsten melde Dich einfach nochmal.
Übrigens solange der Beitrag im Forum ist, bekommen ich jede
Nachricht die zu den Beiträgen geschrieben wird per E-Mail Benachrichtigung.
Gruß Robert
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen