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, Técnico informático
Categoría: Informática
Clientes satisfechos: 37
Experiencia: profesional en formación
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.

Opiniones de nuestros clientes:

 
 
 
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Gracias! Servicio excelente. Me ha gustado trabajar con los Expertos. Éxito y gracias. Estefanía Chile
  • Muy agradecida. Si lo necesito volveré a utilizar el site. Mari Ramírez San Juan, Puerto Rico
  • El tiempo de respuesta es excepcional, de menos de 6 minutos. La pregunta se respondió con profesionalidad y con un alto grado de compasión. Inés Santander
  • Quedé muy satisfecho con la rapidez y la calidad de los consejos que recibí. Me gustaría añadir que puse en práctica los consejos y que funcionaron la primera vez y siguen haciéndolo. Luis Málaga
  • Es un servicio fantástico y M. Castillo me ayudó muchísimo y me proporcionó algunos sitios web y herramientas estupendos que me permitieron ampliar mis conocimientos sobre la pregunta. ¡Muchas gracias! Esther Sevilla
  • Un servicio estupendo: rápido, eficiente y preciso. ¿Qué más se puede pedir? No tengo palabras para agradecer su ayuda. María Barcelona
 
 
 

Conozca a los expertos:

 
 
 
  • Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.es/uploads/JE/jesemo/2012-2-26_21847_yocarnet.64x64.jpg Avatar de Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.es/uploads/ES/Estigia/2011-10-18_211225_VMNB.64x64.JPG Avatar de Estigia

    Estigia

    Ing. en Electrónica

    Clientes satisfechos:

    1009
    Especializado en HW, SW e Infraestructura de Redes.
  • http://ww2.justanswer.es/uploads/AR/arcangelus/2012-1-3_2523_Jluis.64x64.jpg Avatar de arcangelus

    arcangelus

    Ing. en Sistemas

    Clientes satisfechos:

    428
    Más de 20 años de experiencia en Informatica
  • http://ww2.justanswer.es/uploads/RR/rrubidio/2015-3-16_19381_arnetnuevo.64x64.jpeg Avatar de Rubén Díaz

    Rubén Díaz

    Técnico en computación, informática

    Clientes satisfechos:

    381
    Más de 7 años de experiencia en soporte informático in-situ y remoto, con conocimientos en equipos Windows, Mac, Smartphone y periféricos.
  • http://ww2.justanswer.es/uploads/AL/Albertillo/2012-10-29_21350_newtshirthe.64x64.jpg Avatar de Albertillo

    Albertillo

    Ingeniero Superior en Informática

    Clientes satisfechos:

    23
    Último curso de carrera
  • http://ww2.justanswer.es/uploads/RA/ratonxi/2012-1-3_151146_1.64x64.png Avatar de ratonxi

    ratonxi

    Licenciatura

    Clientes satisfechos:

    13
    Licenciado en Física, expecialidad física computacional.