Discussion :

[Sami Xite]

Bonjour,

J'aimerais bloquer/empêcher la création de commentaires sur un classeur Excel
Existe t il un moyen d'arriver à mes fins ?

Merci d'avance à tous

[QuestVba]

Salut,

Une piste, en XL2003, j'utilise la commande suivante pour désactiver le commentaire (ID:=1589)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1589, Recursive:=True).Enabled = False

[BARMAKI]

Bonjour Sami Xite

Ou tu peux utiliser le menu "Proteger la feuille" et puis selectionner "les cellules deverrouilees" , car normalement pour inserer un commentaire en doit celectionner une cellule.

Cordialement

[78chris]

Bonjour

Salut,

Une piste, en XL2003, j'utilise la commande suivante pour désactiver le commentaire (ID:=1589)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1589, Recursive:=True).Enabled = False

On peut insérer des commentaire par raccourci clavier, par copier collage spécial...

La protection est une bonne méthode mais elle n'est pas toujours souhaitée.

L'insertion de commentaire n'étant pas un événement (sauf erreur de ma part) à part tester la présence d'un commentaire et l'effacer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveSheet.Comments.Count
If x = 0 Then Exit Sub
For Each c In ActiveSheet.Comments
    c.Delete
Next
End Sub

Frustrant pour l'utilisateur... un petit message peut être ajouté.

Curiosité : si pas de protection pourquoi interdire les commentaires ?

[QuestVba]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub SansCommentaire()
 
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1589, Recursive:=True).Enabled = False
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=755, Recursive:=True).Enabled = False
Application.OnKey "+{F2}", ""
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub AvecCommentaire()
 
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1589, Recursive:=True).Enabled = True
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=755, Recursive:=True).Enabled = True
Application.OnKey "+{F2}"
 
End Sub