Bonjour le Forum !!!
Ba voila, je solicite une foie encore votre attention sur un autre petit problème que je rencontre dans la création d'un devis Excel:
Je voudrais protéger mes feuilles automatiquement, ça marche mais il ne me protège pas comme je le voudrais, les cellules verrouillées peuvent encore être sélectionnées !! Et moi, je ne veux pas...
Voici mon petit bout de programme, si quelqu'un pouvait jeter un coup d'oeil :
Sub protegefeuille(nombrefeuille As Integer)
Dim i As Integer
Sheets("Eg").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
For i = 1 To nombrefeuille
nb = Format(i)
nomfeuil = ("SE" + nb)
Sheets(nomfeuil).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
voila, merci de votre patience et de votre aide !!
@ bientôt