En este grupo En todos

Foro de Excel



Vencimiento de archivos

Junior
Distrito Federal, Ar...
Escrito por Junior Moreno
el 27/06/2008

Buenas tardes.

Existe alguna macro para que al dejar de colocar una clave este se borre automaticamente o se borren los datos.

Muchas gracias.


Escrito por St7
el 28/06/2008

Junior:te propongo 2 maneras

  1. sin formualrio
  2. con formulario

1. -sin formulario:

En ThisWorkBook en el editor de visual basic copia/pega:

Private Sub Workbook_Open()
    "valida_Fecha
End Sub

Ahora en un módulo estandar copia/pega:

Sub valida_Fecha()
If Date = #6/27/2008# Then "si la fecha actual es el 27/06/2008
    Hoja1.UsedRange.ClearContents "borra todos los datos de la hoja1
    MsgBox "Fecha vencida -- Datos borrados" "y emite un mensaje
End If
End Sub

2. -Con Formulario:

Necesitaras incrustar en el form:

  • una etiqueta o label. -con el captión= "Ingrese su clave:"
  • una caja de texto ó Textbox con la propiedad "passworchar" = * `para que muestre puros asteriscos al momento de ingresar la calve de acceso para poder trabajar en el archivo
  • un botón de comando o CommandButton con el caption de tu elección :-)

En el evnto click del boton de comando copia/pega lo sig:

Private Sub CommandButton1_Click()
    If TextBox1 = "ST" Then "si la clave es la esperada
        cerrar "cierra el form para poder trabajar
    Else "si no
        Hoja1.UsedRange.ClearContents "borra los datos
        MsgBox "Usuario no autorizado" & _
        Chr(13) & "Archivo Invalidado" " emite un mensaje
        cerrar "y quita el form
    End If
End Sub

Aprovecha para copiar pegar las macros siguientes:


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True "evitara que cierren el form con el boton "X" del mismo :-)
End Sub

Sub cerrar() "quita el form
    Unload UserForm1: UserForm1. Hide
End Sub

Por ultimo en ThisworkBook copia/pega:

Private Sub Workbook_Open()
    UserForm1. Show "muestra el form al abrirse el archivo
End Sub

Listo,ahora solo te faltaria para que este 2º ejemplo sea completamente funcional ,el obligar a los usuarios a que habiliten "macros" ,ya que de otra manera bastaria con ingresar con las macros deshabilitadas para ver/copia/manipular la información del archivo.

Como esto ultimo no es tema de tu consulta :-) lo dare por entendido a menos que preguntes al respecto.

Por cierto en mi opinió la 1ª es mas rapida de implementar y completamente funcional,por supuesto mi preferida

Salu2

Junior Moreno
Distrito Federal, Ar...
Escrito por Junior Moreno
el 30/06/2008
Gracias Hermano.
Junior Moreno
Distrito Federal, Ar...
Escrito por Junior Moreno
el 30/06/2008

Hermano

Me esta generando la macro.

Error de copilacion sera que me puedes ayudar?


Escrito por St7
el 09/07/2008

¿Cual de los 2 ejemplos te genera el error?

Puedes mencionar la parte de codigo donde se genera el error (normalmente se marca con amarillo,cuando das cilick en el boton "depurar")

Para rapido revisa la sintaxis o copia/pega de nuevo y ejecuta (en el caso del formulario debes asegurarte de tener todos los controles del ejemplo  ;-)

Otra opción es pulsar en el botón "ayuda" y leer con cuidado lo que te oferta excel como posible solución

Zipped
Bogotá, Colombia
Escrito por Zipped
el 29/09/2008
" ¿Cual de los 2 ejemplos te genera el error?
puedes mencionar la parte de codigo donde se genera el error (normalmente se marca con amarillo,cuando das cilick en el boton "depurar")
para rapido revisa la sintaxis o copia/pega de nuevo y ejecuta (en el caso del formulario debes asegurarte de tener todos los controles del ejemplo  ;-)
otra opción es pulsar en el botón "ayuda" y leer con cuidado lo que te oferta excel como posible solución
"

por ST7 (Julio 2008)


Como podrias obligar a usar macros?