Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio.
    Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a Andresxw
Andresxw
Andresxw, Técnico informático
Categoría: Informática
Clientes satisfechos: 37
Experiencia:  profesional en formación
72649566
Escriba su pregunta sobre Informática aquí...
Andresxw está en línea ahora

Necesito saber como hacer que un archivo de excell solo opere

Pregunta del cliente:

Necesito saber como hacer que un archivo de excell solo opere en ciertas maquinas, hasta ahorita he tratado esto, pero siempre me dice que no es mi número de serie de disco duro.

===
2º Abre TU programa, abre el editor de Visual Basic (pulsando ALT+F11), en la parte izquierda de la pantalla (ventana
explorador de proyectos) verás que pone en negrita VBAProject y el nombre de tu hoja, debajo estarán las hojas que componen
tu libro, y al final pondrá el simbolito de excel y ThisWorkbook, haz doble click ahi, y en la ventana de la derecha copia este
código:
Private Sub Workbook_Open()
Dim Serie As String
Dim FSO As Object
Dim DiscoDuro As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
Serie = DiscoDuro.SerialNumber
If Serie "-1370136684" Then
MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA"
Application.Quit
End If
Set DiscoDuro = Nothing
Set FSO = Nothing
End Sub
En la línea que pone If Serie "-1370136684" Then deberás sustituir ese número por el que obtuviste al correr mi hoja en el
equipo. Cierra el editor, graba tu libro (deberás grabarlo como Libro de excel habilitado para macros (xlsm), para las versiones
2007 o 2010, o como Libro de Excel 97-2003 (xls) ) y ya está este libro solo funcionará en ese equipo, en caso contrario excel se
cerrará y no permitirá usarlo.
===
Enviada: hace 3 año.
Categoría: Informática
Experto:  Andresxw escribió hace 3 año.

Soy Andres Molina y le doy la bienvenida a JustAnswer.

 

 

Podría por favor indicarme que versión de excel esta utilizando

Cliente: escribió hace 3 año.

2010

Experto:  Andresxw escribió hace 3 año.
Ingrese este código para conocer el número de serie de su disco duro:


Private Sub Workbook_Open()

Dim Serie As String
Dim FSO As Object 'FileSystemObject
Dim DiscoDuro As Object 'Drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
Serie = DiscoDuro.SerialNumber
MsgBox "EL NUMERO DE SERIE DE ESTE EQUIPO ES: " & Serie, vbInformation
Set DiscoDuro = Nothing
Set FSO = Nothing

End Sub
Andresxw y otros otros especialistas en Informática están preparados para ayudarle
Experto:  Andresxw escribió hace 3 año.
Luego de obtener el numero de su disco ejemplo:NNN-NN-NNNNno le pongas el signo "-" escribe-lo tal cual te aparece después de ejecutar el primer código le envié

Private Sub Workbook_Open()

Dim Serie As String
Dim FSO As Object
Dim DiscoDuro As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
Serie = DiscoDuro.SerialNumber
If Serie "712240472" Then
MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA"
Application.Quit
End If
Set DiscoDuro = Nothing
Set FSO = Nothing

End Sub


Ha espera de tu respuesta para saber si le sirvió mi información
Experto:  Andresxw escribió hace 3 año.

Si desea le envió unas imágenes de como realizar el proceso

 

 

2)

 

 

3)

 

 

 

4)

 

 

5)

 

 

 

6)

 

 

7) Eliminamos el código anterior que era para conseguir el número de disco

 

 

8)Primero lo guarda y luego le da a play

 

 

 

 

 

Experto:  Andresxw escribió hace 3 año.

Por favor no olvide dejar su valoración a la respuesta, porque solamente así se me paga el trabajo realizado, espero su comprensión.

 

Gracias Wink.

 

 

RECUERDE, que después de calificar la respuesta si tiene más preguntas, puede hacerlas sin costo adicional.