XL 2019 Protection feuilles userform

[Did25]

Bonjour le forum ,je suis en train de finaliser un fichier avec le peu de connaissance en Vba et actuellement je sèche sur la déprotection de la feuille via userform. Voici mon code : La mise en protection fonctionne mais je ne trouve pas la solution pour l'instruction protect .Merci de votre aide
Private Sub cmdbajouter_click()
Dim LI As Integer
Dim OD As Worksheet

If Me.CboNomFeuille.Value = "" Then
MsgBox "Veuillez sélectionner un cycle de 5 semaines ", vbOKOnly + vbInformation, "Validation"
CboNomFeuille.SetFocus

Exit Sub

End If
Set OD = Worksheets(CboNomFeuille.Value)
If OD.Range("C2").Value = "" Then
LI = 2

Else
OD.ListObjects(1).ListRows.Add
LI = OD.Range("C1").End(xlDown).Row + 1
End If
For x = 1 To 6
OD.Cells(LI, x + 2).Value = Me.Controls("Cont" & x).Value

Next x
CboNomFeuille.Value = ""
MsgBox "La validation a bien été envoyé sur la feuille : " & MaFeuille, vbOKOnly + vbInformation, "Validation"
ActiveSheet.Protect ("blablabla")
End Sub

 

[Eric C]

Bonjour le forum
Bonjour didier Costille
Essaie ceci :

Worksheets(1).Protect Password:="blablabla"

Worksheets(1) ou Worksheets("Feuil1") à adapter
@+ Eric c

 

[Did25]

Bonjour Eric ,désolé mais je suis trompé car l'instruction protect fonctionne mais je souhaiterais inclure en début de code l'instruction unprotect mais je n'y arrive pas .Merci de votre aide

 

[Eric C]

Re; Pourquoi ne pas déprotéger la feuille à l'ouverture du fichier

Private Sub Workbook_Open()

, exécuter ton code puis la protéger à l'issue de l’exécution du programme ?
Bonne nuit à toutes & à tous
@+ Eric c

 

[Did25]

Bonjour le forum ,bonjour Eric ,j'ai trouvé la solution avec ce code :
'Procédure validation données

Private Sub cmdbajouter_click()
Dim LI As Integer
Dim OD As Worksheet
If Me.CboNomFeuille.Value = "" Then
MsgBox "Veuillez sélectionner un cycle de 5 semaines ", vbOKOnly + vbInformation, "Validation"
CboNomFeuille.SetFocus
Exit Sub
End If
Set OD = Worksheets(CboNomFeuille.Value)
If OD.Range("C2").Value = "" Then
LI = 2
Else
ActiveSheet.Unprotect ("blablabla")
OD.ListObjects(1).ListRows.Add
LI = OD.Range("C1").End(xlDown).Row + 1
End If
For x = 1 To 6
OD.Cells(LI, x + 2).Value = Me.Controls("Cont" & x).Value
Next x
CboNomFeuille.Value = ""
MsgBox "La validation a été prise en compte sur la feuille : " & MaFeuille, vbOKOnly + vbInformation, "Validation"
ActiveSheet.Protect ("blablabla")
End Sub

Merci encore de votre aide ,merci le forum ,merci excel download