formattazione commenti

[matzap]

ciao,
in rete ho trovato questa macro molto utile per la formattazione dei commenti:

Codice: Seleziona tutto

Sub CopiaFormatoCommenti()

        ActiveCell.Comment.Shape.Fill.Transparency = 0#
        ActiveCell.Comment.Shape.Line.Weight = 4.5
      ActiveCell.Comment.Shape.Line.DashStyle = msoLineSolid
        ActiveCell.Comment.Shape.Line.Style = msoLineThickThin
       ActiveCell.Comment.Shape.Line.Transparency = 0#
        ActiveCell.Comment.Shape.Line.Visible = msoTrue
        ActiveCell.Comment.Shape.Line.ForeColor.SchemeColor = 10
        ActiveCell.Comment.Shape.Line.BackColor.RGB = RGB(255, 255, 255)
        ActiveCell.Comment.Shape.Fill.Visible = msoTrue
        ActiveCell.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 255, 255)
        ActiveCell.Comment.Shape.Fill.BackColor.SchemeColor = 80
        ActiveCell.Comment.Shape.Fill.PresetTextured msoTextureWhiteMarble
        ActiveCell.Comment.Shape.Shadow.Type = msoShadow6
       ActiveCell.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
        ActiveCell.Comment.Shape.Adjustments.Item(1) = 0.1707
        ActiveCell.Comment.Shape.Adjustments.Item(1) = 0.1219
        ActiveCell.Comment.Shape.Adjustments.Item(1) = 0#
        ActiveCell.Comment.Shape.Adjustments.Item(1) = 0.1098
        ActiveCell.Comment.Shape.Adjustments.Item(1) = 0.0731
   ActiveCell.Comment.Shape.Placement = xlMoveAndSize
  ActiveCell.Comment.Shape.ControlFormat.PrintObject = True
        ActiveCell.Comment.Shape.Locked = False
        ActiveCell.Comment.Shape.ControlFormat.LockedText = True
        ActiveCell.Comment.Shape.TextFrame.AutoSize = True

End Sub


la cosa interessane è che nonostante il foglio sia protetto, mi fa spostare il commento, quando è visibile, come voglio. il problema è che me lo fa anche cancellare premendo il tasto "canc", e questo vorrei evitarlo.
come posso fare?
ciao

[Flash30005]

la cella deve essere con opzione bloccata spuntata
e quando inserisci la protezione al foglio
di limitare ad altri utenti di poter agire solo sulle celle bloccate e sbloccate
(apposita spunta)

ciiao

[matzap]

Ciao,
anche io ho lo stesso problema e non riesco a risolverlo semplicemente bloccando il foglio.
per impedire la cancellazione devo mettere:

Codice: Seleziona tutto

ActiveCell.Comment.Shape.Locked =true

ma così poi non posso neache spostarlo.
Suggerimenti?
Ciao

[Anthony47]

Anche a me, con Office 2010, i commenti possono essere cancellati da macro anche se la cella e' protetta; deve essere una prestazione....

[matzap]

Ciao Anthony,
oltrre che da macro si cancellano anche selezionandoli e premendo Canc!
non c'è soluzione a questo inconveniente?
buona giornata

[Anthony47]

Se il foglio e' protetto io non ho l'opzione "Cancella commento", a meno che quando ho protetto il foglio non abbia spuntato la voce [Consenti] "Modifica oggetti".

Ciao

[matzap]

Buongiorno Anthony,
probabilmente perché io proteggo i fogli in apertura di workbook:

Codice: Seleziona tutto

Worksheets(I).Unprotect Password:="PSW"
Worksheets(I).Protect Password:="PSW", UserInterFaceOnly:=True

per proteggere il foglio ma consentire alle macro di lavorare senza dover ogni volta togliere la protezione e poi rimetterla.
Ciao

[Anthony47]

Confermo che il mio XL2010, anche se protetto con UserInterFaceOnly:=True, non consente la rimozione di commenti con comandi manuali.

[matzap]

ma hai impostato

Codice: Seleziona tutto

ActiveCell.Comment.Shape.Locked = False

oppure

Codice: Seleziona tutto

ActiveCell.Comment.Shape.Locked = true

?
perchè
se lo imposto a VERO mi impedisce di cancellarlo ma anche di muoverlo...
cia

[Anthony47]

Io mi ero limitato a proteggere il foglio con Worksheets(I).Protect Password:="PSW", UserInterFaceOnly:=True
In effetti aggiungendo ActiveCell.Comment.Shape.Locked = False il commento diventa cancellabile.

Ciao

[matzap]

esatto è quello che volevo dire.
e come si può fare? i vorrei poterlo spostare ma non concellare.
Ciao

[Anthony47]

Direi che questo e' uno dei casi in cui devi usare Protect e Unprotect, visto che l'uso di UserInterFaceOnly:=True non produce il risultato corretto.

Ciao