Mensajes

Estimados, necesito su ayuda de nuevo!

Necesito saber como modificar un valor DWORD en el registro, el valor cambia de 1  a  0, he buscado pero NO ENTIENDO NADA DE ESTO, y necesito que me guíen o ayuden directamente xD por favor xD.

tengo la ruta dónde está la clave y el nombre.

["HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\" ]
y la clave es AccessVBOM.

por favor si alguien me puede ayudar,  es lo único que me falta para terminar mi programa.

gracias de ante mano!

Saludos!

muchas gracias por el dato!  ahora a ver como identificar la versión de office y como modificar el registro xD!,  pero muchas gracias por el link!.

[mediante código]

Hola a todos, saludos de nuevo!

Hoy vengo a solicitar su ayuda con sobre como habilitar una opción de Excel mediante código. Les explico mejor:

Tengo terminado un formulario para procesar archivos .XLS generados por SAP. Lo que hago es crear un MACRO desde Visual, añadirla a Excel y ejecutarla, hasta ahí todo bien. El tema es que necesito habilitar una opción de Excel para evitar que me de el siguiente error:



Y la opción que necesito habilitar mediante código es la siguiente:



Estoy haciendo el programa para la empresa en la que trabajo y solo me falta eso, ya que la idea es que los usuarios no tengan que ir a opciones "extrañas" ya que no todos tienen la misma versión de Office como para explicar en el programa como llegar a esa opción y habilitarla.

Dejo el código que uso para Generar y Ejecutar el macro.

Código (vb) [Seleccionar] Expandir


Dim ExcelApp As New Excel.Application
Dim HojaExcel As Excel.Worksheet
Dim LibroExcel As Excel.Workbook
Dim ModuloExcel As Object
Dim CodigoMacro As String
Dim Linea As String, Total As String
Dim EstrucComercial As String
Dim InvFilePath As String

Private Sub Command1_Click()
If InvFilePath = "" Then
    respuesta = MsgBox("Debe seleccionar un archivo a procesar.", vbExclamation, "Cuidado!.")
    Exit Sub
    Else
Command1.Caption = "Procesando..."
Command1.Enabled = False
BBuscarXls.Enabled = False

PB1.Value = 0
PBLabel.Caption = "Buscando Archivo..."
PB1.Value = PB1.Value + 1

EstrucComercial = App.Path & "\DataAndStuff\EstructuraComercial3.0.xlsx"
PBLabel.Caption = "Abriendo Archivos..."
PB1.Value = PB1.Value + 1

Set LibroEC = ExcelApp.Workbooks.Open(EstrucComercial)
Set LibroExcel = ExcelApp.Workbooks.Open(InvFilePath)

PBLabel.Caption = "Buscando Datos..."
PB1.Value = PB1.Value + 1

Set HojaExcel = LibroExcel.Sheets.Item(1)

PBLabel.Caption = "Configurando Consulta..."
PB1.Value = PB1.Value + 1

Set ModuloExcel = LibroExcel.VBProject.VBComponents.Add(vbext_ct_StdModule) ' Aca es donde daria problemas en la ventana de programador y en el exe compilado.
'ExcelApp.Visible = True

PBLabel.Caption = "Ejecutando Consulta..."
PB1.Value = PB1.Value + 1

CodigoMacro = _
    "Sub OrdenPlanillaInventario()" & vbCr & _
    Total & vbCr & _
    "End Sub"
   PBLabel.Caption = "Ordenando Datos..."
   PB1.Value = PB1.Value + 1
   
ModuloExcel.CodeModule.AddFromString CodigoMacro
ExcelApp.Run ("OrdenPlanillaInventario")

PBLabel.Caption = "Guardando Archivo..."
PB1.Value = PB1.Value + 1

ExcelApp.DisplayAlerts = False
LibroExcel.SaveAs InvFilePath, FileFormat:=xlNormal
LibroExcel.Close SaveChanges:=False

PBLabel.Caption = "Listo!."
PB1.Value = PB1.Value + 1

ExcelApp.Quit
Command1.Caption = "Listo!."
Command1.Enabled = False
BBuscarXls.Enabled = False

End If
End Sub



Saludos y gracias de ante mano !

Usa notepad++. Además si no tiene alguna opción de personalización de colores del texto no creo que se pueda. Saludos

Lei varios foros por ahi, y al parecer es un virus el que modifica algunos archivos de sistema para no dejar ejecutar ciertas aplicaciones. El tema es que son aleatorias las aplicaciones que modifica, puede ser desde el registro hasta los juegos como dices mas arriba.

Recomiendan un formateo limpio del sistema (o sea borrando todos los datos), y una instalacion completa de drivers (no los que instala windows, los que corresponden a cada dispositivo).

Tambien recomiendan hacer un FULL escaneo a tus discos de respaldo, D:\ E:\, etc. porque lo mas probable es que el virus este alojado ahi, y por eso cada vez que formateas siempre se vuelve a infectar.

Intentaste revisando "msconfig" en la pestaña inicio?, puede que haya algo que se este inciando y que de conflicto con tus aplicaciones.

Personalmente, mas que un virus, me parece un problema de desactualizacion de drivers. Generalmente este tipo de errores pasan por eso.

No creo haber sido de mucha ayuda, pero espero te sirva de algo xD.

Cheers.

Jojoj que bueno xD

la verdad es que lo leí por encima no más, pero se supone que explican cómo hacerlo.  pero bueno a ver si encuentro otra cosa

Gracias por el aporte!, a mi me servirá de mucho en mi trabajo, asi que gracias!!.

Encontre ESTO te puede servir, explican paso a paso como hacer lo que tu quieres, esta en ingles, asi que si sabes ingles sera pan comido, sino, bueno, a aprender entonces XD


Saludos y espero que te sirva.

Comienza la paranoia, es el protocolo en este tipo de casos xD.

Yo creo que el miedo de la gente a actualizar es mas por el tema .. mm.. a ver como lo explico..el tema es que la gente "comun" (que no trabaja todo el tiempo en computadores como nosotros o la mayopria de aca) se pierde muy facilmente con las nuevas versiones de windows y eso hace que se vuelva mas lento y engorroso el trabajo que se realiza rapido y expedito con Windows XP, ya que la mayoria (o los mas jovenes) aprendieron a usar un computador con Windows XP ya instalado.

Ahora si van haber muchos problemas de seguridad proque como es obvio, ahora quienes se dedican a explotar las vulnerabilidades de estos sistemas las tendran mas facil ya que no tendran que actualizar el malware cada vez que salga una actualizacion para el OS afectado.

Lo que si me preocupa en verdad son los "sistemas de seguridad" (por favor muy entre comillas xD) que estan basasdo y/o trabajan con Windows XP. Por ejemplo, los cajeros automaticos ahora seran objetivos de muchos ataques informaticos y de manera masiva creo yo. Si estos sistemas no actualizan o cambian a otro sistema, habra un problema muy grande.

Eso, saludos xD