salvare file senza macro

Hai un problema con Excel?

Nuova discussione

salvare file senza macro
di rita (utente non iscritto) data: 19/02/2013 08:17:29
ciao a tutti
ho un file con all'interno delle cartelle, riesco a salvare il file ma vorrei che il nuovo file salvato non contenesse macro moduli etc esistenti nel file di partenza, ossia sia una copia pulita
come posso fare per salvarlo senza che la copia abbia al suo interno tutte queste cose?
ossia c'e' un sistema per poter eliminare da un file i moduli che contengono macro userform etc?

di Mister_x (utente non iscritto) data: 19/02/2013 19:02:50
ciao

questo pezzo di sub() non e' tutto mio ma frutto di una collaborazione

questo e' il codice di partenza al quale si puo' aggiungere tramite un InputBox il nome del file e
MsgBox dei controlli di conferma

come vedrai adesso salva il file senza macro in C: col nome test.xls per excel 2003 e precedenti mentre se salvi per excel 2007 devi mettere l'estensione che in questo momento mi sfugge

ciao da Mister_x

Sub Salva_senza_VBA()
Dim VBC As Object

ChDir "C:"
ActiveWorkbook.SaveAs Filename:="C:	est.xls"

With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Application.Quit
SendKeys "%O"
End Sub

di Vecchio Frac data: 19/02/2013 20:10:07
In Rete c'è anche una soluzione leggera che non fa altro che copiare in un nuovo file i singoli fogli.
Non l'ho testata ma in teoria dovrebbe copiare i fogli senza le macro (e ovviamente non trasporta le form).
di RITA (utente non iscritto) data: 21/02/2013 13:16:51
Vi ringrazio, in ogni caso la sub postata funziona egregiamente
grazie di nuovo

Vuoi Approfondire?