Problème avec la protection de la feuille

[dominique35]

Bonjours à tous.

Voila j'ai un problème avec la protection de ma feuille agenda, mes colonnes B,F,H,I ce remplissent automatiquement, et de ce fait j'aimerais empêcher tous changement dans ces colonnes, alors je verrouille ces colonnes, et protège la feuille et c'est à ce moment là que ca bug.
Auriez -vous une idée sur ce bug
Si je met 5 dans la cellule A1313 à ce moment là c'est le bug
La feuille est protégé sans mot de pass
Merci Dominique.

 

[Robert]

Re : Problème avec la protection de la feuille

Bonjour Dominique, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
    ActiveSheet.Unprotect
    Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
    Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
    ActiveSheet.Unprotect
End If
End Sub

 

[dominique35]

Re : Problème avec la protection de la feuille

Bonsoir Robert
avec cette macro quand je protège ma feuille, en remplissant une cellule de la colonne A, j'ai un message qui me demande le mot de pass, et le bug m'affiche en surbrillance jaune cette ligne ActiveSheet.Unprotect. Ce que je souhaite c'est que la date l'inscrive quand meme dans la colonne B malgré la protection de la feuille, mais que l'on ne puisse la supprimer sans le mot de pass.
Merci dominique

 

[R@chid]

Re : Problème avec la protection de la feuille

Bonjour Dominique, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
    ActiveSheet.Unprotect
    Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
    Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
    ActiveSheet.Unprotect
End If
End Sub

c'etait pas ce qu'il veut le monsieur ce code deprotege la feuille et le monsieur veut que la feuille reste protege en saisissant une valeur dans la colonne A

 

[stefan373]

Bonsoir dominique, robert, rachid et le forum.

c'estait pas ce qu'il veut le monsieur ce code deprotege la feuille et le monsieur veut que la fuille reste protege en saisiaaant une valeur dans la colonne A

Déjà, on dit bonjour, puis si on à pas de solution, les commentaires critiques on ce les gardes.😛

Il n'est pas toujours évident de comprendre ce que désirent les demandeurs et une erreur peut arriver.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
    ActiveSheet.Unprotect
    Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
    Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
    ActiveSheet.Unprotect
End If
End Sub

Robert a peut-être fait une erreur de frappe, mais je ne suis pas un expert comparé à lui.🙂

Peut-être

ActiveSheet.protect

pour terminer le code.

A +

 

[R@chid]

Re : Problème avec la protection de la feuille

Bonsoir a tous.
"bonjour Stefan373".
J'ai dis bonsoir parcequ'on est le soir.
Le code ne fonctionne pas mon ami

 

[dominique35]

Re : Problème avec la protection de la feuille

Merci Robert et Stefan.
Avec votre aiguillage fort utile j'ai réussie à trouvé la solution.
voici le code pour les besoins éventuel.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
Sheets("AGENDA").Unprotect
Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
Sheets("AGENDA").Protect
End If
End Sub

Effectivement Rachid, Robert ma donnée un code qui au démarrage ne correspond pas mais avec un bon fils conducteur pour moi arriver à la solution final.

Cordialement Dominique

 

[R@chid]

Re : Problème avec la protection de la feuille

Bonsoir Dominique.
Oui mon ami j'ai pu change la finale UNPROTECT par PROTECT et ca a bien fonctionne

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
    ActiveSheet.Unprotect
    Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
    Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
    ActiveSheet.protect
End If
End Sub

 

[Pierrot93]

Re : Problème avec la protection de la feuille

Bonjour à tous,

pour permettre au code de s'exécuter sans avoir à protéger / déprotéger une feuille, protéger la dite feuille par vba en utilisant l'argument "userinterfaceonly". Code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Option Explicit
Private Sub Workbook_Open()
Sheets("NomFeuille").Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

 

[Robert]

Re : Problème avec la protection de la feuille

Bonjour le fil, bonjour le forum,

Désolé d'avoir causé le trouble avec un code que je n'avais malheureusement pas testé. C'est quelque chose que je fais rarement car (la preuve !) presque chaque fois il y a une erreur...

 

[R@chid]

Re : Problème avec la protection de la feuille

Bonjour a tous.
Salut Robert, c'est pas la penne de presenter des excucses on sait que tu es un expert et ca arrive a tout le monde.
Merci de ta gentillesse et de ta sollution.

 

[Robert]

Re : Problème avec la protection de la feuille

Bonjour le fil, bonjour le forum,

Choukran Rachid mais si j'étais un expert comme tu le dis, aurais-je commis pareille bourde ? Ha ha ha, heureusement qu'il y a de vrais experts ici et tous les jours j'apprends avec eux.
J'ai de la famille à Meknès mais je ne connais pas Marrakech...

 

[R@chid]

Re : Problème avec la protection de la feuille

Bonjour le fil, bonjour le forum,

Choukran Rachid mais si j'étais un expert comme tu le dis, aurais-je commis pareille bourde ? Ha ha ha, heureusement qu'il y a de vrais experts ici et tous les jours j'apprends avec eux.
J'ai de la famille à Meknès mais je ne connais pas Marrakech...

Rebonjour le forum, rebonjour Robert,
vraiment tu es unexpert, Marrakech c'est plutot jolie c'est la belle ville au Maroc.
Bienvenue chez moi quand tu viens visiter ta Famille a Meknes je te laisse pas partir sans que tu m'apprenne a bien travailler sur Excel

 

[dominique35]

Re : Problème avec la protection de la feuille

Bonjour à tous.

Merci Pierrot93 pour ta VBA, et je suis heureux de voir que le ciel bleu est de retour dans la discutions.
Dominique.