Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen wenn die Datei geöffnet wird

Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:13:22
Gesa
Hallo,
möchte gerne, dass er nachfolgendes Makro beim Öffnen der Datei "TEST" ausführt:

Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled =  _
False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = False
End Sub


Wenn die Datei geschlossen wird, soll dieses Makro ausgeführt werden:


Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled =  _
True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
End Sub


Gibt es dafür eine Lösung?
Für Hilfe bin ich wie immer :-) sehr dankbar (was würde ich bloß ohne das Forum machen..
Schöne Grüße
Gesa S.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:25:00
Daniel
Hi
du musst den MakroCode noch in die Makros
Workbook_Open() und Workbook_BeforeClose im Modul "DieseArbeitsmappe" einfügen.
entweder du kopierst den Inhalt, oder rufst das Makro auf:
Private Sup Workbook_Open
Call Workbook_Activate
End Sub


Noch besser wärs, du schreibst das Ein- und Ausschalten der Commandbars als eigenes Makro und rufst dann von den 4 Events immer nur das passende Mako auf:


Private Sub CMB_aus()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled =   _
_
False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
_
False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = False
End Sub




Private Sub CMB_ein()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled =   _
_
True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
_
True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
End Sub




Private Sub Workbook_Open()
CMD_aus
End Sub




Private Sub Workbook_Activate()
CMD_aus
End Sub




Private Sub Workbook_beforeClose()
CMD_ein
End Sub




Private Sub Workbook_DeActivate()
CMD_ein
End Sub


Gruß, Daniel

Anzeige
AW: Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:40:13
Gesa
Hallo,
erst mal ein großes danke . Auch wenn es jetzt peinlich wird :-(
wie bekomme ich ein Makro in das Modul "diese Arbeitsmappe"?
Sorry..
Ist ja auch schon spät..
Schöne Grüße
Gesa S.

AW: Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:49:00
Daniel
Ähm genauso wie du die anderen beiden Makros, die du schon hast, da reingebracht hast.
- im Projektexplorer "DieseArbeitsmappe" doppeltklicken
- in der Linken combobox "Workbook" auswählen
- in der rechten Combobox das entsprechende Event auswählen und dann den Code reinschreiben.
aber wie gesagt, für die Makros Workbook_Activate und Workbook_Deactivate hast du das ja schon und müsstest das eigentlich wissen.
Gruß, Daniel

Anzeige
AW: Makro ausführen wenn die Datei geöffnet wird
28.02.2008 02:26:00
Gesa
:-(
Sorry.. ich glaub ich mach jetzt Feierabend....hast ja recht..
Vielen Dank.. morgen kann ich glaube ich wieder logisch denken :-)
Gute Nacht
Gesa S.

AW: Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:28:43
Matthias
Hallo
Probier es mal so, Deinen Code in DieseArbeitsmappe

Option Explicit
Private Sub Workbook_Open()
... Dein Code
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
... Dein Code
End Sub


15 Forumthreads zu ähnlichen Themen

Im VBA Editor Makro ausführen mit Schaltfläche
chris

Hallo und guten morgen,
kann mir jemand sagen wie ich Makro schaltflächen in VBA Editor hinzufügen kann ?
Bzw. wie ich Makros zuweisen kann ?
Beispiel ich befinde mich im VBA editor.
Klicke dort Rechte Maustaste auf die Symbolleiste.Dnn kann ich "Anpassen ..." klicken
Dort...
30.09.2010 08:13:56
Thread-ID: 1180009
16 Beiträge
Anzeige
VBA2010 wenn dateiname dann makro
Rene

Hallo Leute,
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv ge...
17.01.2013 09:46:25
Thread-ID: 1294735
3 Beiträge
VBA Makro ausführen wenn Feld geändert wird
Tobias

Hallo,
ich bin gerade dabei ein Makro zu erstellen, dass wenn ein Wert in einem Feld geändert wird ein Makro ausgelöst wird.
Folgender Code habe ich schon erstellt:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then Aktualisiere...
27.11.2013 15:16:03
Thread-ID: 1340252
5 Beiträge
Anzeige
VBA automatisch statt Makro ausführen
Kisska

Hi zusammen,
ich habe dieses Makro hier:
Sub SpaltenZeilenEinstellen() With ActiveSheet.UsedRange .Columns.AutoFit .Rows.AutoFit End With End Sub

Das Makro passt Zeilen und Spalten automatisch an Inhalt an, und zwar in einem bestimmten Tabellenblatt.
Was muss im VBA-Code...
19.06.2017 12:21:18
Thread-ID: 1564763
6 Beiträge
VBA Makro von Excel aus ausführen
Excel

Hallo zusammen,
ich habe unter http://www.vboffice.net/de/developers/alle-dateien-eines-ordners-senden/ ein VBA Makro gefunden, welches ich in Outlook bereits meinen Bedürfnissen entsprechend angepasst habe.
Das Makro sammelt Dateien aus mehreren Ordnern ein und versendet diese an ein...
18.10.2017 17:45:44
Thread-ID: 1586629
2 Beiträge
VBA Code Makro nicht ausführen
lia

Hi,
wie kann ich ein Makro abbrechen? Ohne es über das Trust Center zu deaktivieren? Weil dies funktioniert nicht.
Würde es gerne programmieren.
Danke.
01.03.2018 10:43:03
Thread-ID: 1611711
2 Beiträge
VBA Makro ausführen ohne Word/Excel zu starten
Oliver

Hallo Leute,
ich habe hier in diesem Beitrag gelesen: https://www.herber.de/forum/archiv/480to484/483883_VB_Anwendung_ohne_Excel_startenausfuehren.html
Das man per VBS Datei ein Makro starten kann.
Bekomme es nur leider nicht hin. Option Explicit Dim xlApp , Pfad Set xlApp = Cre...
26.03.2018 13:03:43
Thread-ID: 1616394
3 Beiträge
VBA Makro funktioniert nur beim 2 ausführen
Dennis

Hallo,
Mein Makro funktioniert nun nach langer Zeit fast einwandfrei.
Jedoch erst wenn ich das Makro zweimal hintereinander ausführe.
Beim ersten versuch Funktionieren alle Rechnungen bis auf 1.
Bei dieser Rechnung in Spalte "K" kommt dann " #DIV/0! "
Die Formel Dafür ist =...
24.07.2018 10:05:23
Thread-ID: 1635498
8 Beiträge

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
15
2
2
4
7
5
1
1
2
7
1
20
7
2
9