Exel Menue Punkte ausblenden

aschal · 21.10.2004

Schönen guten Tag

folgende Frage wirft sich bei einer Tabelle auf!

Auf einer Tabelle müssen wir folgende Kriterien erfüllen,
1. Zellen und Spalten sollten gesperrt werden. ( ist erledigt)
2. Die Menue Option ( Datei / Seite einrichen ) sollte gesperrt oder unterdrückt werden.

diesen forderung konnten wir bis jetzt nicht erfüllen :-[

Hat jemand eine Idee oder einen Tipp

für eure Hilfe, besten Dank zum voraus

Aschal
;D

PCDjoe · 24.10.2004

Ola zum Sonntag morgen,

versuch mal Extras anpassen: normalerweise müsstest Du den Befehl dann aus dem Menü herausziehen können ...

funktioniert tatsächlich nur für das komplette Excel ...

Matjes · 24.10.2004

Hi zusammen,

als erstmal ein Makro zum ein- bzw. ausschalten :

Code:

Sub Menu_SeiteEinrichten_disablen()
  On Error Resume Next
  Application.CommandBars.ActiveMenuBar.Controls(&amp;Datei). _
              Controls(Seite ein&amp;richten...).Enabled = False
End Sub
Sub Menu_SeiteEinrichten_enablen()
  On Error Resume Next
  Application.CommandBars.ActiveMenuBar.Controls(&amp;Datei). _
              Controls(Seite ein&amp;richten...).Enabled = True
End Sub

Das ist allerdings nur für die ganze Application möglich (also Excel).
Wenn man also z.B. beim Öffnen der Datei den Makro Menu_SeiteEinrichten_disablen() aufruft, muß man auch dafür sorgen, daß beim Schliessen der Tabelle der Makro Menu_SeiteEinrichten_enablen() aufgerufen wird.

Also sollten im Code der Mappe folgende Aufrufe erfolgen:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call Menu_SeiteEinrichten_enablen
End Sub
Private Sub Workbook_Deactivate()
  Call Menu_SeiteEinrichten_enablen
End Sub
Private Sub Workbook_Open()
  Worksheets(Tabelle1).Activate
  Call Menu_SeiteEinrichten_disablen
End Sub
Private Sub Workbook_Activate()
  Worksheets(Tabelle1).Activate
  Call Menu_SeiteEinrichten_disablen
End Sub

Im Code der Tabelle:

Code:

Private Sub Worksheet_Activate()
  Call Menu_SeiteEinrichten_disablen
End Sub

Private Sub Worksheet_Deactivate()
  Call Menu_SeiteEinrichten_enablen
End Sub

Einfach mal ausprobieren, ob durch irgendwelche Handlungen noch Lücken offen sind.

Gruß Matjes

Exel Menue Punkte ausblenden

aschal

PCDjoe

Matjes

Exel Menue Punkte ausblenden

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums