Problema con Formulario.

[pinoji]

Hola Foristas. Buenas a todos. Espero estén bien de salud.

Una vez más por acá con dudas.

Primero: En el Formulario (UserForm6) Pretendo insertar los Datos Generales de la Empresa que se imprimirán en las hojas correspondientes. Estos datos se fijarán una primera vez y no “deben” modificarse a no ser que alguno de ellos cambie en algún momento. ¿Cómo puedo mantener los Datos en sus respectivas celdas sin que cambien?

‘Este es el código (inconcluso):
Private Sub BtnGuardar_Click()
                                    'Validar que se ingresen Datos en todos los Campos
If Me.TxtEmpresa.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.TxtEmpresa.ControlTipText), vbInformation, "COLOSSUS"
        Me.TxtEmpresa.SetFocus
        Exit Sub
    ElseIf Me.TxtCodigo.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.TxtCodigo.ControlTipText), vbInformation, "COLOSSUS"
        Me.TxtCodigo.SetFocus
        Exit Sub
    ElseIf Me.TxtReuup.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.TxtReuup.ControlTipText), vbInformation, "COLOSSUS"
        Me.TxtReuup.SetFocus
        Exit Sub
    ElseIf Me.CmbPeriodo.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.CmbPeriodo.ControlTipText), vbInformation, "COLOSSUS"
        Me.CmbPeriodo.SetFocus
        Exit Sub
    ElseIf Me.CmbBanco.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.CmbBanco.ControlTipText), vbInformation, "COLOSSUS"
        Me.CmbBanco.SetFocus
        Exit Sub
    ElseIf Me.TxtNoCuenta.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.TxtNoCuenta.ControlTipText), vbInformation, "COLOSSUS"
        Me.TxtNoCuenta.SetFocus
        Exit Sub
    ElseIf Me.TxtTitular.Text = "" Then
        MsgBox ("Debe completar el campo: " & Me.TxtTitular.ControlTipText), vbInformation, "COLOSSUS"
        Me.TxtTitular.SetFocus
        Exit Sub
    End If
                                     'Boton Agregar  **********************
     Hoja3.Range("B3") = TxtEmpresa.Text
    Hoja3.Range("B2") = CmbPeriodo.Text
    Hoja4.Range("C3") = TxtEmpresa.Text
    Hoja4.Range("C2") = CmbPeriodo.Text
    Hoja5.Range("E5") = CmbPeriodo.Text
    Hoja5.Range("A4") = TxtNoCuenta.Text
    Hoja5.Range("D5") = TxtEmpresa.Text
    Hoja5.Range("B5") = CmbBanco.Text
    Hoja7.Range("B3") = TxtEmpresa.Text
    Hoja7.Range("B2") = CmbPeriodo.Text
 End Sub
Private Sub BtnSalir_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
With CmbPeriodo
.AddItem "2021", 0
.AddItem "2022", 1
.AddItem "2023", 2
.AddItem "2024", 3
.AddItem "2025", 4
.AddItem "2026", 5
.AddItem "2027", 6
.AddItem "2028", 7
.AddItem "2029", 8
.AddItem "2030", 9
.AddItem "2031", 10
.AddItem "2032", 11
.AddItem "2033", 12
.AddItem "2034", 13
.AddItem "2035", 14
.AddItem "2036", 15
.AddItem "2037", 16
.AddItem "2038", 17
.AddItem "2039", 18
.AddItem "2040", 19
End With
With CmbBanco
           .AddItem "BANDEC", 0
           .AddItem "BFI", 1
           .AddItem "BPA", 2
           .AddItem "METROPOLITANO", 3
End With
End Sub

Segundo: en el FrmLogin cuando busco la manera de que los usuarios accedan al Sistema y poniendo los datos correctos me da el siguiente error:

Se ha producido el error "401" en tiempo de ejecución.

No se puede mostrar un Formulario no Modal cuando se muestra un Formulario Modal.

Verdaderamente es la primera vez que veo esa denominación de Formulario Modal y Formulario no Modal.

Option Explicit
Private Sub BtnAceptar_Click()
    Dim fila, final, I As Long
    fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
    final = fila - 1
For I = 16 To final
    If TxtUsuario = Hoja2.Cells(I, 2) And TxtContraseña.Text = Hoja2.Cells(I, 3) Then
        MsgBox "ACCESO PERMITIDO", vbInformation, "COLOSSUS"
        UserForm1.Show
        Exit Sub
    End If
Next I
    MsgBox "Usuario o Contraseña incorrecta", vbCritical, "COLOSSUS"
    TxtUsuario = Empty
    TxtContraseña = Empty
    TxtUsuario.SetFocus
 End Sub

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        TxtContraseña.PasswordChar = ""
    Else
        TxtContraseña.PasswordChar = "*"
    End If
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Cuando introduje la línea de código         UserForm1.Show      fue cuando comenzó el error.

Espero puedan ayudarme.

Gracias de antemano y que tengan un excelente día.

Saludos a Antoni, JSD, Gabriel, Alexander, Xinortiz, y demás foristas.

Un abrazo

Pino