Bonjour à tous,
j'ai écris une macro afin d'afficher une boite de dialogue si une cellule etait modifiée afin d'avoir un historique des modifications éffectuées sur une feuille protégée, seulement lorsque l'on fait un double click sur une cellule protégée, ma boite de dialogue apparait ,et ce qui a pour conséquence d'enlever la protection de la feuille, ce qui je vous laisse imaginer ouvre la porte à tout.
donc je vous sollicite pour vous demander ou est ce que je peux modifier mon code afin de desactiver le double click sur mes cellules protégées.
merci par avance
Dim monadresse As String
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
''verification pour savoir si la cellule qui vient d'être modifiée appartient bien
''à la zone form_zone_modif si oui son numero de colonne ne doit pas etre inférieur
''à 4 pour etre pris en compte
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
If ActiveCell.Column < 4 Then
Exit Sub
Else
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("form_zone_modif")) Is Nothing Then
ActiveSheet.Unprotect Password:="bpe2010"
Adresse = ActiveCell.Address
Range("form_cell_active").Value = monadresse
CommandButton1_Click
ActiveSheet.Protect Password:="bpe2010"
End If
End If
End Sub
j'ai écris une macro afin d'afficher une boite de dialogue si une cellule etait modifiée afin d'avoir un historique des modifications éffectuées sur une feuille protégée, seulement lorsque l'on fait un double click sur une cellule protégée, ma boite de dialogue apparait ,et ce qui a pour conséquence d'enlever la protection de la feuille, ce qui je vous laisse imaginer ouvre la porte à tout.
donc je vous sollicite pour vous demander ou est ce que je peux modifier mon code afin de desactiver le double click sur mes cellules protégées.
merci par avance
Dim monadresse As String
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
''verification pour savoir si la cellule qui vient d'être modifiée appartient bien
''à la zone form_zone_modif si oui son numero de colonne ne doit pas etre inférieur
''à 4 pour etre pris en compte
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
If ActiveCell.Column < 4 Then
Exit Sub
Else
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("form_zone_modif")) Is Nothing Then
ActiveSheet.Unprotect Password:="bpe2010"
Adresse = ActiveCell.Address
Range("form_cell_active").Value = monadresse
CommandButton1_Click
ActiveSheet.Protect Password:="bpe2010"
End If
End If
End Sub