Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schalftlächen ausblenden

Schalftlächen ausblenden
03.03.2008 09:58:00
marcl
Guten Morgen Forumsgemeinde,
ich möchte gerne die Schaltfläche Optionen, Blatt einfügen und jegliches Speichern deaktivieren. Wie kann ich das am Besten in ein auto_open schreiben?
Danke für jegliche Hilfe
Gruß aus Hannover
marcl

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schalftlächen ausblenden
03.03.2008 10:11:00
selli
hallo marcl,
und wie willst du die tastenkombination strg+s verhindern?
gruß selli

AW: Schalftlächen ausblenden
03.03.2008 10:22:00
marcl
ich dachte mir so in der Art:
Application.OnKey "^s", ""
nur suche ich noch nach einer Möglichkeit, die Alt Taste anzusprechen ....
Gruß
marcl

AW: Schalftlächen ausblenden
03.03.2008 10:52:00
marcl
aha, habe es gefunden:

Sub auto_open()
'   speicehrn deaktivieren:
Application.OnKey "^s", ""
Application.OnKey "%u", ""
Application.OnKey "%o", ""
'   Menue Datei teilweise deaktivieren:
With Application.CommandBars("Worksheet Menu Bar").Controls("Datei")
.Controls("Speichern").Enabled = False
.Controls("Speichern unter...").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
.Controls("Optionen...").Enabled = False
End With
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige