Discussion :

[Benny87]

hello,
Je recherche une macro pour bloquer la suppression de texte dans toute la feuille en Macro.
Car la macro:

Code :

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

1
2
3
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Mais l'on peut toujours supprimer avec le clavier et je ne veux pas blocker la feuille.
quelqu'un a une idée pour un debut de code car je ne trouve pas ce que je recherche sur les forums

[Theze]

Bonjour,

Dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Valeur
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Valeur = "" Then Exit Sub
 
    Application.EnableEvents = False
    Target.Value = Valeur
    Application.EnableEvents = True
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Valeur = Target.Value
 
End Sub

[Benny87]

hello,
Cool merci pas bête le code.
Cela fonction bien sur un cellule mais si on en supprime plusieurs il y a un erreur.

[Theze]

Re,

Tu peux par exemple interdire la sélection multiple mais là, il te faut, je pense, en informer tes utilisateurs sur le fait de ne pouvoir modifier les valeurs et faire des sélections multiple :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Count > 1 Then Target(1, 1).Select
 
    Valeur = Target.Value
 
End Sub

[PMO2017]

Bonjour,

Peut être comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim HasData As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Range)
If HasData Then
  Application.EnableEvents = False
  Application.Undo
  Application.EnableEvents = True
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
'---
HasData = False
For Each C In Target
  If C <> "" Then
    HasData = True
    Exit For
  End If
Next C
End Sub