Red de conocimiento informático - Material del sitio web - En EXCEL, necesita un código Pu VBA de trabajo sobre el suicidio en un día determinado.

En EXCEL, necesita un código Pu VBA de trabajo sobre el suicidio en un día determinado.

Private Sub Workbook_Open()

Contador tenue As Long, término As Long, chk

chk = GetSetting("hhh", "presupuesto", "número de usos", "")

Si chk = "" Entonces

term = 50 'Limitar el uso a 50 veces

MsgBox "Este libro solo se puede utilizar " amp; "veces" amp; vbCrLf amp; "¡Los tiempos excedidos se destruirán automáticamente!", vbExclamation

SaveSetting "hhh", "presupuesto", "número de veces utilizado", término

Else

counter = Val(chk) - 1

MsgBox "Solo puedes usar este libro" amp counter amp "veces, ¡regístrate a tiempo!", vbExclamation

Guardar configuración "hhh", "presupuesto", "tiempos utilizados", contador

Si el contador lt;= 0 Entonces

Eliminar configuración "hhh", "presupuesto", "veces utilizados"

killme

Fin si

End Sub

Sub público killme( )

Application.DisplayAlerts = False

ActiveWorkbook.ChangeFileAccess xlReadOnly

Eliminar ActiveWorkbook.FullName

ThisWorkbook.Close False

End Sub

Código fuente como referencia. Función de tiempo ahora (), la fecha especificada es #2011-12-31#, espero que puedas modificar el programa tú mismo.

Esto último no debería ser posible porque el código de macro aún no se ha ejecutado cuando se ingresa la contraseña.