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

Beiträge aus den Excel-Beispielen zum Thema "Optionen deaktivieren"