Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

mehrere Makros beim öffnen starten

mehrere Makros beim öffnen starten
11.10.2012 13:52:29
Heidi
Hallo zusammen,
ich habe mehrere Tabellenblätter und beim Öffnen der Datei sollen die hinterlegten Makros je Tabellenblatt automatisch starten.
Zum Beispiel habe ich je Tabellenblatt folgendes Makro eingebaut:
Sub Workbook_Open()
With Worksheets("LK 24.09.2012")
.Protect UserInterfaceOnly:=True, Password:="xxx"
.EnableOutlining = True     ' Für Gliederung
.EnableAutoFilter = True    ' Für AutoFilter
End With
End Sub
Dies soll beim Öffnen der Datei automatisch erfolgen.
Vielen lieben Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Makros beim öffnen starten
11.10.2012 13:58:36
ChrisL
Hallo Heidi
Hier ein Vorschlag:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Call ProtectMe(ws)
Next ws
End Sub

Sub ProtectMe(ws As Worksheet)
With ws
.Protect UserInterfaceOnly:=True, Password:="xxx"
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
End Sub cu
Chris
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige