Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Macro al Arranque de Excel

Excel - Macro al Arranque de Excel

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 11
Ha aumentado su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

Macro al Arranque de Excel

Publicado por Alfredo (2 intervenciones) el 13/12/2022 19:59:56
Estoy buscando si alguien tiene una macro para excel que al abrirse se ejecute y cheque el numero de serie del disco duro y si es igual al almacenado en la macro, se abra excel y sino se cierre

de antemano gracias
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: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro al Arranque de Excel

Publicado por Antoni Masana (2480 intervenciones) el 21/12/2022 22:11:58
Eso tiene la misma seguridad que un candado con un solo número.
Desactivas las macros, abres el libro y se acabo la protección.

Ejemplo para leer el número de :

1
2
3
4
5
6
7
8
9
10
11
ub AveriguarNumeroDeSerieDeDiscos()
    Dim oWMI As Object, Discos As Object, Disco As Object
    Set oWMI = GetObject("WINMGMTS:")
    Set Discos = oWMI.instancesof("Win32_PhysicalMedia")
    For Each Disco In Discos
        MsgBox "Serie: " & Disco.serialnumber
    Next
    Set Disco = Nothing
    Set Discos = Nothing
    Set oWMI = Nothing
End Sub

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