Option Explicit
Sub INGRESAR()
Dim TransRowRng As Range
Dim NewRow As Integer
Set TransRowRng = ThisWorkbook.Worksheets("REGISTRO").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("REGISTRO")
.Cells(NewRow, 1).Value = Now()
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("G21")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("J1")
End With
'--- Autentico el Usuario y Contraseña
If Sheets("USUARIOS").Range("E5").Value Then
'--- Eligo el caso
' la variable esta representada por lo el dato que tenemos en la
' hoja usuarios en la celda D4. Esta celda muestra el mismo dato
' de la celda usuario en la hoja de inicio.
Select Case Sheets("USUARIOS").Range("D5").Value
Case "TOTAL" ' ---&--- Administrador
Sheets("INICIO").Visible = True
Sheets("USUARIOS").Visible = True
Sheets("INGRESOS").Visible = True
Sheets("DEPOSITO").Visible = True
Sheets("ITEMI").Visible = True
Sheets("ITEMII").Visible = True
Sheets("EMPRESA").Visible = True
Sheets("REGISTRO").Visible = True
Case "NORMAL" ' ---&--- NORMAL
Sheets("INICIO").Visible = True
Sheets("USUARIOS").Visible = False
Sheets("INGRESOS").Visible = True
Sheets("DEPOSITO").Visible = True
Sheets("ITEMI").Visible = True
Sheets("ITEMII").Visible = True
Sheets("EMPRESA").Visible = True
Sheets("REGISTRO").Visible = False
End Select
End If
End Sub