creer un mot de passe pour supprimer une cellule renseignée

[dss]

Bonjour le forum,

J'ai un petit souci : je veux eviter que les utilisateurs de mon fichier puissent supprimer la valeur d'une cellule dans la colonne H dès lors que la cellule de n'importe quelle ligne de la colonne H est renseignée.
Toutefois, je veux pouvoir disposer d'un mot de passe pour avoir accès à cette cellule s'il faut reellement supprimer l'information;
Précision :Le mot de passe ne serait connu que de moi.

Comment faire, si quelqu'un peut me venir en aide, merci d'avance

Cordialement

dss

 

[Bradvid]

Re : creer un mot de passe pour supprimer une cellule renseignée

Bonjour DSS,

Saches que par défaut toutes les cellules sont vérouillées dans Excel.
Si tu veux rendre accéssible toutes les cellules sauf une après avoir protégé ta feuille, il faut que tu sélectionnes toutes les cellules que tu veux déprotéger, clic droit puis format de cellule. Ensuite onglet Protection et décoche vérouillées.
Ainsi toutes les cellules seront accéssibles sauf celle qui est encore vérouillée.

En espérant répondre à ta question,
A+

 

[dss]

Re : creer un mot de passe pour supprimer une cellule renseignée

Bonjour le forum

Merci Bradvid de me proposer cette solution ; cependant, je pense que la réponse à mon pb ne peut être résolu que par le VBA dont je ne suis pas du tout spécialiste car les cellules au départ ne doivent pas être vérrouillées pour que soit saisie la valeur initiale.
Ce n'est qu'après cette saisie que la modification ne pourra se faire que par mot de passe : ceci pour éviter que la cellule soit constamment modifiée ou remise à blanc avec la touche suppr.

Merci quand même

dss

 

[Toine]

Re : creer un mot de passe pour supprimer une cellule renseignée

bonjour a tts
simple question ta feuille a combien de ligne au maximum ??? (pour savoire si la solution que j'envisage peut étre adapter )

 

[Staple1600]

Re : creer un mot de passe pour supprimer une cellule renseignée

Bonjour

En espérant que cela puisse t'inspirer ou t'aider

Sub Macro1()
If InputBox("Saisir le mot de passe") = "a" Then
ActiveSheet.Unprotect
Else: Exit Sub
End If
End Sub

Meme à ce stade, cela reste problématique
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 6 Then
If InputBox("Saisir le mot de passe") = "a" Then
ActiveSheet.Unprotect
Else: Exit Sub
End If
End If
End Sub

 

[dss]

Re : creer un mot de passe pour supprimer une cellule renseignée

Bonjour à Toine,

Ma feuille qui s'intitule (suivi de travaux) doit comporter au minimum environ 3000 lignes mais cela peut être réalisé sur la colonne entiere de la feuille.

A bientôt de te lire,

Salut le forum,

dss

 

[Staple1600]

Re : creer un mot de passe pour supprimer une cellule renseignée

Re

Un exemple qui peut aider je pense
SOURCE: Ce site n'existe plus
Auto-protéger une cellule
de Harlan Grove, le samedi 28 août 1999 08:09 sur microsoft.public.excel.worksheet.functions, sujet "Re: how to auto-protected a cell"

Private Sub Worksheet_Change(ByVal Target As Excel.range)
application.enableevents = false
Target.Worksheet.Unprotect
Target.Locked = true
Target.Worksheet.Protect
application.enableevents = true
end Sub

 

[Excel_lent]

Re : creer un mot de passe pour supprimer une cellule renseignée

Salut à tous,

Autre solution possible :

Option Explicit
Dim contenu

Private Sub Worksheet_Change(ByVal Target As Range)
If InputBox("Saisir le mot de passe") = "oui" Then Exit Sub
MsgBox "pas de changement possible"
Application.EnableEvents = False
Range(Target.Address) = contenu
Application.EnableEvents = True
Range("A1").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 8 Then contenu = Range(Target.Address)
End Sub

@+

 

[Toine]

Re : creer un mot de passe pour supprimer une cellule renseignée

Private Sub Worksheet_Change(ByVal Target As Range)
if activecell.column = 8 then
 if activecell.value = "" then 
    else 
       if  InputBox("Saisir le mot de passe") = "oui" then      'oui = le mot de passe
      else
      range ("A1").select
    end if 
  end if
end if 
end sub

je pense que sa devrai étre po mal mais je suis pas sur enfin si sa marche pas j'aurai éssayer
s'est trés similaire de ce que "excel lent" (en beaucoup plus archaique (y a un ique lol ))