Herbers Excel-Forum - das Archiv

Optionen deaktivieren

Bild

Betrifft: Optionen deaktivieren
von: Tino

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

Betrifft: AW: Optionen deaktivieren
von: marcl

Geschrieben am: 18.03.2005 10:24:27
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
Bild

Betrifft: AW: Optionen deaktivieren
von: Tino

Geschrieben am: 18.03.2005 11:21:05
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)
Bild

Betrifft: AW: Optionen deaktivieren
von: marcl

Geschrieben am: 18.03.2005 11:41:07
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
 Bild
Excel-Beispiele zum Thema "Optionen deaktivieren"
Menüpunkt SPEICHERN deaktivieren Deaktivieren und Aktivieren von Drag&Drop
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren Das Extras-Menü aktivieren/deaktivieren
Wenn Formel, dann Löschtaste deaktivieren Speichern-Schaltfläche aktivieren/deaktivieren