rilevante

Office XP
Ho costruito in codice VBA in un una cartella Excel un modello fattura per
poter prelevare ed archiviare i dati immessi in distinti fogli di questa
cartella.
Fin qui tutto bene ma non riesco a salvare il documento fattura creato in
..xls cioè senza il codice.
Come posso intervenire per avere ogni intero documento fattura salvato e
consultabile come un normale file
Grazie a chi mi potrà aiutare.
bigio

Ciao Geogra,

'--------------
Ho costruito in codice VBA in un una cartella Excel un modello fattura per
poter prelevare ed archiviare i dati immessi in distinti fogli di questa
cartella.
Fin qui tutto bene ma non riesco a salvare il documento fattura creato in
..xls cioè senza il codice.
Come posso intervenire per avere ogni intero documento fattura salvato e
consultabile come un normale file
'--------------

Se ho capito, hai un modello (Fattura.xlt) e vuoi che sia possibile savare i
file risultanti senza salvare il codeice del modello.

Se fosse cosi', prova:

Nel modulo ThisWorkbook del modello:

'=============>>
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, _
Cancel As Boolean)
Dim blSaved As Boolean
Dim SH As Worksheet

If UCase(Me.Name) Like "*.XLT" Then
Exit Sub
End If

Call DeleteAllVBA

End Sub
'<<=============

E, in un modulo standard del modello prova la
procedura DeleteAllVBA di Chip Pearson:

Programming To The Visual Basic Editor
http://www.cpearson.com/excel/vbe.htm

'=============>>
Public Sub DeleteAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents

Set VBComps = ThisWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

End Sub
'<<=============

(In questa versione della procedura di Chip, ho
sostituito l'oggetto ActiveWorkbook con l'oggetto
ThisWorkbook)

'-------------
Se ho capito, hai un modello (Fattura.xlt) e vuoi che sia possibile savare i
file risultanti senza salvare il codeice del modello
'-------------

===>

Se ho capito, hai un modello (Fattura.xlt) e vuoi che sia possibile salvare
i
file risultanti senza salvare il codice del modello