Excel - GUARDAR LIBRO EXCEL COMO XLSM

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

GUARDAR LIBRO EXCEL COMO XLSM

Publicado por PEDRO (1 intervención) el 20/10/2019 19:16:19
El siguiente codigo me funciona perfecto en otro libro que cree, pero al tratar de utilizarlo en un nuevo libro me arroja Error 1004 "Error en el metodo SaveAs de objeto Workbooks

NOTA: Se debe guardar como xlsm

1
2
3
4
5
6
7
8
9
Private Sub CommandButton4_Click()
ActiveSheet.Unprotect "123"
cadena = "C:\BALANCES\" & Range("I5") & ".xls"
ActiveWorkbook.SaveAs cadena, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("IE5").Value = Range("E5").Value + 1
Range("E9").Value = ActiveSheet.Range("E9").Value + 1
Range("B11:B13,B26:C27,B34:C42,B49:C51,B58:C60").ClearContents
Range("B9").Select
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 3.827
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

GUARDAR LIBRO EXCEL COMO XLSM

Publicado por Antoni Masana (1295 intervenciones) el 21/10/2019 20:13:27
Quizás es que te has comido un trozo de código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton4_Click()
    ActiveSheet.Unprotect "123"
    cadena = "C:\BALANCES\" & Range("I5") & ".xls"
    ActiveWorkbook.SaveAs Filename:=cadena, _
        FileFormat:=xlNormal, _
        Password:="", _
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
    Range("IE5").Value = Range("E5").Value + 1
    Range("E9").Value = ActiveSheet.Range("E9").Value + 1
    Range("B11:B13,B26:C27,B34:C42,B49:C51,B58:C60").ClearContents
    Range("B9").Select


De todas formas el GRABAR MACROS crea esto al hacer un Guardar como y hacerlo como xlsm, o al menos la versión de Excel 2010

1
2
3
ActiveWorkbook.SaveAs Filename:=Cadena, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
    CreateBackup:=False


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar