MS Project / Makro per VBA löschen

Desinfect 2017 persistent / Multiboot
29. Mai 2017
Windows 10 – One Drive Icon löschen
14. September 2017

Alle Makros löschen

Public Sub DeleteMacros()
    Dim vbc As Object
    With ThisProject.VBProject
        For Each vbc In .VBComponents
            Select Case vbc.Type
                Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name)
                Case 100
                With vbc.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            End Select
        Next
    End With
End Sub

Ein Marko löschen

Public Sub DeleteMacro()
    With ThisProject.VBProject
        .VBComponents.Remove .VBComponents("Modul1")
    End With
End Sub

 

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.