Marco non exécute

camarchepas

XLDnaute Barbatruc

• 10 Février 2015

• #2

Re : Marco non exécute

Bonjour Benni,

Protéges ta ou tes feuilles avec ce bout de code 🙁 Tu peux bien sur changer Toto par autre chose)

Sub ff()
Sheets("Livraison").Protect Password:="Toto", userinterfaceonly:=True
End Sub

cela protégera ta feuille des utilisateurs mais pas du code

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 10 Février 2015

• #3

Re : Marco non exécute

bonjour camarchepas

j ai copie le code mais moi ce que je cherche c est protege les cellules
par exp les les cellules I7:I35 qui contiennent des formules comment proceder a cet protection d ecriture

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Février 2015

• #4

Re : Marco non exécute

En fait , il faut sur les cellules en question
clic droit , Format de cellule , puis protection et la déverrouiller les cellules qui doivent être accessible ,
ensuite tu protéges la feuille avec le bout de code

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 10 Février 2015

• #5

Re : Marco non exécute

REB
j ai coche le case Verouille d une cellule et j ai mis le code dans la feuille livraison du VBA
ensuite j ai tape une reference sur cette cellule mais elle n est pas protege en ecriture je crois que j ai loupe quelque chose

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Février 2015

• #6

Re : Marco non exécute

Re,

ok , essaies avec ce code :

Sub ff()
Sheets("Livraison").Protect Password:="Toto", userinterfaceonly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Livraison").EnableSelection = xlUnlockedCells
End Sub

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 10 Février 2015

• #7

Re : Marco non exécute

RE
J ai verouille les cellules "I7:I34" j ai mis le code aucun changement
Je peux toujours ecrir sur ces cellules
jusqu au moment je ne me suis jamais ete bloque par un message de protection

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 10 Février 2015

• #8

Re : Marco non exécute

svp vous pouvez faire un essaie sur ma piece joint en verouillant quelque cellule
comme ca je saurai comment ca fonctionne et merci

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 10 Février 2015

• #9

Re : Marco non exécute

REB
j ai pu trouve ce code sur internet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Worksheets("LIVRAISON").Range("I7:I40")) Is Nothing Then
Worksheets("LIVRAISON").Range("G5").Select
End If
End Sub
il fonctionne tres bien apres avoir mis le nom de mon ma feuille "LIVRAISON" mais le probleme c est que j ai autres cellule a proteger mais ce code la ne fonctionne que pour une seule plage de cellule j ai pas reussi a jouter d autres cellule
je crois que vous pouviez modifier le code de sorte a ce que je peux proteger autre cellules et MERCI pour votre aide

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Février 2015

• #10

Re : Marco non exécute

Ok ,

Je sais pas si cela vient des tableaux , mais j'ai réussi en appelant la macro de protection à chaque calcul de la feuille

 

Pièces jointes

• APPLI GOOD BUSINESS RENOVATION 1.xlsm

  318.9 KB · Affichages: 16
• APPLI GOOD BUSINESS RENOVATION 1.xlsm

  318.9 KB · Affichages: 20
• APPLI GOOD BUSINESS RENOVATION 1.xlsm

  318.9 KB · Affichages: 25

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 11 Février 2015

• #11

Re : Marco non exécute

BONJOUR
NON ca ne marche pas pour le fichier que vous m avez envoye

et le code que je vous ai envoye vous avez une idee pour la modification?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Février 2015

• #12

Re : Marco non exécute

Bonjour ,

Pourtant testé et validé,

Alors je laisse tomber car apparement pas sur la même longueur d'onde

 

Vote positif 0 Vote négatif