Ver originales (Francés)

[VBA] Guardar una copia sin macros

Resuelto
Elboubdelapampa Mensajes publicados 153 Fecha de registro   Estado Miembro Última intervención   -  
 jojo -
Hola,
Tengo un libro de Excel con macros. Me gustaría que al final del proceso automático, la macro guarde una copia del archivo sin las macros.
Dado que tengo páginas de gráficos con enlaces, no puedo limitarme a copiar y pegar los datos en otros libros.
¿Es posible guardar un libro sin las macros?

Gracias de antemano

Configuración: Windows XP / Firefox 3.6.7

2 respuestas

  1.
    Elboubdelapampa Mensajes publicados 153 Fecha de registro   Estado Miembro Última intervención   7
     
    Merci, j'ai essayé, le "Enregistrer sous" fonctionne bien, par contre à la ligne
    Avec ActiveWorkbook.VBProject, j'obtiens le message d'erreur
    Erreur d'exécution '1004'
    La méthode 'VBProject' pour l'objet '_Workbook' a échoué
    Ce qui peut être traduit par :
    Erreur '1004'
    La méthode 'VBProject' pour l'objet '_Workbook' a échoué

    Une idée ?
    1
    1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
       
      Intenta la solución de MichDenis
      Menú / herramientas / Macros / seguridad / Pestañas de editores aprobados /
      las 2 casillas deben estar marcadas.
      0
    2. Elboubdelapampa Mensajes publicados 153 Fecha de registro   Estado Miembro Última intervención   7
       
      Era eso: solo uno estaba activado.
      Gracias por el tiempo que te tomaste, hacía tiempo que estaba trabajando en el problema.
      0
    3. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
       
      Acabo de hacer dos búsquedas en Google para ti... Así que, en resumen, solo me tomó unos segundos. Lo más difícil fue encontrar respuestas que pudieran satisfacerte y no solo el primer enlace que apareció.
      Buena suerte con lo que sigue y no dudes en volver.
      0
    4. jojo
       
      ¡Buenas noches, foro! ¡Necesito ayuda!
      Quiero usar el código de arriba, pero no puedo;
      quiero crear una copia de mi libro de trabajo y guardarla en un directorio (bajo otro nombre) eliminando las macros; sin cerrar mi libro de trabajo. El libro de destino debe estar cerrado para otra persona. En resumen, quiero hacer copias de mi libro de trabajo sin las macros.
      1
  2. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
     
    Hola,
    ¡Puede que aquí haya una solución de Frédéric Sigonneau, Laurent Longre, solo eso!
    El código: 
    sub SaveAsWithoutMacros() Dim NomSource$, CheminDest$, NomDest$ Dim VBC As Object NomSource = "EssaiSaveAs.xls" 'a adaptar CheminDest = "C:\WindowsTemp" 'a adaptar NomDest = "Essai.xls" 'a adaptar Workbooks(NomSource).SaveAs CheminDest & NomDest With ActiveWorkbook.VBProject 'esta parte del código es de Laurent Longre 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 'LL End With Application.Quit SendKeys "%O" end sub

    --
    Cordialmente,
    -- Todo problema tiene su solución. Si no hay solución, ¿dónde está el problema? --
    0