VBA Editor: Gemme regneark uden kode.

Hvad med at kopiere dine eksisterende ark til en ny bog og gemme denne? Dette kan også gøres med en makro fra dit eksisterende regneark.

Søren

ja det er en mulighed, men der er måske en "disable code" når der gemmes. Det er det jeg søger svar på.

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
        t = WB.VBProject.VBComponents(x).Type
        If t < 4 Then WB.VBProject.VBComponents.Remove WB.VBProject.VBComponents(x)
    Next x
End Sub

Sub gem()
Call CodeRemove(ActiveWorkbook.Name)
ActiveWorkbook.SaveAs s_FileName
ActiveWorkbook.Close
End Sub

og nej, der er ingen "disable code" :-)

bak -> takker, men kom med et svar så får du dine velfortjente point :)

Selv tak DC :-)

bak>

Når jeg prøver at 'stjæle' din kode får jeg en fejl der hedder 1004 'Programmatic access to Visual Basic Project is not trusted'
Hvordan kan jeg få lov til at truste det ?

Hugo -> det er en ny "feature" i Excel XP.
Under funktioner-makro-sikkerhed kan du på 2. faneblad (Pålidelige kilder) sætte flueben i "Giv adgang til visual basic-projekt. Det skulle hjælpe :-)

bak>  OK det vil jeg prøve

bak> Jeg fandt den nye sikkerhedsfeature og nu kan jeg også få det til at spille. Det er vel desværre noget som brugeren skal ind og pille i på sin installation og ikke noget der er gemt i Excel filen :-(

Dog er der stadig en lille detalje ved det ark som undrer mig. Selv om alle kodemoduler er slettet, kommer der stadig en boks op og fortæller mig at der er makroer i arket når jeg vil åbne det ??????????????

Skulle du gerne ville se arket, kan det bestilles til download på min website www.hugopedersen.dk under TAXI filer.

'bestilles til download' 

Det 'koster' ikke andet end at du indtaster dit navn og en mailadresse hvor linket skal sendes til.

Hugo-> jeg har ikke fået linket endnu, men er det regneark en xlt-fil eller er den oprettet på baggrund af en sådan ?

Hvis Ja, er der sikkert nogle skjulte makroer (xl4-makroer).

Hvis du stadig ikke har fået et link, så drop mig lige en mail på  hugo.work@bigfoot.com  så skal jeg sende et til dig.

Arket er en ganske almindelig xls fil og jeg har ikke brugt en template da jeg lavede det. (jeg har aldrig fundet en normal.xlt, så der er vel ingen standard)