gemme uden makro

Det kan du fint gøre. gem nedenstående makro i fx. din personlige makromappe (person.xls), tilknyt en knap og kør makroen "GemUdenKode" den på den aktive projektmappe.


Public Sub CodeRemove(ProjMappe)
    Set WB = Workbooks(ProjMappe)
    For x = WB.VBProject.VBComponents.Count To 1 Step -1
        n = WB.VBProject.VBComponents(x).Name
        a = WB.VBProject.VBComponents(x).CodeModule.CountOfLines
        If a > 0 Then
            WB.VBProject.VBComponents(x).CodeModule.DeleteLines 1, a
        End If
        On Error Resume Next
        WB.VBProject.VBComponents.Remove WB.VBProject.VBComponents(x)
        On Error GoTo 0
    Next x
End Sub

Sub GemUdenKode()
Call CodeRemove(ActiveWorkbook.Name)
End Sub

ok, men kan jeg ikke knytte den direkte til makro jeg kører, jeg opfatter det som du skriver at jeg skal åbne det redigerede dokument og så køre den makro du foreslår?

Koden må naturligvis ikke køres fra det dokument hvor du ønsker at fjerne kode fra. (man risikerer jo at den fjerner sig selv først)
Den skal også køres mod et åbent dokument (det aktive, men det kan ændres)

ok, så svaret er vel nærmest nej, smid lige et svar.
Jeg skal egentlig bare bruge indholdet, så jeg vil arbejde på at lægge det over i et tekst doc istedet

tjah ullum, sådan er det bare :-)
held og lykke med at smide det over i tekstbehandling istedet.

Jeg har lavet noget hvor jeg tager en kopi af et sheet og gemmer i et andet navn uden VBA kode i.
Jeg ved ikke om du kan bruge det, men hvis du er int. så send en mailadresse til  mail@hugopedersen.dk  så skal jeg lige se om jeg kan finde det eksempel i aften når jeg er hjemme igen.

jeg er ikke nået videre, men kan vi ikke også få et svar fra hugo, så kan I dele

Kunne du ikke bruge det jeg sendte.  ( er der andre der er int. sender de også bare en mail til adressen ovenfor )

jeg har slet ikke haft tid hugo, men I kan dele p som tak for Jeres tid