XL 2019 VBA Ajouter ou enlever la protection d'un onglet

[frederio]

Bonjour à tous

Tu vous connais comment faire ?
comment faire protéger ou enlever ajouter VBA

Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci

 

[Staple1600]

Bonsoir

Avec deux macros

Sub proteger()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ws.EnableSelection = xlUnlockedCells
    Next
End Sub
Sub deproteger()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect
    Next
End Sub

Il faut ensuite affecter la macro à chaque bouton
Puis enregistrer sous au format *.xlsm
(pour conserver les macros)

Ci-dessous lien vers un tutoriel pour Affecter une macro à un bouton

Affecter une macro à un formulaire ou à un bouton Contrôle - Support Microsoft

Créez un bouton Formulaire ou un bouton Commande et affectez une macro qui effectue une action lorsqu’un utilisateur clique sur le bouton.

support.microsoft.com

 

[frederio]

bonsoir
comment faire ?

Sur la 1ère feuille "CHAMPIONNANT"
Sur la 2ère feuille "SAISON"
= protéger ou enlever

Sur la 3ère feuille "LES RESULTATS DES MATCHS"
Sur la 4ère feuille "%"
=reste protéger

Sur la feuille pas tous enlever protection
merci

 

[Staple1600]

Bonjour

En bouclant sur le nom des feuilles

Sub protegerB()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.Name
Case "CHAMPIONNAT", "SAISON"
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
            AllowFiltering:=True, AllowUsingPivotTables:=True
ws.EnableSelection = 1
Case Else
ws.Unprotect
End Select
Next
End Sub

Dans cet exemple, seules les feuilles CHAMPIONNAT et SAISON seront protégées.

 

[frederio]

c est petite problème

 

[Staple1600]

Bonsoir

Il faut mettre le code VBA dans un module standard (pas dans le code de la feuille 1) puis l'affecter au bouton (comme expliqué dans le message#2 = > voir le lien)

 

[frederio]

bonjour j ai trouve le code VBA

Sub Proteger()
On Error Resume Next
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  Sheets("SAISON").Protect UserInterFaceOnly:=True
    Sheets("CHAMPIONNANT").Protect UserInterFaceOnly:=True
End Sub
Public Sub Deproteger()
    'On Error Resume Next

Application.ScreenUpdating = False

'enlever protection feuilles
    Sheets("SAISON").Select
    ActiveSheet.Unprotect ("EQUIPES")
    Sheets("CHAMPIONNANT").Select
    ActiveSheet.Unprotect ("EQUIPES")

End Sub

 

[Staple1600]

Bonjour

frederio
Oui tu l'as trouvé dans les réponses des messages#2 ou #4
PS: Tu n'es pas obligé de sélectionner les feuilles dans ton code VBA.

Pour infos
On dit CHAMPIONNAT et pas CHAMPIONNANT