VBA Editor: Gemme regneark uden makro

En mindre justering kan afhjælpe det.

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 gem()
Call CodeRemove(ActiveWorkbook.Name)
ActiveWorkbook.SaveAs s_FileName
ActiveWorkbook.Close
End Sub

Den spørger stadig om makroen skal afspilles når jeg åbner det gemte ark. Men al koden er væk og det er jo en start. Kan man også slette modulerne og formene?

Gå ind i VBA editoren. Højreklik på det modul, du vil fjerne og vælg Remove. Sig Nej til at eksportere modulet først.

jkrons -> Det skal ske automatisk når arket gemmes (med et nyt navn)

Undskyld. Jeg overså, at det skulle gøres i kode.

Hvis du kører ovenstående makro skulle alle moduler og form da gerne være slettet og fjernet.
Der vil så være arkenes egne moduler tilbage, men der er al kode slettet. (Thisworkbook og arkmodulerne kan ikke fjernes)

bak-> Er problemet ikke, at koden ikke kan fjerne det modul, den selv er i? For når jeg prøver den bliver, det modul tilsyneladende altid tilbage.

Jo, det kan da godt være. Har ikke chekket. Jeg har selvfølgelig lagt denne slettekode i person.xls, så den kan bruges overalt. :-))

bak -> har prøvet, men den sletter kun koden

Jeg forstår ikke helt det her.
Ved mig fjernes alle moduler og forms i den aktive projektmappe og de der ikke er beregnet til at fjerne slettes/ryddes.

Hvis den ligger i person.xls virker den udmærket også hos mig, men hvis den ligger i den mappe, hvor koden skal slettes fra, virker den ikke.

Ellers skal man som nævnt tidligere i et andet af mine spørgsmål, kopiere al regneark indholdet over i et nyt og på den måde undgå makroen.

Det er da en mulighed, men hvis du kopierer arkenene følger arkets kode med (hvis du sådanne makroer).
Hvis du ikke v i l have makroen i et separat regneark eller i person.xls, så kan man overføre dette modul til et midlertidig regneark, køre makroen og derefter slette det midlertidige regneark.

Hvis du kun har data i et enkelt ark, er det ret nemt at kopiere til en ny mappe:

Sheets("Arknavn").Copy
ActiveWorkbook.SaveAs "Filnavn"
ActiveWorkbookClose

ok, jeg prøver og vender tilbage

...og så er vi tilbage i den kommentar jeg afgav første gang spørgsmålet blev stillet. Det er i øvrigt min holdning at man bør holde fingrene væk fra VBComponents.Remove metoden hvis ikke man først eksporterer moduler, forms etc.

bak -> kom med et svar... du har fortjent pointene da jeg bruger din løsning, tak :)

Ok, glæder mig at det kan bruges :-)