tag:blogger.com,1999:blog-4623278671508370136.post8769830770707215944..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: Alternativas a la función UNIRCADENAS de Excel 365Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-4623278671508370136.post-39697906698215777742017-02-25T16:58:33.012+01:002017-02-25T16:58:33.012+01:00La opcion Private la agregue despues, tambien fall...La opcion Private la agregue despues, tambien falla sin eso.<br /><br />Logre resolverlo temporalmente usando la sentencia SendKeys para entrar al editor de VB, poner la clave para ver el proyecto y salir del editor. A partir de ahi el resto del codigo funciona bien. Al terminar la macro se ciera el archivo, de modo que igual nadie puede ver el proyecto.<br /><br />Private Function grabar()<br /> ThisWorkbook.Save<br /> SendKeys "%{F11}%(HP)xxxxxxxx{ENTER}{ESC}{ESC}%(AC)", -1<br /> Sheets("archivo").Visible = True<br /> Sheets("archivo").Select<br /> ThisWorkbook.SaveAs Filename:= _<br /> ThisWorkbook.Path & "\bna1.txt", FileFormat:=19, _<br /> CreateBackup:=0<br /> ThisWorkbook.Close SaveChanges:=0<br />End Function<br /><br />donde xxxxxxxx es la contraseña de proteccion del provecto de VB.<br /><br />Igual sigo intrigado por el origen de esta falla, me gustaria descubrirla en lugar de usar estos "parches".Mak8https://www.blogger.com/profile/16944160072611120054noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-7384201315527167272017-02-25T10:19:43.803+01:002017-02-25T10:19:43.803+01:00Hola,
yo probaría primero quitando la opción de Pr...Hola,<br />yo probaría primero quitando la opción de Private.<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-88657336758462968032017-02-25T03:54:05.001+01:002017-02-25T03:54:05.001+01:00Se me ocurre que, aun no sabiendo el motivo de est...Se me ocurre que, aun no sabiendo el motivo de este error, podria solucionarlo si pudiera desbloquearlo antes de grabar y luego bloquear nuevamente la visualizacion el proyecto, todo esto desde el codigo de VB.<br />O enviar una secuencia de teclas para desbloquear antes de usar SaveAs (Alt+F11, Alt+h, p, "contraseña", Enter).<br /><br />Pero no se como hacer ninguna de estas dos.Mak8https://www.blogger.com/profile/16944160072611120054noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-73819269814769563372017-02-25T01:01:37.664+01:002017-02-25T01:01:37.664+01:00Gracias por el foro y la ayuda.
Legue aca buscando...Gracias por el foro y la ayuda.<br />Legue aca buscando solucion a un problema, y llevo horas leyendo otras cosas muy interesantes, como esta funcion que me parece muy util.<br /><br />El problema (que aun no resuelvo) es un error 1004 al usar el metodo SaveAs desde una macro de excel 2003 protegida para visualizacion.<br />Lo curioso es que el codigo funciona bien al quitar la proteccion, o si al menos ingreso 1 vez al editor de VB y coloco la contraseña. Pero si directamente quiero utilizar la macro, da error.<br /><br />Este es el codigo , que uso para generar un archivo plano .txt a partir de un listado de excel:<br /><br />Private Function grabar()<br /> ActiveWorkbook.Save<br /> Sheets("archivo").Visible = True<br /> Sheets("archivo").Select<br /> ActiveWorkbook.SaveAs Filename:= _<br /> ActiveWorkbook.Path & "\bna1.txt", FileFormat:=xlTextMac, _<br /> CreateBackup:=False<br /> ActiveWorkbook.Close SaveChanges:=False<br />End Function<br /><br />Ya intente colocarlo dentro y fuera del modulo, como Sub o Function, etc. Como dije el codigo es simple y funciona perfecto, pero al proteger el proyecto para visualizacion, da error.<br /><br />Nota al margen, por si a alguien le sirve, uso el tipo de archivo "texto para Mac" dado que es el unico que no agrega un retorno de linea al final del archivo, ni para las filas vacias de la hoja que se exporta.<br /><br />Si alguien sabe como solucionar esto, le agradeceria la ayudaMak8https://www.blogger.com/profile/16944160072611120054noreply@blogger.com