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"