Protection

M

mfb

XLDnaute Occasionnel

• 13 Avril 2009

• #2

Re : Protection

Bonsoir à Tous.
Dedemimi je ne suis pas expert mais regarde le fichier en retour il semble répondre à ta première demande.
Pour la 2ème une âme charitable vas surement passer par là.
A+
Daniel

 

Pièces jointes

• boucherie00.zip

  38.1 KB · Affichages: 39
• boucherie00.zip

  38.1 KB · Affichages: 39
• boucherie00.zip

  38.1 KB · Affichages: 35

Vote positif 0 Vote négatif

D

dedemimi

Guest

• 13 Avril 2009

• #3

Re : Protection

BONJOUR
c'est exactement cela que je voulais merci de ta reponse j'espere qu'il y aura une personne qui resoudra mon autre souci
merci encore

 

Vote positif 0 Vote négatif

W

wamme

XLDnaute Occasionnel

• 13 Avril 2009

• #4

Re : Protection

Salut pour protéger toutes tes feuilles:

Code:

Application.ScreenUpdating = False
Dim Temp As String
Temp = ActiveSheet.Name
    For Each Sh In Worksheets
    Worksheets(Sh.Name).Activate
    ActiveSheet.Protect 
    Next
Sheets(Temp).Select
Application.ScreenUpdating = True

 

Dernière édition: 13 Avril 2009

Vote positif 0 Vote négatif

D

dedemimi

Guest

• 13 Avril 2009

• #5

Re : Protection

BONJOUR, wamme
il me fait une erreur de compilation sur la 1 ere ligne à =FALSE
Application.ScreenUpdating = False
Dim Temp As String
Temp = ActiveSheet.Name
For Each Sh In Worksheets
Worksheets(Sh.Name).Activate
ActiveSheet.Protect
Next
Sheets(Temp).Select
Application.ScreenUpdating = True

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 13 Avril 2009

• #6

Re : Protection

Bonsoir dedemimi, wamme,

Curieux, cela ne devrait pas.

Commente cette ligne avec ' , ainsi que la dernière et revois.

Bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

M

mfb

XLDnaute Occasionnel

• 13 Avril 2009

• #7

Re : Protection

Re,
J' ai beaucoup + à apprendre qu' à donner surtout de la part de Jean Piere Wanne et les .... autres.
Alors j' ai pris ce fil comme un devoir de vacances.
Pour dedemimi regarde à nouveau le fichier avec le code wanne ça marche.
J' ai bricolé un bouton unique pour vérrouiller et dévérouiller il est en "j43";
A+
Daniel

 

Pièces jointes

• boucherie00.zip

  44.6 KB · Affichages: 39
• boucherie00.zip

  44.6 KB · Affichages: 34
• boucherie00.zip

  44.6 KB · Affichages: 28

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Avril 2009

• #8

Re : Protection

Bonsoir à tous

pour protéger toutes les feuilles sans les activer, ce qui ralenti le code et est généralement inutile en vba :

Code:

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect
Next ws

bonne soirée
@+

 

Vote positif 0 Vote négatif

D

dedemimi

Guest

• 13 Avril 2009

• #9

Re : Protection

bonjour
effectivement ça marche tres bien j'avais fait une mauvaise manip
merci encore à tous

 

Vote positif 0 Vote négatif

M

Mulder

XLDnaute Junior

• 15 Avril 2009

• #10

Re : Protection

Bonjour,
Je prends la suite de cette discussion qui m'intéresse.

Lorsque j'utilise le code précédemment cité, à quel moment précise-t-on le mot de passe ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2009

• #11

Re : Protection

Bonsoir mulder

pour une protection avec mot de passe "toto" :

Code:

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"
Next ws

bonne soirée
@+

 

Vote positif 0 Vote négatif