Microsoft Excel

Herbers Excel/VBA-Archiv

VBE Makros löschen

Betrifft: VBE Makros löschen von: annette
Geschrieben am: 26.01.2005 17:29:10

Hallo liebes Forum,

es ist alles ein wenig schleierhaft.

ich habe eine Arbeitsmappe mit mehreren Tabellen und Makros.
Es soll eine Exportdatei erstellt werden und in dieser neuen Datei sollen die alten Verknüpfungen und Makros nicht bestehen.

Bei mir tut es das auch. Jetzt habe ich die Datei einer Kollegin gegeben und auch unter Verweise Microsoft VBA Extensibiliy 5.3. bei ihr aktiviert.

Aber Excel tuts nicht, weiß jemand was da passiert bzw. nicht passiert ??
Muss ich noch andere Bibliotheken aktivieren?

Das entsprechende Makro ist weiter unten.
Grüße

Annette


Sub Exportdaten()
On Error Resume Next
Dim Tabelle As Worksheet
Dim zelle As Range
Dim s_Datum As String
Dim t_Zeit As String

If ActiveWorkbook.Saved = False Then ActiveWorkbook.Save

s_Datum = Date
t_Zeit = Time
Application.ScreenUpdating = False

''Verknüpfungen löschen

For Each Tabelle In ActiveWorkbook.Worksheets
 Tabelle.Activate
 For Each zelle In ActiveSheet.UsedRange
   If InStr(zelle.Formula, "[") > 0 Then zelle.Value = zelle.Value
 Next zelle
Next Tabelle



Worksheets("Gesamt").Activate
Call Meldung


 ActiveWorkbook.SaveAs ActiveSheet.Name & "_" & s_Datum & "_" & Format(t_Zeit, "hhmmss") & ".xls"
 Application.DisplayAlerts = True
  
Application.CommandBars("Ansichten").Delete
'Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Chart Menu Bar").Visible = True
Application.CommandBars("Worksheet Menu Bar").Visible = True




'Ausblenden der Tabellen
For Each Tabelle In ActiveWorkbook.Sheets
    If Tabelle.Name <> ActiveSheet.Name Then
    Tabelle.Visible = xlSheetVeryHidden
    End If
Next Tabelle

 Dim CodeObj As Object
  If Val(Application.Version) >= 8 Then
    With ActiveWorkbook.VBProject
      For Each CodeObj In .VBComponents
        Select Case CodeObj.Type
          Case 1, 2
            .VBComponents.Remove CodeObj
          Case Else
            With CodeObj.CodeModule
              If .CountOfLines > 0 Then
                .DeleteLines 1, .CountOfLines
              End If
            End With
        End Select
      Next
    End With
  End If
  For Each CodeObj In ActiveWorkbook.Names
    Select Case CodeObj.MacroType
      Case xlFunction, xlCommand
        CodeObj.Delete
    End Select
  Next
 
Application.ScreenUpdating = True
ActiveWorkbook.Save

End Sub

  


Betrifft: AW: VBE Makros löschen von: P@ulchen
Geschrieben am: 26.01.2005 20:13:02

Hi Annette,

Du mußt bei Deiner Kollegin (also in Ihrem Excel ;-) ) unter Extras - Makro - Sicherheit ein Häkchen bei Zuriff auf Visual Basic... setzen.





Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: AW: VBE Makros löschen von: annette
Geschrieben am: 27.01.2005 09:13:47

Hallo Paulchen,

es hat funktioniert :-), merci!!!!!!!!!!!!!!!!

Ich habe es auch versucht ohne die Einstellung der Verweise in der VBA Umgebung und es lief auch!!
Sollte die Einstellung (Verweise Microsoft VBA Extensibiliy 5.3) vorsichtshalber doch aktiviert werden bei anderen Usern?
Wenn Du darauf noch eine Antwort hättest, wäre das echt super !!

Viele Grüße
Annette


 

Beiträge aus den Excel-Beispielen zum Thema "VBE Makros löschen"