Supportnet / Forum / Datenbanken
Makro beim Start von Excel 2003 automatisch ausführen
Frage
Hallo!
Ich möchte das ein Makro beim Start von Excel 2003 automatisch ausgeführt wird.
Welchen Befehl muss ich da verwenden?
Gruß
Johannes
Antwort 1 von Saarbauer
Hallo
versuch es mal hiermit
Private Sub Workbook_Open()
REM ... Hier deine Angaben oder
MsgBox "Hallo Welt!"
End Sub
Gruß
Helmut
versuch es mal hiermit
Private Sub Workbook_Open()
REM ... Hier deine Angaben oder
MsgBox "Hallo Welt!"
End Sub
Gruß
Helmut
Antwort 2 von jockel01
Hallo!
Hab folgendes geschrieben (siehe unten) um den Button "Kopf-und Fußzeile..." zu sperren. Jedoch wenn ich die Datei auf einem anderen PC öffne ist die Sperrung wieder aufgehoben und ich muss das Makro neu ausführen.
Was muss ich ändern?
Private Sub Workbook_BeforeClose2(Cancel As Boolean)
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = True
End Sub
Private Sub Workbook_Open2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = False
End Sub
Private Sub Workbook_Deactivate2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = True
End Sub
Private Sub Workbook_Activate2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = False
End Sub
Gruß
Johannes
Hab folgendes geschrieben (siehe unten) um den Button "Kopf-und Fußzeile..." zu sperren. Jedoch wenn ich die Datei auf einem anderen PC öffne ist die Sperrung wieder aufgehoben und ich muss das Makro neu ausführen.
Was muss ich ändern?
Private Sub Workbook_BeforeClose2(Cancel As Boolean)
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = True
End Sub
Private Sub Workbook_Open2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = False
End Sub
Private Sub Workbook_Deactivate2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = True
End Sub
Private Sub Workbook_Activate2()
Application.CommandBars(1).Controls("Ansicht").Controls("Kopf- und Fußzeile...").Enabled = False
End Sub
Gruß
Johannes

