Protection de feuille

[pat12]

Bonjour,
J'ai réalisé une feuille qui ne sert qu'a être imprimer, mais remplit sur le pc.
Je souhaite la verrouillé par un mot de passe (654321) jusque la pas de problème.
Mais j'ai des cellules que je barre par un clic.
Je voudrai quelle soit verrouillée et quelle ce déprotégé pour l’action et déprotégé ensuite.
Je joins la feuille pour que vous puissiez mieux voir (sans protection).
Et encore Merci.

 

[jpb388]

Re : Protection de feuille

Bonjour

a mettre à l'endroit ou tu veux protéger
ActiveSheet.Protect password:="toto"

a mettre à l'endroit ou tu veux déprotéger
ActiveSheet.Unprotect

mais avec un mot de passe il te faudra le taper à chaque fois que tu protége et que tu déprotége.
Ton code serai mieux sans
a+
jpb

 

[Efgé]

Re : Protection de feuille

Bonjour,
Si j'ai bien compris, quelque chose m'échappe : Vous voulez déprotéger des cellules pour pouvoir les modifier et le reprotéger ensuite, donc elles sont toujours protégées sauf quand on les modifies ? Pourquoi les protéger ?
Cordialement

 

[pat12]

Re : Protection de feuille

Bonjour,
Si j'ai bien compris, quelque chose m'échappe : Vous voulez déprotéger des cellules pour pouvoir les modifier et le reprotéger ensuite, donc elles sont toujours protégées sauf quand on les modifies ? Pourquoi les protéger ?
Cordialement

Par ce que dans la cellule il y a du texte qu’il ne faut pas effacer
l'action ne sert qu'a barrée la cellule
Voir dans l’exemple joint plus haut.
Merci

 

[pat12]

Re : Protection de feuille

Bonjour

a mettre à l'endroit ou tu veux protéger
ActiveSheet.Protect password:="toto"

a mettre à l'endroit ou tu veux déprotéger
ActiveSheet.Unprotect

mais avec un mot de passe il te faudra le taper à chaque fois que tu protége et que tu déprotége.
Ton code serai mieux sans
a+
jpb

il parait qu'il existe un code pour protéger ou déprotéger avec un mot de passe et que l'action est automatique.

 

[mikeo]

Re : Protection de feuille

Bonjour,

Vous pouvez faire cette action sans déprotéger la feuille.

Procédure :
1- dans les cellules que vous voulez barrer, faire : format - cellule - protection ; décrocher la case "vérouillée"

2- au moment de protéger la feuille : faire protéger la feuille : cocher la case "format de cellule"

A+

 

[Efgé]

Re : Protection de feuille

Re
Vous déprotégez la feuilles, puis vous validez une de vos cellules.
Le code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E26:F26,I26:J26,C43:D43,G43:H43")) Is Nothing Then
    ActiveSheet.Unprotect (654321))
        If Target.Borders(xlDiagonalUp).LineStyle = xlNone Then
        
        Target.Borders(xlDiagonalUp).LineStyle = xlContinuous
        Else: Target.Borders(xlDiagonalUp).LineStyle = xlNone
    
        End If
        
    End If
    ActiveSheet.Protect (654321))
End Sub

Cordialement

 

[Efgé]

Re : Protection de feuille

EDIT
ActiveSheet.Unprotect (654321), la deuxieme parenthèse est en trop idem pour ActiveSheet.Protect (654321)

 

[pat12]

Re : Protection de feuille

EDIT
ActiveSheet.Unprotect (654321), la deuxieme parenthèse est en trop idem pour ActiveSheet.Protect (654321)

Super merci sa marche.

 

[jeanpierre]

Re : Protection de feuille

Bonjour le fil,

Est-ce comme cela ça va pour toi ?

Bon après-midi.

Jean-Pierre

 

[Efgé]

Re : Protection de feuille

Re
Chez moi ça marche après avoir mis le code du ThisWorkbook dans la feuille (Activate) et en déprotégeant et reprotégeant pour mettre le numéro de dossier .
Cordialement

 

[pat12]

Re : Protection de feuille

Re
Chez moi ça marche après avoir mis le code du ThisWorkbook dans la feuille (Activate) et en déprotégeant et reprotégeant pour mettre le numéro de dossier .
Cordialement

Merci j'ai posté en même temps que toi j'ai trouvé merci.

 

[jeanpierre]

Re : Protection de feuille

Re,

Par contre j'ai une erreur sur ton : Private Sub Workbook_Open()

Pas regardé le pourquoi.

 

[jeanpierre]

Re : Protection de feuille

Re,

OK, vu, même problème, déprotéger et ensuite reprotéger.

Comme je n'avais pas enregistré je suis resté sur le code de la feuille 1.

 

[pat12]

Re : Protection de feuille

Re,

Par contre j'ai une erreur sur ton : Private Sub Workbook_Open()

Pas regardé le pourquoi.

Oui c'est bon, j'ai modifié il faut que je fasse pareil le code écrit la date du jour dans une cellule.
Merci bonne journée.