Jim a un classeur qui est utilisé par plusieurs personnes dans son entreprise. Il se demande s’il existe un moyen de permettre à tout le monde d’ajouter des données à un groupe de cellules, tout en limitant qui peut supprimer les données des cellules. Il a un groupe d’environ 50 personnes qu’il veut pouvoir ajouter des données, mais il veut donner la capacité de suppression à seulement 2 personnes.

Il existe un certain nombre de solutions macro-basées que vous pouvez essayer. Essentiellement, vous avez besoin d’une macro pour détecter quand les informations ont été supprimées, puis vérifier si la personne qui supprime les informations est autorisée à le faire. Ce qui suit n’est qu’une approche possible du problème:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sPassCheck As String     Dim rng As Range     Dim sTemp As String     Dim sPassword As String

sPassword = "Password"

sTemp = "You must enter the password to delete data"



'Use to set a single cell if more than one cell is     'in the target range     If Target.Count > 1 Then         Set rng = Target.Cells(1, 1)

Else         Set rng = Target     End If

If rng.Value = "" Then         sPassCheck = InputBox(sTemp, "Delete check!")

Application.EnableEvents = False         If sPassCheck <> sPassword Then Application.Undo     End If

Application.EnableEvents = True End Sub

La macro, qui est en fait un gestionnaire d’événements déclenché chaque fois qu’un élément de la feuille de calcul est modifié, vérifie si les informations d’une cellule (ou d’une cellule en haut à gauche d’une plage) ont été supprimées. Si tel est le cas, un mot de passe est demandé à l’utilisateur. Si la personne n’a pas le mot de passe, la méthode Undo est appelée pour « annuler » la suppression de la personne. (Vous voudrez changer le mot de passe, attribué à la variable sPassword) en mot de passe réel que vous voulez que les gens utilisent.)

Une autre option consiste à utiliser un complément Excel qui peut prendre en charge les problèmes de sécurité pour vous. Certains abonnés suggèrent d’utiliser A-Tools, disponible en version gratuite ou pro (payante). Vous pouvez trouver plus d’informations sur ce complément ici:

http://www.atoolspro.com/

A-Tools, entre autres, vous permet apparemment d’appliquer diverses fonctionnalités de sécurité aux données Excel qui résident sur un réseau. (Il y a de bonnes chances que Jim partage son classeur sur un réseau, car il est utilisé par de nombreuses personnes dans son entreprise.)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11597) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.

Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Limiting_Who_Can_Delete_Data [Limiter qui peut supprimer les données].