Bonjour (..)
Voici une correction pour le bouton "ajouter" à transposer sur les autres boutons (si besoin)
'Ajouter
Private Sub CommandButton5_Click()
Dim ligne As Integer
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom' "
Else
If MsgBox("confirmez l'ajout de donn_es ?", vbYesNo, "confirmation") = vbYes Then
Sheets("Feuil1").Activate
ActiveSheet.Protect userinterfaceonly:=True, Password:="nf"
' ActiveShett.Unprotect "nf" <= ActiveSheet !!!
Range("A2").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1).Value = ComboBox2
ActiveCell.Offset(0, 2).Value = ComboBox3
Sheets("Feuil1").Select
'ActiveShett.Protect "nf" <= ActiveSheet !!!
' Sheets("Feuil2").Activate
ActiveSheet.Protect userinterfaceonly:=True, Password:="nf"
Range("A2").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1).Value = ComboBox2
ActiveCell.Offset(0, 2).Value = ComboBox3
End If
End If
End Sub
La fonction "Protect" associée à "UserInterfaceOnly := True" qui dit bien son nom ne protège que les actions de l'interface utilisateur pas les actions effectuées par VBA
Selon les versions Excel il se peut qu'aucune majuscule n'apparaisse attention donc à l'orthographe exacte de ce paramètre :
User Interface Only - sans les espaces évidemment !