Foro Excel

Gracias IWOLLS, estaba justo buscando una solución similar. Dime y se puede darle maximo 3 intentos de ingreso si es usuario registrado? de lo contrario borro todo el contenido del libro excel???, es decir borro todo el libro y lo dejo como si fuera nuevo???.
Me han pedido crear una macro que si el usuario no tiene el permiso de ver el archivo, este archivo se destruya o borre. Es posible crear este tipo de macro???
Tu comentario me será de gran ayuda.

saludos,
Francisco

HBanchieri escribió:Saludos Gali,
PS.: Seria interesante poder ver el archivo con el VBAproyect desbloqueado para poder estudiarlo un poco, por si te animas…

HBanchieri: el arcivo que adjunte no es otra cosa que el archivo desbloqueado. Tuve que acudir a varios recursos, pero ninguno de ellos se trató de software "ad hoc"

http://excelgali.mejorforo.net/

Sigue lo mismo…
Gali, leyendo si comentario torne a bajar el archivo.
La macro no se “dispara” automáticamente, permitiendo visualizar el libro, pero al intentar entran en el Proyecto VBA, BINGO…
Me pide la contraseña, justo lo que me refería en el anterior post.

Debo haberme equivocado de archivo...
a ver ahora:
el codigo incialmente contenido en Thisworkbook, puede verse en en el Modulo Homonimo de clase, que cree, para mostrar
hay varias sentencias que las anule sino torna inacabable el cierre de Excel. Ene l modulo del formulario, solo inhibi algunas sentencias en Userform_Initialize

Omiti el archivo, sin darme cuenta

muy buenas noche cual es el usuario y contraseña para entra a su archivo

Dim iContador As Byte
Private Sub CommandButton1_Click()
If pass.Text = "1234" Then
'Application.Quit
Hoja1.Activate
ElseIf iContador = 3 Then
MsgBox "Máximo de Intentos alcanzado...Adios", vbExclamation, "System"
Application.Quit
Else
MsgBox "contraseña o usuario incorrectos", vbCritical, "System"
iContador = iContador + 1
pass.Text = ""
pass.SetFocus
End If
End Sub
Private Sub CommandButton2_Click()
Application.Quit
End Sub
Private Sub UserForm_initialize()
'Application.EnableCancelKey = xlDisabled
'Application.DisplayAlerts = False
pass.SetFocus
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Boton Bloqueado", vbInformation, "System"
End If
End Sub

el PASW ES 1234 , pero no cierra el formulario ya q falta la linea unload me
y ademas si intentas tres veces se cierra el libro.

Hola galilegali, El archivo adjunto da un error, que no deja ingresar a nada en el vb

el error es este: Unexpected Error (40230).

Espero adjuntes de nuevo el archivo, se ve interesante.



Salu2.xlsx

ANULADO

si podes visualizar el proyecto: exporta los modullos, modulos de formularios etc, abrelos con un editor te encontraras con el codigo que dos post mas arriba subio fervabi22

DISCULPA LA PREGUNTA,

donde tengo que dar de alta el usuario para que reconosca y funcione el programa.....?

Gracias por el aporte que has dejado en este foro.
Algo asi estaba apunto de preguntar , pero

He bajado el archivo Soy un novato.

que debo hacer para poner tu password en mi archivo.
donde debo de poner la contraseña para que me identifique la clave.

Espero do darte mucha molestias de un novato en esto de excel

Saludos

Muy bueno el truco. PREGUNTO

Que hago o mejor dicho, como hago para dar fecha de caducidad al passw?

NO entiendo mucho de esto

If Date < Fechalimite Then PASSW = "FLA"

galileogali escribió:a VER ASI

Hola amigo galileogali

Referente al libro del amigo SWATCAT, no AL TUYO
¿Como hacer o que agregar y en que linea, para que despues de meterle el passw correcto, el libro sea visible?

galileogali, el libro se abre sin que pida algun passw, aun con el ultimo cdigo que posteaste.

Que hago?