Protéger feuille contre les modifications de certaines cellules

[techjap1800]

Bonjour,
j’aurai besoin d’aide.
est-il possible de protéger la feuille ainsi que ces onglets en une fois car actuellement j’ai du protégé chaque onglet.
J’ai verrouillé les cellules dont je ne veux pas qu’ils puissent remplir ou modifier.
mais je n’ai pas trouvé d’autre moyen que de verrouiller chaque onglet.
TCO Carlos 2023.xlsx (1,4 Mo)

le code c’est 0000

[Jacquinot_WILL-FREAD]

Bonjour,

essayez ceci :

Sub protection()

Dim a As Integer
Dim feuille As Worksheet
a = Sheets.Count
For Each feuille In Worksheets
feuille.Protect ("0000")
Next
ThisWorkbook.Save
Application.DisplayAlerts = False

End Sub

Mettez là dans un module et il faut que vous enregistrer votre classeur en prenant en compte les macros et n’oublie pas de créer un bouton pour la déclencher.
Cordialement
TCO Carlos 2023.xlsm (1,4 Mo)

[techjap1800]

Merci beaucoup, comment je fais pour faire un bouton qui déverrouille?

[Jacquinot_WILL-FREAD]

Re,
Voici ce que vous pouvez mettre dans un module :
(pour effacer la protection de toute les feuilles)

Sub supprprotection()
Dim feuille As Worksheet
Application.ScreenUpdating = False
For Each feuille In Worksheets
feuille.Unprotect ("0000")
Next
Application.ScreenUpdating = True

ThisWorkbook.Save
Application.DisplayAlerts = False
Sheets(1).Activate
End Sub

TCO Carlos 2023.xlsm (1,4 Mo)
Cordialement

Will-Fread