Hola a todos Gracias por sus aportes y comentarios, y a los administraadores de esta página. Solicito ayuda por favor Tengo el siguiente código que después de encriptar el serial del disco del computador, "quisiera que me permitiera", cerrar la página de BIENVENIDA, la oculte, y abra las otras hojas, que están ocultas. Pero despues de darle click al commandbutton del formulario respectivo, se queda como en un bucle y no hace absolutamente nada. Private Sub CommandButton1_Click() Application.ScreenUpdating = False ' Ocultar el procedimiento xa que no se vea la ejecucion de la macro If Trim(txtSerial.Text) = "" Then MsgBox "Ingrese la clave suministrada por su Proveedor", vbCritical, "Error" Unload frmSerial Else If Trim(txtSerial.Text) <> Trim(Sheets("xxx").Range("A2").Value) Then MsgBox "La clave ingresada es incorrecta", vbCritical, "Error" 'guardo uno 0 (cero) para saber que han fallado: Sheets("xxx").Range("a3").Value = 0 Else 'luego de eso es conveniente colocar un "Control" para 'avisarle a excel que el libro fué desbloqueado correctamente 'ese Control será leído cada vez que se abra el libro: ("xxx") Sheets("xxx").Range("A3").Value = 1 ' XXXXXXXXXXXXXXXXXXXXXXXXXXXX ' Aviso de Bienvenida al Programa If TextBox1.Value = "" Then MsgBox "Debe digitar el nombre de la empresa primero. . . " & _ vbNewLine & _ vbNewLine & " ", vbInformation Else If Range("CIA").Value <> "" Then VarRespuesta = MsgBox("Son las " & Time & " Tiempo de Reflexionar. " & " El Programa ha sido Registrado Correctamente ? ? ?. ", vbInformation + vbYesNo, " VISUAL TOURS WELCOME") If Time TimeValue("12:00:00") And Time = TimeValue("18:30:00") Then MsgBox "Vuelva a llamar el Formulario. Buenas Noches!!! ", vbInformation, " VISUAL TOURS WELCOME" Else If VarRespuesta = vbYes Then Range("CIA").Value = TextBox1 Range("NIT").Value = TextBox2 ' XXXXXXXXXXXXXXXXXXXXXXXXXXXX Sheets("BIENVENIDA").Visible = False Sheets("BUSCAR").Visible = True Sheets("BUSCAR").Select Hoja1.Visible = True Hoja2.Visible = True Hoja3.Visible = True Hoja4.Visible = True Hoja5.Visible = True End If End If End If End If End If ActiveWorkbook.Save End Sub Gracias a todos nuevamente por sus aportes

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

ENCRIPTAR

Autor del tema JAVISHALOM
Fecha de inicio 7 Feb 2012

JAVISHALOM

New member

7 Feb 2012

Hola a todos

Gracias por sus aportes y comentarios, y a los administraadores de esta página. Solicito ayuda por favor
Tengo el siguiente código que después de encriptar el serial del disco del...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Como crear un formulario de contraseña y encriptar la contraseña

Respuestas: 4

27 Jun 2024

DanyAlex

Pregunta

Encriptar

Respuestas: 3

2 Dic 2023

Abraham.Valencia

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba