Foro Excel

Hola a toda la comunidad excel acá aporto un aplicativo para que lo utilicen cuando necesiten colocar password a sus trabajos además de ponerles tiempo de caducidad todo en uno, espero les sea de utilidad.

Muchas gracias, buen aporte!

Salu2.xls

Hola:

Por favor, envia de nuevo el archivo para Excel 2003 (.xls).


Gracias

hola, !

bueno !!! te felicito, solo te sugeriria cuidar de dos o tres detalles (p.e.)

- usar con mas mesura la instruccion application.visible=false (podrias dejar instancias abiertas)
- considerar "que pasa si..." el libro se abre sin permiso de usar las macros (o en un nivel de proteccion alto)
- menos imagenes en los formularios (se convierten a *.bmp y resulta un archivo mas pesado de lo necesario)

saludos,
hector.

Bueno a pedido aca esta el archivlo en excel 2003

ESTIMADO AMIGO ME DA MUCHO GUSTO QUE SE ESTEN ELABORANDO ARCHIVOS CON ESTE TIPO DE SEGURIDADES, PERO AL TATAR DE ABRILO Y EJECUTAR LA MACRO ME APARECE UN MENSAJE DE TEXTO QUE DICE: "ERROR DE COMPILACION. NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA" Y ME SEÑALA:
Sheets("DATA").Range("B1") = Date, ESPECIFICAMENTE EN DATE

SI ME PUEDES EXPLICAR EL PORQUÉ O QUE ES LO QUE DEBO HACER PARA EVITARLO?

GRACIAS DE ANTEMANO..

faromanl escribió:ESTIMADO AMIGO ME DA MUCHO GUSTO QUE SE ESTEN ELABORANDO ARCHIVOS CON ESTE TIPO DE SEGURIDADES, PERO AL TATAR DE ABRILO Y EJECUTAR LA MACRO ME APARECE UN MENSAJE DE TEXTO QUE DICE: "ERROR DE COMPILACION. NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA" Y ME SEÑALA:
Sheets("DATA").Range("B1") = Date, ESPECIFICAMENTE EN DATE

SI ME PUEDES EXPLICAR EL PORQUÉ O QUE ES LO QUE DEBO HACER PARA EVITARLO?

GRACIAS DE ANTEMANO..

ME PASALO MISMO ESTOY EN EL PASO DE QUE DEBO TENER UN PROYECTO PARA APLICARLO
HORA YA TENGO EL PROYECTO
COMO LO APLICO AHORA
TENGO MUCHO QUE ESTUDIAR
PERO ESTOY DISPUESTO A CUBRIR ALGUN COSTO PARA APLICARLO
ME ES IMPORTANTE
SALUDOS

enrigula escribió::lol: Hola a toda la comunidad excel acá aporto un aplicativo para que lo utilicen cuando necesiten colocar password a sus trabajos además de ponerles tiempo de caducidad todo en uno, espero les sea de utilidad.

HOLA ME PODRIAS PROPORCIONAR ASESORIA TENGO UN PROYECTO AL CUAL DESEO AGREGAR UNA PROTECCION SI HAY ALGUN COSTO PODRIAMOS COMENTARLO
SALUDOS

faromanl escribió:ESTIMADO AMIGO ME DA MUCHO GUSTO QUE SE ESTEN ELABORANDO ARCHIVOS CON ESTE TIPO DE SEGURIDADES, PERO AL TATAR DE ABRILO Y EJECUTAR LA MACRO ME APARECE UN MENSAJE DE TEXTO QUE DICE: "ERROR DE COMPILACION. NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA" Y ME SEÑALA:
Sheets("DATA").Range("B1") = Date, ESPECIFICAMENTE EN DATE

SI ME PUEDES EXPLICAR EL PORQUÉ O QUE ES LO QUE DEBO HACER PARA EVITARLO?

GRACIAS DE ANTEMANO..

hola, !

1) (hasta donde se) cuando un codigo indica como causa de error a funciones basicas de vba
se debe a referencias perdidas y/o nombres "ambiguos" (o duplicados) que vba no puede resolver

2) en donde falla, comprueba si en el proyecto de macros hay referencias "perdidas" a librerias/bibliotecas
desde el editor de vba (menu) herramientas / referencias...
-> busca alguna que diga FALTA: xxx o MISSING: xxx

3) si se trata de alguna de las normales, pudiera ser necesario (re)registrar excel (registro de windows)
-> desde el boton inicio -> ejecutar -> excel /regserver
(es probable que debas especificar la ruta completa al excel delimitada por comillas dobles)
(p.e.) "c:\archivos de programa\microsoft office\office\excel.exe" /regserver

