Modificar y visualizar hoja según macro

Buenos días.
Deseo crear un macro que me reconozca el usuario y su contraseña cada usuario debe tener una función :
1º usuario.- Ver todo y modificar todo
2º usuario.- Ver solo una hoja y modificar esa hoja
3º usuario.- Solo ver dos hojas no puede cambiar nada.
Agradeceré si me pueden ayudar.
Jean P.

1 Respuesta

Respuesta
1
¿Qué version de excel utilizas?, ¿2007?
XP... te paso lo que tiene el archivo hasta el momento.
Private Sub CommandButton1_Click()
On Error GoTo Errorusuario
Dim strClave$
strClave$ = Application.WorksheetFunction.VLookup(TextBox1, Worksheets("Hoja4").Range("A2:B4"), 2)
If TextBox2 <> strClave$ Then
MsgBox "Usuario y/o clave incorrecta", vbOKOnly, "ERROR"
TextBox1 = ""
TextBox2 = ""
Exit Sub
End If
Application.Visible = True
If TextBox1 = "a" Then
ActiveWorkbook.Unprotect
Worksheets("Hoja2").Unprotect
Worksheets("Hoja3").Unprotect
Worksheets("Hoja2").Visible = True
Worksheets("Hoja3").Visible = True
Unload UserForm1
Exit Sub
End If
ActiveWorkbook.Unprotect
Worksheets("Hoja2").Unprotect
Worksheets("Hoja3").Unprotect
Worksheets("Hoja2").Visible = True
Worksheets("Hoja3").Visible = True
Worksheets("Hoja2").Protect
Worksheets("Hoja3").Protect
ActiveWorkbook.Protect
Unload UserForm1
Exit Sub
Errorusuario:
MsgBox "Usuario y/o clave incorrecta", vbOKOnly, "ERROR"
TextBox1 = ""
TextBox2 = ""
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Worksheets("Hoja2").Visible = xlVeryHidden
Worksheets("Hoja3").Visible = xlVeryHidden
Worksheets("Hoja2").Protect
Worksheets("Hoja3").Protect
ActiveWorkbook.Protect
End Sub
El código para excel 2007 seria:
En versiones anteriores no te puedo ayudar, pero te puede servir de referencia, no creo que varíe mucho. El botón se llama imprimir, pero da igual. Las hojas visibles o la protección de las hojas las tendrías que poner a voluntad, esta pensado para un usuario y clave alfanumérico.
Private Sub cmdImprimir_Click()
pass = False
If IsNumeric(TextBox1.Text) = False And IsNumeric(TextBox2.Text) = False Then
Select Case CStr(TextBox1.Text)
Case "uno"
If TextBox2.Text = "uno" Then
pass = True
Hoja10.Visible = xlSheetVeryHidden
Hoja9.Visible = xlSheetVeryHidden
Hoja8.Visible = xlSheetVeryHidden
Hoja7.Visible = xlSheetVeryHidden
Hoja6.Visible = xlSheetVeryHidden
Hoja5.Visible = xlSheetVeryHidden
Hoja2.Protect "passtemporal", contents:=True, Scenarios:=True
End If
Case "dos"
If TextBox2.Text = "dos" Then
pass = True
Hoja10.Visible = xlSheetVeryHidden
Hoja9.Visible = xlSheetVeryHidden
Hoja8.Visible = xlSheetVeryHidden
Hoja7.Visible = xlSheetVeryHidden
Hoja6.Visible = xlSheetVeryHidden
Hoja5.Visible = xlSheetVeryHidden
Hoja2.Protect "passtemporal", contents:=True, Scenarios:=True
End If
Case "tres"
If TextBox2.Text = "tres" Then
pass = True
Hoja10.Visible = xlSheetVeryHidden
Hoja9.Visible = xlSheetVeryHidden
Hoja8.Visible = xlSheetVeryHidden
Hoja7.Visible = xlSheetVeryHidden
Hoja6.Visible = xlSheetVeryHidden
Hoja5.Visible = xlSheetVeryHidden
Hoja2.Protect "passtemporal", contents:=True, Scenarios:=True
End If
Case Else
pass = False
End Select
End If
If pass = True Then
UserForm1.Hide
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formulario Usuario y Contraseña Excel 2010

De nuevo vuelvo a tener una duda. Estoy generando un fichero excel para el control de unos proyectos, y quería agregarle una restricción de uso, es decir, que sólo lo puedan utilizar aquellas personas que tengan un usuario y clave que yo les...
2 respuestas

¿Textbox No suma Decimales?

Hla, tengo un formulario con 4 textbox alineados en dos columnas de dos textbox c/u y un botón entre ellos, o que hace mi formulario es esto: Escribo un Valor en el Textbox1, presiono el botón que esta entre los dos textbox, el botón busca ese valor...
3 respuestas

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Macros para Limpiar Celdas especificas en diferentes hojas de excel

Ante todo un gran saludo a todos ustedes expertos, por la gran ayuda que nos brindan. Hiendo a mi pregunta, ¿Podría ser mas simple el código de mi macros para el limpiado de celdas en diferentes hojas; mi libro cuenta con 30 hojas... Le adjunto la...
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Ver solo una hoja de un libro

Tengo un libro de varias hojas. La primera de ellas es un indice con hipervincuulos a otras hojas Lo que quiero preguntarte es como hacer que la primera de ellas esté siempre visible y las demás solo aquella a la que apunte el hiervinculo. Un ejemplo...
1 respuesta

Macro de usuario y contraseña

Necesito un favorsote. Lo que pasa es que quiero una macro donde al introducir su nombre de usuario y contraseña les de acceso al libro de excel. Me gustaría que esta ontraseñas estuvieran en una hoja de excel y saber cuando entro uno de ellos. ¿Se puede?
2 respuestas

Como cambiar esta parte del código

Amigo esperto melodiando por aqui tambien logre encontrar este ejemplo para usar un formulario con usuario y clave En el ThisWorkbook utilizo esto según el ejemplo que aparece en este página de todoexpertos Private Sub Workbook_Open()...
1 respuesta