Red de conocimiento informático - Conocimiento informático - Código fuente del álbum de bodas pu

Código fuente del álbum de bodas pu

Private sub-workbook_Open()

El contador tenue tiene la misma longitud, el término tiene la misma longitud, chk

Chk = GetSetting("hhh", "presupuesto", "tiempos de uso" , " etc.).

Si chk = " "Entonces

$ term = 50 'Limitado a 50 usos

MsgBox "Este libro de trabajo solo se puede usar for"; Términos y condiciones. "Menor"; vbCrLf & "¡Los tiempos excedidos se destruirán automáticamente!" ", VB signo de exclamación

Guardar configuración "hhh", "presupuesto", "uso", $term

Otro

contador = Val(chk) - 1

MsgBox "todavía se puede utilizar"; contador amp "¡Regístrese a tiempo! ", signo de exclamación VB

Guardar configuración "hhh", "presupuesto", "uso", contador

Si el contador es lt, entonces = 0

Eliminar configuración " hhh" ”, “Presupuesto”, “Usos”

Mátame

Terminará si…

Terminará si…

EndConnector

Public Sub killme()

Aplicar ShowAlert = False

ChangeFileAccess xlReadOnly

Terminar ActiveWorkbook.

Este libro de trabajo. Cerrar falso

Conector final

Código fuente como referencia. La función de tiempo ahora() especifica la fecha # 2011-12-31 #. prográmelo usted mismo.

Es posible que esto último no sea posible porque el código de macro no se ha ejecutado cuando se ingresa la contraseña.

上篇: Cómo utilizar el afinador de ukelele 下篇: Cómo evaluar el juego web Agar.io

Artículos populares