una nueva consulta

28/01/2009 - 02:38 por LUIS DANNY SALAS | Informe spam
En mi libro las hojas deben estar protegidas con contraseña cuando el
usuario lo utiliza, por lo tanto no puede si quisiera insertar algún
comentario en una celda, pero seria útil que el usuario pudiera hacerlo, me
gustaría ponerle un botón que al presionarlo el usuario le permita insertar
un comentario en cualquier celda pero sin tener que desproteger la hoja.

tengo esto:

Sub comentario()
Range("D6").AddComment -quisiera que fuera la celda en la que el
usuario quiere poner el comentario(celda activa)
Range("D6").Comment.Visible = false
Range("D6").Comment.Text Text:="usuario:" & Chr(10) & "texto del
comentario"

End Sub


no veo problema en indicarle al código la instrucción de desproteger la hoja
y luego volverla a proteger, pero no sé como introducirle talvez por medio
de un user form, la opción de que el usuario escriba el texto del
comentario, además necesito que la macro ponga el comentario en la celda
activa.
muchas gracias.
 

Leer las respuestas

#1 LUIS DANNY SALAS
28/01/2009 - 05:39 | Informe spam
Genial!! como siempre...
sin palabras !
Gracias.

"Héctor Miguel" escribió en el mensaje
news:Oq$i%
hola, Luis !

... hojas... protegidas con contrasena... el usuario... no puede si
quisiera insertar algun comentario en una celda
... seria util que... pudiera hacerlo... ponerle un boton que... le
permita insertar un comentario en cualquier celda ...
... pero no se como introducirle... la opcion de que... escriba el texto
del comentario
ademas necesito que la macro ponga el comentario en la celda activa.



prueba con una macro +/- como la siguiente (ajusta la contrasena a la
real)

Sub Insertar_Modificar_Comentario_CeldaActiva()
Dim Texto As String, Mostrar As Boolean
Texto = Trim(InputBox("Indica el texto para el comentario en " & _
ActiveCell.Address, "Paso 1/2"))
If Len(Texto) = 0 Then Exit Sub
Mostrar = MsgBox("Deseas que el comentario quede visible ?", _
vbYesNo + vbQuestion, "Paso 2/2") = vbYes
ActiveSheet.Unprotect "aBc"
With ActiveCell
If .Comment Is Nothing Then .AddComment ""
.Comment.Shape.TextFrame.Characters.Text = Texto
.Comment.Visible = Mostrar
End With
ActiveSheet.Protect "aBc"
End Sub

saludos,
hector.

Preguntas similares