Mejorar una macro que encontré para poderla implementar en mi archivo de excel
Dante Amor
¿Me podrías mejorar la siguiente macro según mis requerimientos?
Gracias, aquí te la envío
Sub Macro1()
'
Dim FileWsh As Object
Set FileWsh = CreateObject("Scripting.FileSystemObject")
MiVolumen = Hex$( _
FileWsh.Drives("C").SerialNumber)
Select Case MiVolumen
Case "FC3C0246", "3297E471", "3090801F", "0ED20881", "E447E187"
MsgBox "Computador Autorizado" favor centrar esta frase en el msgBox y luego dar doble espacio hacia abajo para poner la siguiente grase centrada:
"Gracias por utilizar Software Legal"
Case Else: ActiveWorkbook.Close False **
En caso que intenten abrir el archivo en un computador con diferente numero de Serie, que el archivo inmediatamente se borre
End Select
Set FileWsh = Nothing
'
End Sub
1 respuesta
H o l a:
Te anexo la macro actualizada:
Sub Macro1()
'Act.Por.Dante Amor
Dim FileWsh As Object
Set FileWsh = CreateObject("Scripting.FileSystemObject")
MiVolumen = Hex$(FileWsh.Drives("C").SerialNumber)
Select Case MiVolumen
Case "FC3C0246", "3297E471", "3090801F", "0ED20881", "E447E187"
MsgBox " Computador Autorizado" & vbCr & vbCr & _
"Gracias por utilizar Software Legal", , ""
Case Else
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Select
Set FileWsh = Nothing
End SubProcura realizar una copia antes de la prueba ya que te eliminará el archivo.
Hola Dante
Cuando abrí el archivo para pobrarlo me salió que se habían deshabilitado las macros
¿Hay forma de forzar a que al abrir el archivo se habiliten las macros para que así sin necesidad de darle click en habilitar macros la macro se ejecute al abrir el archivo?
No hay forma de que se habiliten las macros.
Lo que se puede hacer es ocultar todas las hojas y dejar solamente una hoja visible, de esa forma obligarás a la persona que abre el archivo a habilitar las macro y entonces se ejecutará la validación.
Habilita las macros para que realices la prueba.
S a l u d o s
