verrouillé automatiquement cellule une fois saisie

[LE GUERROUE]

Bonjour,
Dans le cadre de mon travail je dois créer un fichier excel de type registre. Ce registre dois pouvoir etre rempli au fil de l'eau par les équipes (fichier en réseau) mais les valeurs ne doivent pas pouvoir être modifiées une fois saisie.
Avez vous une solution pour verrouillé les cellules une fois remplie?
Plutôt à l'aise avec excel je ne connait pas assez le VBA...
Merci d'avance,
Audrey

 

[youky(BJ)]

Bienvenu sur le forum et bonjour,
A tester sur un fichier d'essai
Voici les manip
Sélectionner toutes les cellules
Aller en format de cellules >Protection >décocher Verrouiller
Faire 1 click bouton droit de souris sur le nom de l'onglet en bas
et dans le menu choisir >visualiser le code
dans la fenetre blanche copier tout ce code

>>>Remplacer "toto" par le bon mot de passe

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End Sub

Bruno

 

[LE GUERROUE]

trop bien! ça marche nickel! Merci beaucoup!

 

[LE GUERROUE]

Comment cela fonctionne t'il ? dès qu'on fait entrer ça verrouille la feuille c'est ça ?
et pour pousser ma curiosité : est-il possible de rajouter une fenêtre demandant si la personne est sur de vouloir verrouiller les données qu'elle a inscrite ?

 

[youky(BJ)]

Content que tu pousses ta curiosité un peu plus loin . . .
Code avec demande de confirmation

Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Valider pour ....." & Target, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface
Application.EnableEvents = True  'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End Sub

Bruno

 

[LE GUERROUE]

Merci beaucoup! ça marche nickel. Est-il possible de passer une ligne dans le MsgBox?

 

[LE GUERROUE]

autre question pour ce sujet :
A1 Date de début
B1 Heure de début
C1 Date de fin
D1 Heure de fin
--> comment automatiser le calcul en E1 de la Durée en heure et en minute à partir de 4 cellules ?

 

[youky(BJ)]

Audrey,
Voici pour 3 colonnes tu peux en rajouter facilement en macro

Private Sub Worksheet_Change(ByVal Target As Range)
lig = Target.Row
tx = Cells(lig, 1) & " " & Cells(lig, 2) & " " & Cells(lig, 3) 'ici colonne 1 à 3
If MsgBox("Valider pour ....." & tx, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface
Application.EnableEvents = True  'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End Sub

Pour les dates et heure
Formule en E1 =(C1+D1)-(A1+B1)
Le format de cellule en E1 est personnalisé [h]:mm
Si besoin en macro tu dois maintenant savoir faire.
Bruno

 

[LE GUERROUE]

Merci vous êtes top! bon week end!

 

[jcoillot]

Content que tu pousses ta curiosité un peu plus loin . . .
Code avec demande de confirmation

Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Valider pour ....." & Target, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface
Application.EnableEvents = True  'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End Sub

Bruno

Bonjour,
Désolé de déterrer ce sujet, mais est il possible d'appliquer le code ci-dessus uniquement pour les colonnes K, L et M, et laisser les autres en remplissage libre ?
Merci pour vos réponses, cordialement.

 

[youky(BJ)]

Bonjour,
voici un code qui fait l'affaire
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Or Target.Column = 12 Or Target.Column = 13 Then
If MsgBox("Souhaitez-vous valider " & Target & " ?", vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface
Application.EnableEvents = True  'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End If
End Sub

 

[jcoillot]

Bonjour,
voici un code qui fait l'affaire
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Or Target.Column = 12 Or Target.Column = 13 Then
If MsgBox("Souhaitez-vous valider " & Target & " ?", vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False   'évite événement Change
Target = ""    'on efface
Application.EnableEvents = True  'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End If
End Sub

merci beaucoup!

En vous souhaitant un bon weekend.