Passender Code ??? Alt+x + c
29.10.2003 08:33:46
TF
--> ich habe bei meiner Datei mit folgendem Befehl die Menüleiste ausgeblendet
.
Application.CommandBars("Worksheet Menu Bar").Enabled = False 'Menüleiste ausblenden
For Each cb In Application.CommandBars
.
---> und habe die Tabelle automatisch vor Änderungen geschützt:
ActiveSheet.Protect "Test"
--> Ich möchte aber trotzdem einer Schaltfläche durch ein Makro o.ä. den Befehl zuweisen, der es ermöglicht, das Kennwort einzugeben und dadurch Zugriff auf die Tabelle zu haben
(in der menüleiste ist es ja der Befehl: Extras/Schutz/Blattschutz aufheben oder Alt+x / c)
Wer hat mir hierfür den passenden Code?
Danke vorab.
TF