Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Symbolleiste nur in speziellem Dokument

Symbolleiste nur in speziellem Dokument
17.09.2003 23:53:36
Nico
Hallo Ihr Excel-Kenner,

bei meiner Excel-Datei will ich eine Befehlschaltfläche erstellen hinter der sich ein Makro befindet - das ist ja nicht das Problem. Aber: Diese Schaltfläche soll nur in einem bestimmten Dokument angezeigt werden (z.B. 123.xls) und bei Betätigen die Excel-Datei speichern und schließen. Natürlich wäre es in dem Fall angebracht, wenn die normalen "SCHLIESSEN"-Schaltflächen in Excel (also die "X" in der rechten Ecke) dann verschwunden sind, damit man nicht darüber schließt.

Schwierig...schwierig...Kann mir da jemand von Euch weiterhelfen?

Vielen Dank - Nico

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symbolleiste nur in speziellem Dokument
18.09.2003 00:23:40
Josef Ehrensberger
Hallo Nico,

die Symbolleiste kannst du beim öffnen der Mappe anlegen
und sie beim schliessen wieder löschen. (siehe Recherche)

Um das Schliessen nur über deine Schaltfläche zu erlauben
schreibe in das Modul "DieseArbeitsmappe" diesen Code:

'-------- Modul DieseArbeitsmappe ---------

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bSave = True Then Exit Sub
Cancel = True
End Sub




Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If bSave = True Then Exit Sub
Cancel = True
End Sub




Private Sub Workbook_Open()
bSave = False
End Sub


In ein allgemeines Modul schreibst du

'--------- Allgemeines Modul --------

Public bSave As Boolean


Private Sub SaveClose()'Makro für deine Schaltfläche
bSave = True
ThisWorkbook.Close SaveChanges:=True
End Sub


Die Tabelle muss vorher bereits unter einen Namen gespeichert worden sein!

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige