Macro insertar comentarios

[Carlos Angel]

Hola tengo un archivo en el que tengo bastantes formulas y para que no las modifiquen tengo protegida la hoja con un macro, esto me permite trabajar únicamente sobre las celdas que no están protegidas, me permite usar filtros. Lo que no he logrado conseguir es que a pesar de esta condición me permita insertar comentarios en la celdas no bloqueadas, esto es para cuando necesito agregar algún comentario extra a la información que va en la celda. Lamentablemente el tamaño de archivo es bastante grande para poderlo adjuntar pero les comparto el código para ver si me pueden ayudar diciéndome que tengo que agregar para al codigo para que me me permita la accion arriba mencionada.

Saludos

Private Sub Workbook_Open()

With Worksheets("Listado")

.Protect Password:="1602", AllowFiltering:=True, userinterfaceonly:=True, AllowInsertingHyperlinks:=True

.EnableOutlining = True

End With

End Sub

[joshua]

Saludos.

Intenta con la siguiente macro.

Private Sub Workbook_Open()
With Worksheets("Listado")
    .Protect Password:="1602", AllowFiltering:=True, _
    userinterfaceonly:=True, AllowInsertingHyperlinks:=True, _
    DrawingObjects:=False, Contents:=True, Scenarios:=True
    .EnableOutlining = True
End With
End Sub
[/HTML]

Atte.

joshua

[Carlos Angel]

Joshua , mil gracias, es justo lo que necesitaba .

Caso cerrado, solucionado exitosa mente !!!!