Meldung Makros aktivieren

robert · 1970-01-01T00:00:00+00:00

Hallo am samstag, folgender vorgang: ein blatt mit wb-open code wird copiert, in der copie wird mit einem makro die wb-open prozedur gelöscht, das blatt wird als neue datei gespeichert. funkt alles tadellos, aber beim öffnen kommt die frage ob makros aktiviert werden sollen. speichere ich datei jetzt wieder und öffne sie neu, kommt keine meldung mehr. woran kann das liegen? gruß robert

Hallo,

Sub Kopieren_Ohne_VBA()
Dim oWB As Workbook
Dim strFile$, strLines$
Dim booMeSaved As Boolean

booMeSaved = ThisWorkbook.Saved

With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(1).Name).CodeModule
    strLines$ = .Lines(1, .CountOfLines)
    .DeleteLines 1, .CountOfLines
End With

strFile$ = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
strFile$ = strFile$ & "Datei_Ohne_Makro.xls"
Tabelle1.Copy

Set oWB = ActiveWorkbook

With ThisWorkbook.VBProject.VBComponents(oWB.Sheets(1).Name).CodeModule
    .AddFromString strLines
End With

oWB.Sheets(1).Shapes(1).OnAction = ""

Application.DisplayAlerts = False
    oWB.Close True, strFile
Application.DisplayAlerts = True

ThisWorkbook.Saved = booMeSaved

End Sub

Zu Deinem Problem.
Weil die neue Datei davor schon speichert und geschlossen wird.
Gruß Tino

Hallo,
anstelle ThisWorkbook.Sheets(1).Name musst Du natürlich
den CodeNamen der Tabelle einsetzen.

Sub Kopieren_Ohne_VBA()
Dim oWB As Workbook, sTabCodeName$
Dim strFile$, strLines$
Dim booMeSaved As Boolean


    booMeSaved = ThisWorkbook.Saved
    sTabCodeName$ = ThisWorkbook.Sheets(1).CodeName
    
    With ThisWorkbook.VBProject.VBComponents(sTabCodeName$).CodeModule
        strLines$ = .Lines(1, .CountOfLines)
        .DeleteLines 1, .CountOfLines
    End With
    
    strFile$ = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
    strFile$ = strFile$ & "Datei_Ohne_Makro.xls"
    Tabelle1.Copy
    
    Set oWB = ActiveWorkbook
    
    With ThisWorkbook.VBProject.VBComponents(sTabCodeName$).CodeModule
        .AddFromString strLines
    End With
    
    oWB.Sheets(1).Shapes(1).OnAction = ""
    
    Application.DisplayAlerts = False
        oWB.Close True, strFile
    Application.DisplayAlerts = True
    
    ThisWorkbook.Saved = booMeSaved

End Sub

Gruß Tino

Forumthread: Meldung Makros aktivieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Meldung Makros aktivieren

Forumthread: Meldung Makros aktivieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread