Déprotéger puis protéger une feuille VBA

Bonjour et bonne année à tous,
Avec ce petit code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:B")) Is Nothing Then
        ActiveSheet.Unprotect
    End If
End Sub

je déprotège une feuille protégée lorsque je clique dans les colonne A et B. J'aimerais que après cette procédure, si je clique en dehors de cette zone, je réactive la protection. J'ai un peu de mal à trouver.

Bonjour,

Au plus simple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:B")) Is Nothing Then
        ActiveSheet.Unprotect
    Else
        ActiveSheet.Protect
    End If
End Sub

Bonjour,

Merci M12 mais j'avais déjà essayé en vain.

Re,

Normal, si tu coches pas la selection des cellules verrouillées, il repart automatiquement sur une cellules déverrouillées

Bonjour,

Oui effectivement je n'avais pas penser à cette subtilité.

Hello à tous et bonne année 2023 !

Sur cette application là de Chti59130 que je n'arrive pas à joindre : https://www.excel-pratique.com/fr/telechargements/loisirs/controle-resultats-loto-excel-no427

il y a un mot de passe pour la feuille de calcul :

et je ne sais comment l'enlever.

Quelqu'un a une idée ?

Merci à vous

Edit Modo : ce fil a déjà été cloturé par le demandeur. Merci d'ouvrir un nouveau fil avec votre demande
Par ailleurs, comme déjà demandé ici -->

https://forum.excel-pratique.com/s/goto/1111620

mettez votre version excel dans votre compte utilisateur

Bonjour JPR_Project

Craquer un mot de passe n'est pas le sujet de ce fil. D'ailleur je pense que personne ne répondra à votre question car c'est en dehors de l'esprit du forum à mon avis.