Workbook_open

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: Exel 97
nach unten

Betrifft: Workbook_open
von: Jens
Geschrieben am: 24.06.2002 - 07:25:58

Hallo Liste folgendes Problem:
Ich möchte per VBA in einenm KlassenModul eine Workbook_Beforeclose Procedure schreiben lassen wie geht das?
HAb folgenden Code in der Recherche gefunden, kann aber nicht viel mit anfangen!

Sub CodeLoeschen()
Dim intRow As Integer, intCount As Integer With Workbooks("Test.xls").VBProject.VBComponents("DieseArbeitsmappe").CodeModule intRow = .ProcBodyLine("Workbook_Open", 0) intCount = .ProcCountLines("Workbook_Open", 0) .DeleteLines intRow, intCount - 1 End WithEnd Sub

Kann mir jemand weiterhelfen wäre dringend!


nach oben   nach unten

Re: Workbook_open
von: Hajo_Zi
Geschrieben am: 24.06.2002 - 07:29:59

Hallo Jens

hatte Dein Code die richtige schreibweise??


Sub CodeLoeschen()
    Dim intRow As Integer, intCount As Integer
    With Workbooks("Test.xls").VBProject.VBComponents("DieseArbeitsmappe").CodeModule
        intRow = .ProcBodyLine("Workbook_Open", 0)
        intCount = .ProcCountLines("Workbook_Open", 0)
        .DeleteLines intRow, intCount - 1
    End With
End Sub

Die Frage habe ich vermißt, bzw die Aktion die gemacht werden soll.

Gruß Hajo


nach oben   nach unten

Re: Workbook_open
von: Jens
Geschrieben am: 24.06.2002 - 07:38:07

Danke Hajo,
den Code hat ich aus der Recherche!?
HAb die Lösung aber gefunden:

Sub OpenProzedurAnlegen()
Dim nWB As Workbook
Dim mdlWB As Object
Set nWB = ThisWorkbook
Set mdlWB = nWB.VBProject.VBComponents("DieseArbeitsmappe")
With mdlWB.CodeModule
.InsertLines 3, "Private Sub Workbook_Open()"
.InsertLines 4, " Msgbox ""Bin jetzt da!"""
.InsertLines 5, "End Sub"
End With
End Sub

Ist die Lösung für das Problem!

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Workbook_open"