Для того, чтобы удалить из текущей рабочей книги : все стандартные модули, модули класса, UserForm, а также программный код 
из всех модулей листа, книги, достаточно использовать любой из нижеопубликованных примеров 
(VBProject не должен быть защищён)

Private Sub DeleteModulesAndCode()
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
        With iVBComponent
             Select Case .Type
                 Case 1 To 3: .Collection.Remove iVBComponent
                 Case 100: .CodeModule.DeleteLines _
                 1, .CodeModule.CountOfLines
             End Select
        End With
    Next
End Sub

Private Sub DeleteModulesAndCode2()
    Set iVBComponents = ThisWorkbook.VBProject.VBComponents
    For Each iVBComponent In iVBComponents
        Select Case iVBComponent.Type
            Case 1 To 3: iVBComponents.Remove iVBComponent
            Case 100
            With iVBComponent.CodeModule
                 .DeleteLines 1, .CountOfLines
            End With
        End Select
    Next
End Sub

Private Sub DeleteModulesAndCode3()
    With ThisWorkbook.VBProject.VBComponents
         For iCount& = .Count To 1 Step -1
             Set iVBComponent = .Item(iCount&)
             Select Case iVBComponent.Type
                 Case 1 To 3: .Remove iVBComponent
                 Case 100
                 iVBComponent.CodeModule.DeleteLines _
                 1, iVBComponent.CodeModule.CountOfLines
             End Select
        Next
    End With
End Sub

Для того, чтобы удалить из текущей рабочей книги все пользовательские формы UserForm, 
достаточно использовать любой из нижеопубликованных примеров (VBProject не должен быть защищён)

Private Sub DeleteOnlyUserForms()
    With ThisWorkbook.VBProject.VBComponents
         For iCount& = .Count To 1 Step -1
             If .Item(iCount&).Type = 3 Then .Remove .Item(iCount&)
         Next
    End With
End SubPrivate Sub DeleteOnlyUserForms2()
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
        If iVBComponent.Type = 3 Then _
        iVBComponent.Collection.Remove iVBComponent
    Next
End SubPrivate Sub DeleteOnlyUserForms2v2()
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
        If iVBComponent.Type = 3 Then _
        ThisWorkbook.VBProject.VBComponents.Remove iVBComponent
    Next
End SubPrivate Sub DeleteOnlyUserForms2v3()
    Set iVBComponents = ThisWorkbook.VBProject.VBComponents
    For Each iVBComponent In iVBComponents
        If iVBComponent.Type = 3 Then iVBComponents.Remove iVBComponent
    Next
End Sub