Passender Code ??? Alt+x + c

Bild

Betrifft: Passender Code ??? Alt+x + c
von: TF
Geschrieben am: 29.10.2003 08:33:46

Hallo,

--> 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

Bild


Betrifft: AW: Passender Code ??? Alt+x + c
von: Hajo_Zi
Geschrieben am: 29.10.2003 08:51:30

Hallo TF


Sub test()
    Application.Dialogs(28).Show
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.




Bild


Betrifft: AW: Passender Code ??? Alt+x + c
von: TF
Geschrieben am: 29.10.2003 09:20:42

Danke Hajo.

Gibt es eine Übersicht mit diesen Dialogs?? (Application.Dialogs(28).Show)

Gruß

TF


Bild


Betrifft: AW: Passender Code ??? Alt+x + c
von: Hajo_Zi
Geschrieben am: 29.10.2003 09:24:04

Hallo Tf

ich habe mir mal eine Datei in Handarbeit dazu erstellt.

Ich glaube auf der Seite von Bernd Augustin gibt es dazu auch eine XLA Datei

http://www.excel-addins.de/


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Formeln jeweils eine Spalte nach rechts kopieren"