Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.02.2024 09:16:03
23.02.2024 21:07:13
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Optionen deaktivieren

Optionen deaktivieren
18.03.2005 09:35:06
Tino
Hallo,
ist es möglich die Auswahl
"Optionen" in Excel für eine Mappe
zu deaktivieren?

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

Betreff
Datum
Anwender
Anzeige
AW: Optionen deaktivieren
18.03.2005 10:24:27
marcl
Hallo Tino,

Private Sub Workbook_Open()
'   Menue Bearbeiten deaktivieren:
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Enabled = False
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   Die Menues wieder aktivieren:
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

Gruß
marcl
AW: Optionen deaktivieren
18.03.2005 11:21:05
Tino
Danke, funktionier!
gehts nun auch noch, dass dies sich nur auf eine Bestimmte
Arbeitsmappe beziet?
Bsp.: In Arbeitmappe Versuch.xls soll Extras deaktiv sein.
und in Arbeitsmappe Versuch2.xls soll dies aktiv sein.
Beide Mappen sind geöffnet (Versuch2 wird durch einen Link aus Versuch
geöffnet)
Anzeige
AW: Optionen deaktivieren
18.03.2005 11:41:07
marcl
Ja das geht, wenn man in jede Datei folgendes schreibt:

Private Sub Workbook_Open()
' Dateiname prüfen
If Activeworkbook.Name = "Versuch2" Then
'   Menue Bearbeiten deaktivieren:
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Enabled = False
End If
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   Die Menues wieder aktivieren:
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

Gibt aber vielleicht noch bessere Möglichkeiten.
Gruß
marcl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige