Excel

Solo disponible en BuenasTareas
  • Páginas : 3 (728 palabras )
  • Descarga(s) : 7
  • Publicado : 23 de agosto de 2010
Leer documento completo
Vista previa del texto
Podrias hacerlo con macros

Este es un ejemplo que fácilmente puedes adaptar a tu libro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Hoja1.Activate
Hoja1.SelectHoja1.Range("A1").Select 'Estas 3 instrucciones evitan error en el método Unprotect del objeto Sheet
Hoja1.Unprotect "Password"
Columns("A:IV").Select 'Selecciona toda la hoja
Selection.Locked = True 'BloqueaTodas las celdas nuevamente, necesario si abren el libro con macros deshabilitados
Hoja1.Protect "Password" 'protege nuevamente la hoja para que el bloqueo tenga efecto
End Sub

Private SubWorkbook_Open()
Usuario = InputBox("Entre su nombre de usuario", "Usuario") 'Pide un Nombre de Usuario
'Hoja1 seria la hoja de interes
Hoja1.Activate
Hoja1.Select
Hoja1.Range("A1").Select 'Estas 3instrucciones evitan error en el método Unprotect del objeto Sheet
Hoja1.Unprotect "Password" 'El password puede ser general para toda la hoja
Columns("A:IV").Select 'Selecciona toda la hojaSelection.Locked = True 'Bloquea Todas las celdas
Select Case Usuario 'Esta parte desbloquea ciertas columnas según el usuario
Case "Pedro"
Columns("A:B").Select 'Selecciona las columnas A y BSelection.Locked = False 'Desbloquea estas Columnas
Columns("F:G").Select 'Selecciona las columnas F y G
Selection.Locked = False 'Desbloquea estas Columnas
Case "Juan"
Columns("C:C").Select'Selecciona las columna C
Selection.Locked = False 'Desbloquea esta Columnas
Columns("H:H").Select 'Selecciona la columna H
Selection.Locked = False 'Desbloquea estas Columnas
'Sucesivamentepuedes incluir más instrucciones case segun el numero de usuarios
End Select
Hoja1.Activate
Hoja1.Select
Hoja1.Range("A1").Select 'Estas 3 instrucciones evitan error en el método Protect delobjeto Sheet
Hoja1.Protect "Password" 'protege nuevamente la hoja para que el bloqueo tenga efecto
End Sub

Si no funciona escribe de nuevo |
21/09/2004 Usuario | Buenos dias,
Tengo un...
tracking img