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.

4fcy-essai.xlsm (16.87 Ko)

Re,

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

image

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.

Rechercher des sujets similaires à "deproteger puis proteger feuille vba"