Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Menüpunkte deaktivieren

Menüpunkte deaktivieren
18.01.2003 11:24:37
Werner
Hallo Excel Freunde,

Ich möchte meine Excel Arbeit vor anderen Bestmöglich schützen.
Dafür habe ich schon in diversen fremden Mappen Ideen gesammelt, und weis leider nicht wie ich das im meine Arbeit einbauen kann bzw. hab keine Ahnung wie man das macht.
Ich würde mich freuen, wenn ihr mir helfen könnt.

Ich möchte folgende Menüpunkte deaktivieren.

1. Menü Extras (um das aufheben des Blattschutzes zu verhindern)
2. Drucken
3. Das bearbeiten der Reiter (Kontextmenü deaktivieren)

Das alles soll natürlich nur in dieser Mappe aktiv sein.


Für eure Hilfe möchte ich mich schon mal im Voraus bedanken.
PS. bin nicht oft Online daher kann es mit dem bedanken etwas dauern.
Werde mir das Datum und die zeit meiner anfrage aufschreiben und später noch bedanken.

Es grüsst euch der Excel fan

Werner


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menüpunkte deaktivieren Frage 1 und 2
18.01.2003 11:41:29
Nepumuk
Hallo Werner,
das brauchst du nur den Menüpunkt Schutz deaktivieren. Das Geht so:


Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled = True
End Sub


Wenn du das Drucken komplett verhindern willst, dann:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub


Gruß
Nepumuk

Re: Menüpunkte deaktivieren Frage 1 und 2
18.01.2003 11:59:40
Nepumuk
Hallo Werner,
also ich finde keinen Ansatz das Kontextmenü der Tabellenreiter zu unterdrücken. Man könnte eventuell mit API die rechte Maustaste deaktivieren. Eine andere Möglichkeit wäre die Reiter ganz auszublenden und die Blattwahhl über Buttons oder Hyperlinks zu gestalten. Dann müsste man aber das Menü Extras komplett sperren um die Optionen in denen das steht auch zu deaktivieren. Das sieht dann komplett so aus:

Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Der Code kommt in das Klassenmodul "Diese Arbeitsmappe". Einfach das Icon in der Menüleiste ganz links neben Datei mit der rechten Maustaste anklicken und "Code anzeigen" auswählen. Den Code hineinkopieren und VBA-Editor schließen. Mappe speichern, schließen und wieder öffnen. Fertig. Die einzelnen Tabellen lassen sich aber auch mit Strg+Bild auf bzw. Strg+Bild ab anwählen.
Gruß
Nepumuk

Anzeige
Re: Menüpunkte deaktivieren
18.01.2003 12:30:59
L.Vira
Bearbeiten der Reiter verhindern:
Application.CommandBars("ply").Enabled = False
Re: Menüpunkte deaktivieren
18.01.2003 12:37:47
Nepumuk
Ahaaaa, wieder was gelernt. Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige