Protection des céllules avec marco

[PAIX]

Bonjour, voilà je cherche à protégé des cellules et laissé d'autre pour les saisies?

Y a t'il un moyen de mettre un mot de passe pour la protection, car pour l'instant je suis obligé de protégé sans pour pouvoir exécuter la macro

Mon but c'est que l'utilisateur pusse saisir une valeur dans des cellules et lancé la macro pour exécuté les formules.

Merci pour votre aide.


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 17/06/2004 par ..
'
ActiveWindow.SmallScroll ToRight:=-4
ActiveSheet.Unprotect
Range('D:E,H:Q').Select
Range('H1').Activate
Columns('D:E').Select
Dim Msg, Style, Fichier, Reponse, MyString
Msg = 'Souhaitez-vous supprimer les lignes vides ?'
Style = vbYesNo + vbQuestion
Fichier = 'Fichier APPROBATION DE PRIX'
Reponse = MsgBox(Msg, Style, Fichier)
If Reponse = vbYes Then
Selection.AutoFilter Field:=6, Criteria1:='='
Selection.AutoFilter Field:=7, Criteria1:='='
Rows('17:1191').Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Else
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[JH]

bonjour

ActiveSheet.Protect password:='toto', DrawingObjects:=True, Contents:=True, Scenarios:=True

ce code protègera ta feuille avec comme mot de passe toto

Bonne journée

 

[PAIX]

Bonjour, merci pour ta réponse il me reste juste un petit problème je n'arrive pas à protéger mes, formules de calcule

je cherche a laisser dans ma feuilles que deux colonnes sans protection pour la saisie

 

[JH]

Pas de problème

Quand tu utilises la protection (menu Outils --> Protéger --> protéger la feuille) une boite de dialogue s'ouvre. Utilises la pour autoriser ou non les utilisateurs à utiliser les cellules que tu auras au préalable vérouillées