Archivo de excel compartido
Hola Experto, tengo un archivo de excel echo en 2003, este archivo lo debo compartir con más usuarios de la red. El punto es que necesito que los usuarios puedan ver el contenido del archivo pero no lo modifiquen, había pensado hacerlo por herramientas proteger, pero tengo muchas hojas y estar bloqueando y desbloqueandolas se me hace muy complicado. Habrá alguna manera en la cual pueda hacer que un usuario en especial si lo pueda modificar, ¿pero los otros no?
Gracias
Gracias
1 Respuesta
Respuesta de angelcrisnor
1
Esta macro de más abajo sencilla protegerá todas las hojas del libro a todos los usuarios salvo a "PEPE", y deberás llamarla desde el Auto_open().
Mi amigo Jesús, que me ha echado una manita, y yo esperamos que te sirva.
Saludos
Angel
PD: Con la ayuda de mi compadre Jesús.
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub ProtegeLibro()
'
UsuarioMaestro="PEPE"
'
For i = 1 To Sheets.Count()
If Application.UserName = UsuarioMaestro Then
Sheets(i).Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Else
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
'
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub auto_open()
ProtegeLibro
End Sub
Mi amigo Jesús, que me ha echado una manita, y yo esperamos que te sirva.
Saludos
Angel
PD: Con la ayuda de mi compadre Jesús.
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub ProtegeLibro()
'
UsuarioMaestro="PEPE"
'
For i = 1 To Sheets.Count()
If Application.UserName = UsuarioMaestro Then
Sheets(i).Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Else
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
'
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub auto_open()
ProtegeLibro
End Sub
