Hola amigos espero me puedan ayudar, tengo una archivo de excel con macro con el codigo vba protegido con contraseña y con compartir, pero detecte que cuando el usuario usa el administrador de tareas para cerrar a la fuerza el archivo de excel, este se abre como si no le hubiese puesto protección de bloqueo al projecto vba.

La opción más adecuada que encontre fue modificar el registro de windows con CMD, en esta web encontre un buen código:

using command prompt from VBA

Sub x()

Dim Par As String

Par = "dir c:\ /s/p"

Call Shell("C:\WINDOWS\system32\cmd.exe /c " & Par, 1)

End Sub

yo lo he transformado de la siguiente manera

Sub Deshabilitar()

Dim Ubicacion As String

Dim ModifReg As String

Ubicacion = "cd C:\Windows\system32"

ModifReg = "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f "

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & Ubicacion, 1)

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & ModifReg, 1)

End Sub

Sub Habilitar()

Dim Ubicacion As String

Dim ModifReg As String

Ubicacion = "cd C:\Windows\system32"

ModifReg = "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f "

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & Ubicacion, 1)

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & ModifReg, 1)

End Sub

pero no funciona, ojo que escrito manualmente si funciona, doy a inicio cmd iniciar como administrador y pongo el codigo REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f pero lo malo es que quiero que este registro funciones en las pc's de las personas a las que voy a dar el archivo y luego que cierren vuelva a estar habilitado.

El primero dice acceso denegado

MACRO OCULTA ADMIN DE TAREAS v2.zip

hola ejecutalas asi probado funciona

Sub Botón1_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f")

End Sub

Sub Botón2_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f ")

End Sub

[/CODE]

saludos

hola ejecutalas asi probado funciona

Sub Botón1_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f")

End Sub

Sub Botón2_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f ")

End Sub

[/CODE]

saludos

Gracias, pero lo acabo de probar y no funciona.

hijole temo decirte que no se a que se deba pero si funciona probado de nuevo, siento no haberte resuelto

saludos

yo lo hago sin boton, no creo que sea por eso

ultimo intento olvidate de todo esto

Sub x()

Dim Par As String

Par = "dir c:\ /s/p"

Call Shell("C:\WINDOWS\system32\cmd.exe /c " & Par, 1)

End Sub

yo lo he transformado de la siguiente manera

Sub Deshabilitar()

Dim Ubicacion As String

Dim ModifReg As String

Ubicacion = "cd C:\Windows\system32"

ModifReg = "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f "

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & Ubicacion, 1)

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & ModifReg, 1)

End Sub

Sub Habilitar()

Dim Ubicacion As String

Dim ModifReg As String

Ubicacion = "cd C:\Windows\system32"

ModifReg = "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f "

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & Ubicacion, 1)

Call Shell("C:\WINDOWS\system32\cmd.exe /k " & ModifReg, 1)

End Sub

solo essto

Sub Botón1_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f")

End Sub

Sub Botón2_Haga_clic_en()

Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f ")

End Sub[/CODE]

si funciona

el evento en que lo pongas no importa solo que se ejecute

dime con que evento lo vas ejecutar prueba lo que te puse en un boton y veras que si funciona a lo mejor el evento donde lo disparas no esta bien

ya probe con un boton y nada el administrador de tareas sigue habilitado, aca abajo va una imagen.

te subo el arhivo donde lo probe y si funciona probado en otra maquina ojo no lo probe con cuenta de invitado, si no soluciona tu problema siento no poderte ayudar algo pasa, por que el codigo que te paso funciona correctamente ...

prueba.rar

otra cosa si esta activo el administrador de tareas cuando ejecutas shell (no lo oculta para que funcione debe de estar cerrado, a lo mejor es eso) intenta ejecuta la shell despues preciona ctrl alt suprimir y verifica que si se deshabilita el administrador de tareas luego vuelve a ejecutar y veras que se habilita el admnistrador de tareas

te subo el arhivo donde lo probe y si funciona probado en otra maquina ojo no lo probe con cuenta de invitado, si no soluciona tu problema siento no poderte ayudar algo pasa, por que el codigo que te paso funciona correctamente ...

Gracias por la ayuda asesorcperic pero tu archivo no funciona en ninguna de mi dos pc's, las 2 tiene windows 7 ultimate y ya probe con office 2007 y 2010.

Hola siento no haberte podido ayuda a lomejor algun experto te pueda ayudar, aun que sigo insistiendo que si funciona

saludos