una nueva consulta

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.