Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Protéger un commentaire

Protéger un commentaire

5 réponses
Avatar
Titac
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://cjoint.com/?bzk24uTGPA

Dans la feuille à protéger:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If InputBox("Mot de passe") <> "toto" Then Cancel = True
End Sub

Dans un module standard:

Sub InterditEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commentair es").Enabled
= False
End Sub

Sub RétablitEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commentair es").Enabled
= True
End Sub

Dans ThisWorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RétablitEffacerCommentaires
End Sub

Private Sub Workbook_Open()
InterditEffacerCommentaires
End Sub

Cordialement JB

On 25 jan, 10:01, Titac wrote:
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac


Avatar
Titac

Bonjour,

http://cjoint.com/?bzk24uTGPA

Dans la feuille à protéger:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If InputBox("Mot de passe") <> "toto" Then Cancel = True
End Sub

Dans un module standard:

Sub InterditEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled
= False
End Sub

Sub RétablitEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled
= True
End Sub

Dans ThisWorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RétablitEffacerCommentaires
End Sub

Private Sub Workbook_Open()
InterditEffacerCommentaires
End Sub

Cordialement JB

On 25 jan, 10:01, Titac wrote:
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac


Merci Beaucoup JB


Mais le problème est que dans ce cas précis je n'ai pas de mot de passe
perso car tout le monde ajoute des commentaires et je voudrai ne protéger que
les miens

Salutations Titac


Avatar
JB
http://cjoint.com/?bznbhVwgyD

JB


On 25 jan, 11:53, Titac wrote:





Bonjour,

http://cjoint.com/?bzk24uTGPA

Dans la feuille à protéger:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If InputBox("Mot de passe") <> "toto" Then Cancel = True
End Sub

Dans un module standard:

Sub InterditEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commen tair­es").Enabled
= False
End Sub

Sub RétablitEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commen tair­es").Enabled
= True
End Sub

Dans ThisWorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RétablitEffacerCommentaires
End Sub

Private Sub Workbook_Open()
InterditEffacerCommentaires
End Sub

Cordialement JB

On 25 jan, 10:01, Titac wrote:
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac


Merci Beaucoup JBMais le problème est que dans ce cas précis je n'a i pas de mot de passe
perso car tout le monde ajoute des commentaires et je voudrai ne protég er que

les miens

Salutations Titac- Masquer le texte des messages précédents -- Affich er le texte des messages précédents -




Avatar
JB
Commentaire protégé en suppression et modif.

http://cjoint.com/?bzwS4bkqkh

JB

On 25 jan, 11:53, Titac wrote:





Bonjour,

http://cjoint.com/?bzk24uTGPA

Dans la feuille à protéger:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If InputBox("Mot de passe") <> "toto" Then Cancel = True
End Sub

Dans un module standard:

Sub InterditEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commen tair­es").Enabled
= False
End Sub

Sub RétablitEffacerCommentaires()

CommandBars(1).Controls("Edition").Controls("Effacer").Controls("Commen tair­es").Enabled
= True
End Sub

Dans ThisWorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RétablitEffacerCommentaires
End Sub

Private Sub Workbook_Open()
InterditEffacerCommentaires
End Sub

CordialementJB

On 25 jan, 10:01, Titac wrote:
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac


Merci BeaucoupJBMais le problème est que dans ce cas précis je n'ai pas de mot de passe
perso car tout le monde ajoute des commentaires et je voudrai ne protég er que

les miens

Salutations Titac- Masquer le texte des messages précédents -- Affich er le texte des messages précédents -




Avatar
JB
Plusieurs utilisateurs peuvent ajouter leur commentaire dans le même
champ commentaire.

http://cjoint.com/?bDrDw7fwNe

Private Sub UserForm_Initialize()
If ActiveCell.NoteText <> "" Then
p1 = InStr(ActiveCell.NoteText, Environ("username"))
If p1 > 0 Then
p1 = p1 + Len(Environ("username")) + 1
P2 = InStr(p1, ActiveCell.NoteText, "*")
UserForm1.TextBox1 = Mid(ActiveCell.NoteText, p1, P2 - p1)
End If
End If
Me.Left = 300
Me.Top = 100
End Sub

Private Sub B_Ok_Click()
On Error Resume Next
ActiveCell.AddComment
On Error GoTo 0
If ActiveCell.NoteText <> "" Then
p1 = InStr(ActiveCell.NoteText, Environ("username"))
pgras = p1
If p1 > 0 Then
p1 = p1 + Len(Environ("username"))
P2 = InStr(p1, ActiveCell.NoteText, "*")
temp = Left(ActiveCell.NoteText, p1) & Replace(Me.TextBox1,
Chr(13), "") & _
Mid(ActiveCell.NoteText, P2)
Else
temp = ActiveCell.NoteText & Chr(10) & Now & Chr(10) &
Environ("username") & Chr(10) & _
Replace(Me.TextBox1, Chr(13), "") & "*"
pgras = Len(ActiveCell.NoteText) + 22
End If
Else
temp = Now & Chr(10) & Environ("username") & Chr(10) & _
Replace(Me.TextBox1, Chr(13), "") & "*"
pgras = 21
End If
With ActiveCell
.Comment.Text Text:=temp
.Comment.Shape.TextFrame.Characters(Start:=pgras,
Length:=Len(Environ("username"))).Font.Bold = True
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
Unload Me
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
UserForm1.Show
Cancel = True
End Sub

On 25 jan, 10:01, Titac wrote:
Bonjour à tous,

J'espère que quelqu un pourra m'aider

Je travaille en classeur partagé avec le reste de mon entreprise et
j'aimerai savoir s'il y a un moyen pour proteger mes commentaires car on me
les efface de temps en temps.

Si quelqu un peut m aider ce serai sympa

Merci d'avance

Titac