LibroCompartido

hola, Angelo !

Tengo un codigo para dar formato a unas celdas, en una hoja protegida y compartida
como hago para ejecutarlo desprotegiendo el Libro compartido y volviendolo a compartir y proteger?
Ademas cuando entro al archivo me pide password de libro compartido, esto no me sucedia al activar este codigo,

[hasta donde se]... por lo tocante a los libros 'compartidos'...
1) te sugiero consultar la ayuda en linea {F1} por este tema: -> limitaciones de los libros compartidos
[aunque] te 'anticipo' que dentro de las limitaciones que aplican a los libros compartidos..
por su misma carcteristica de 'compartido'... hay 'cosas que no hacen' en 'tiempo de ejecucion'
2) [p.e.] en un libro compartido NO se puede...
a) crear tablas[t/dinamicas] nuevas... -> agregar hipervinculos... -> des/re/proteger hojas de calculo... [etc.]
b) por lo que 'toca' a las macros 'existentes' [al momento de compartirlo]... continuan 'operables'
[hasta que 'tocan' alguna/s de las opciones 'prohibidas'] :(
3) el acceso al proyecto de macros [vba]... NO esta 'permitido' :((
[a menos que lo quites de 'compartido', con lo cual...]
4) al 'descompartir' el libro ->automaticamente<- SE PIERDE el historial de cambios :(((
[excel 'tiene sus razones' para ambas restricciones] ;)
5) una [posible] 'solucion' seria manejar las macros en libro 'aparte' [p.e. un complemento]
[con sus 'consabidas restricciones' en cuanto a las acciones 'no permitidas' NI por macros]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Sub Prueba()
ActiveWorkbook.UnprotectSharing "angelo"
Worksheets("Hoja1").Unprotect _
Password:="123"
Range("D6:D13").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Times New Roman"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D6").Select
Worksheets("Hoja1").Protect _
Password:="123", _
UserInterfaceOnly:=True
ActiveWorkbook.ProtectSharing "angelo"
End Sub