para la version 2007, es necesario ejecutar una (re)instalacion desde el panel de control de windows:
(agregar / quitar programas) con la opcion de "reparar"

4) otra (posible) causa del error es, si al simplemente iniciar excel NO aparece el (normal) libro1 en blanco
pudiera tratarse de algun virus que se "auto-carga" desde algun directorio de inicio (xlstart ???)

comentas (si hubiera) algun detalle adicional ?
saludos,
hector.

Amigo Enrigula, debes perdonar mi novatada, pero no pones en ningún sitio la contraseña del usuario 01 ni del usuario 02, seguramente sea equivocación mía, pero ¿serías tan amable de indicarla para ver como permite la entrada?

Por otro lado el programa me parece amigable y atractivo, aunque se puede visualizar el código al provocarlo.

Saludos

enrigula escribió::lol: Hola a toda la comunidad excel acá aporto un aplicativo para que lo utilicen cuando necesiten colocar password a sus trabajos además de ponerles tiempo de caducidad todo en uno, espero les sea de utilidad.

SALUDOS

Ya Instale el código en un desarrollo y al ejecutarse se cumplen todas las características especificas En Tanto a la asignación de usuarios y claves y la caducidad del sistema Etc. el único problema que estoy teniendo es que no se queda abierto el Excel hay que abrirlo de nuevo lo cual genera el mensaje de que ya está abierto el archivo y que si se vuelve a abrir se perderán los cambios

Abría alguna idea para corregir el error o tratar de evitarlo.

envio mas informacion al respecto

TAMBIEN INTENTE CREANDO UN NUEVO LIBRO CON EL NOMBRE DE " DATE " A EFECTOS DE QUE SE QUEDARA ABIERTO EL EXCEL DESPUES DE EJECUTAR EL PASSWORD PERO A LA FECHA SOLO SE ABRE EL OBJETO QUE ES FRMCEDULAS ( QUEDA ABIERTO EL EXCEL PERO NO SE VE )

PUDIERA SER QUE DEBO DE SELECCIONAR EL PROYECTO EN VEZ DEL OBJETO
LO INTENTE PERO SE GENERA UN ERROR DE QUE FALTA EL OBJETO

PASSWORS CODIGO
=================

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If UCase(TextBox1) <> Label3 Then
'pregunta si la clave es correcta
Incorrecto.Show
TextBox1 = Empty
TextBox1.SetFocus
Else
Password.Hide
ECO.Hide
FRMCEDULAS.Show ES EL OBJETO DE EL PROYECTO
End If
End Sub
Sub INICIO()
FRMCEDULAS.Show ES EL OBJETO DE EL PROYECTO
'Dim iRESPUESTA As Integer
'RESPUESTA = MsgBox("¿DESEAS GUARDAR AHORA TU TRABAJO?", vbYesNoCancel)
'If iRESPUESTA = vbYes Then
'Application.Dialogs(xlDialogSaveAs).Show
'End If
End Sub

Private Sub CommandButton2_Click()
Password.Hide
End Sub

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
nomusu = ComboBox1.Value
Cells.Find(What:=nomusu, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fil = ActiveCell.Row
col = ActiveCell.Column
Clave = Cells(fil, col + 1).Value
Label3 = Clave
TextBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Initialize()
numdat = 4
numdat = numdat + 3
For C = 3 To numdat
ComboBox1.AddItem Range("B" & C).Value
Next C
End Sub
Private Sub FRMCEDULAS_activate() ES EL OBJETO DE EL PROYECTO
TextBox1 = Empty
ComboBox1 = Empty
ComboBox1.SetFocus
End Sub


PERMISO CODIGO
================

Private Sub CommandButton1_Click()
PERMISO.Hide
End Sub
Private Sub CommandButton2_Click()
Application.Quit
End Sub
Private Sub UserForm_Initialize()
' Asegura que la hoja esta activada
Sheets("INICIO").Activate
'Aqui se visualiza el resultado
Me.TextBox1.Value = [A3]
End Sub

CODIGO DE FARCEDULAS
=====================

Private Sub COMMANDBUTTON196_CLICK()
Sheets("DOCTOS").Visible = True
Application.Goto REFERENCE:="AYUDA"


INICIO DEL SISTEMA
=================

Sub INICIO()
FRMCEDULAS.Show
'Dim iRESPUESTA As Integer
'RESPUESTA = MsgBox("¿DESEAS GUARDAR AHORA TU TRABAJO?", vbYesNoCancel)
'If iRESPUESTA = vbYes Then
'Application.Dialogs(xlDialogSaveAs).Show
'End If
End Sub