Código para dar acceso a ciertas celdas especificas ligadas con otro código.
Hola que tal buena tarde estoy buscando un código para dar acceso a tres departamentos ya, que dos de ellos capturarían información pero en diferentes celdas y quisiera que mientras un departamento acceda al archivo y capture su información correspondiente, no le permita ingresar información en las celdas del otro departamento y viceversa, tal vez con una variable o algo parecido, el tercer departamento seria para tener acceso a toda la hoja de trabajo para modificar y visualizar pero deseo eso dejo aquí mi código, se los agradecería mucho gracias. En la fila 21 me dice que ahí ingrese un código para dar acceso al personal que desee, pero no se que código va casi no se tanto de visual basic.
Private Sub CommandButton2_Click()
Dim usuario As String
Dim password As Variant
Dim DatoEncontrado
Blog = "Bustillos"
UsuarioExistente = Application.WorksheetFunction.CountIf(Range("D3:D12"), _
Me.txtUsuario.Value)
Set Rango = Range("D3:D12")
If Me.txtUsuario.Value = "" Or Me.txtPassword.Value = "" Then
MsgBox "Por favor introduce usuario y contraseña", vbExclamation, Blog
Me.txtUsuario.SetFocus
ElseIf UsuarioExistente = 0 Then
MsgBox "El usuario '" & Me.txtUsuario & "' no existe", vbExclamation, Blog
ElseIf UsuarioExistente = 1 Then
DatoEncontrado = Rango.Find(What:=Me.txtUsuario.Value, LookAt:=xlWhole, MatchCase:=True).Address
Contrasenia = Range(DatoEncontrado).Offset(0, 1).Value
If CStr(Range(DatoEncontrado).Value) = Me.txtUsuario.Value And Contrasenia = _
Me.txtPassword.Value Then
Range("G2").Value = "Usuario: " & Range(DatoEncontrado).Offset(0, -1).Value
'Aquí va el código para dar acceso a todo lo que el programador decida
Unload Me
Else
MsgBox "La contraseña es inválida", vbExclamation, Blog
End If
End If
End Sub