Contraseña si cumple cierta fecha
Hola que tal .DAM espero te encuentres bien!
Tengo la siguiente situación:
Hoja 1: llamada "HISTORIAL DE TRATAMIENTOS"
Hoja 2: llamada "OPCIONES"
Hoja 2, celda A1 "26/08/2013"
Cuando llegue la fecha que aparece en la celda A1 de la hoja 2 necesito que la hoja 1 se bloquee con un userform que ya diseñé. Podría por favor ayudarme a colocar el código correcto para condicionar la fecha.
En otras palabras: SI la fecha es igual o mayor me pide contraseña.
Private Sub CommandButtonIngresar_Click()
If TextBoxIngresaContraseña.Text = "12345" Then
' entonces cerramos el formulario
Unload Me
MsgBox " CONTRASEÑA CORRECTA" & vbCrLf & "PUEDE EDITAR ESTA HOJA SI LO DESEA..."
' entramos a la hoja que estaba previamente con contraseña
Worksheets("HISTORIAL DE TRATAMIENTOS").Select
'en caso que ingresemos una contraseña incorrecta
Else
'se cierra el formulario y regresamos a la hoja anterior
Unload Me
MsgBox " NO TIENE ACCESO A ESTA HOJA" & vbCrLf & " INGRESE CONTRASEÑA CORRECTA"
Worksheets("REPORTE SEMESTRAL").Select
'UserFormPassword.Show
End If
End Subagradezco su apreciable ayuda!
Saludos y buen día!
1 Respuesta
sí porfavorcito!!
Prueba esto, es lo que te entendí
Private Sub CommandButton1_Click()
If TextBoxIngresaContraseña.Text = "12345" Then
' entonces cerramos el formulario
Unload Me
If Date >= Sheets("OPCIONES").Range("A1") Then
Sheets("HISTORIAL DE TRATAMIENTOS").Protect
Else
MsgBox " CONTRASEÑA CORRECTA" & vbCrLf & "PUEDE EDITAR ESTA HOJA SI LO DESEA..."
' entramos a la hoja que estaba previamente con contraseña
Worksheets("HISTORIAL DE TRATAMIENTOS").Select
End If
'en caso que ingresemos una contraseña incorrecta
Else
'se cierra el formulario y regresamos a la hoja anterior
Unload Me
MsgBox " NO TIENE ACCESO A ESTA HOJA" & vbCrLf & " INGRESE CONTRASEÑA CORRECTA"
Worksheets("REPORTE SEMESTRAL").Select
'UserFormPassword.Show
End If
End Sub
me sale siempre la ventana de protección!
La idea es que se compare la fecha que coloco en celda A1 de la hoja 2 con la fecha real de la computadora... si es menor o igual me ejecute el cuadro de diálogo que pide la contraseña
Espero me haya explicado mejor! :D
Puedes poner un ejemplo de lo que tienes en A1 de la hoja2
Y luego pon la fecha de hoy
Compáralas y dime qué es lo que necesitas
