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
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