configuracion de varias macros

Solo consultas sobre Bases de Datos y Tablas Dinámicas Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

configuracion de varias macros

Notapor Gabriela hg » 02 Oct 2018 18:43

Hola buenas tardes!

Espero me puedan ayudar

Tengo la siguientes macros

una es de fecha de caducidad y autodestrucción

Private Sub Workbook_Open()
Dim FechaCaducidad As Date

FechaCaducidad = #10/1/2018#

If FechaCaducidad > Date Then
Else
MsgBox "Lo sentimos, pero este libro de trabajo" & vbCrLf & "ha llegado a su fecha de vencimiento", vbCritical

Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close
End If
End Sub
Sub destruirEsteArchivo()
Dim nombreDeEsteArchivo As String
nombreDeEsteArchivo = ActiveWorkbook.FullName
On Error Resume Next
Application.DisplayAlerts = False
ChangeFileAccess xlReadOnly
Kill nombreDeEsteArchivo
ActiveWorkbook.Close savechanges:=False
On Error GoTo 0
End Sub

y la otra macro es de apetura en un solo equipo

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 <> "-197159059" And Serie <> "-197159059" Then
MsgBox ("Si deseas la activación de este aplicativo en este equipo, contactanos: WhatsApp 55 40 54 36 34 WhatsApp 55 48 77 69 96 programasfiscales@gmail.com softwarecontableyfiscal@gmail.com")
Application.Quit
End If
Set DiscoDuro = Nothing
Set FSO = Nothing

End Sub

Private Sub Workbook_Open2()

' Put your code here

End Sub


Necesito de su ayuda para poder combinarlas y ejecutarlas en un solo archivo

De antemano agradezco su apoyo

:D
Gabriela hg
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9
Registrado: 16 Feb 2018 19:31

Re: configuracion de varias macros

Notapor henry77 » 02 Oct 2018 22:17

Yo tengo la misma duda...
henry77
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 7
Registrado: 02 Oct 2018 22:15


Volver a Bases de Datos y Tablas Dinámicas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados