Protection de feuilles

[Nohope]

Bonjour ,
J'ai un classeur avec 10 feuilles , le matin en arrivant au travail je dois les deproteger une par une , protege a midi , bref ca devient un peu penible ; existe t'il un moyen de proteger toutes les feuilles en meme temps , j'ai bien essayer de faire protection classeur , mais je vois pas trop ce que cela protege etant donne que je peux continuer a entre des données .
Merci d'avance .

 

[justine]

Re : Protection de feuilles

bonsoir le forum, nohope
au lieu de proteger et deproteger toutes les feuilles, pourquoi ne protege tu pas ton document ?

 

[Pierrot93]

Re : Protection de feuilles

Bonsoir Nohope, Justine

2 macros ci dessous, la première protège, la 2ème déprotège

Sub protectionFeuilles()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "toto"
Next sh
End Sub

Sub deprotectionFeuilles()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Unprotect "toto"
Next sh
End Sub

à placer dans un module standard et à affecter à des boutons.

bonne soirée
@+

 

[Nohope]

Re : Protection de feuilles

Le document est en partage sur reseau , en lecture seule , seul moi est un acces total a ce fichier pour modif ou autre .

 

[Nohope]

Re : Protection de feuilles

Le soucis pierrot93 est que le fichier est en partage , donc si qqn clique sur le bouton deprotege il peut faire se qu'il veut non ?

 

[Pierrot93]

Re : Protection de feuilles

Re

tu peux utiliser le code que je t'ai donné en le placant dans un autre classeur enregistré sur ton ordi. Tu modifies les lignes "for each" comme suit :

For Each sh In Workbooks("classeurprotege").Worksheets

@+

Edition : les 2 classeurs doivent être ouverts.

 

[justine]

Re : Protection de feuilles

rebonsoir, nohope, pierrot93
pour poursuivre l'idee de la macro de notre ami pierrot93 que je salue .
Sub deprotectionFeuilles()
Dim sh As Worksheet
dim mdp as string (je crois que c'est le premier mot en VBA que les mec retiennent)
mdp=inputbox" entrez votre mot de passe"
if mdp<>"toto" then
exit sub
else
For Each sh In Worksheets
sh.Unprotect "toto"
Next sh
end if
End Sub

 

[Nohope]

Re : Protection de feuilles

Merci je teste ca 🙂

 

[Nohope]

Re : Protection de feuilles

cette fonction ne veut pas passer : mdp=inputbox " entrez votre mot de passe "

 

[Pierrot93]

Re : Protection de feuilles

Re

il doit manquer les parenthèses...

Dim mdp As String
mdp = InputBox("mot de passe ?")

@+

 

[justine]

Re : Protection de feuilles

re
oui mince il faut des parentheses

mdp=inputbox("mot de passe")

 

[JCGL]

Re : Protection de feuilles

Bonjour à tous,
Salut Justine,
Salut Pierrot

Et mettre un ' derrière le string :

dim mdp as string '(je crois que c'est le premier mot en VBA que les mec retiennent)

Arf

A+

 

[Nohope]

Re : Protection de feuilles

Merci beaucoup a vous 2 pour ce coup de main , j'aurais encore une question pour ameliorer mon fichier ,mais cela va attendre un peu .
Encore merci a Justine et Pierrot93

 

[justine]

Re : Protection de feuilles

re
il faut poser ta question pendant qu'on est chaud

JCGL, l'apostrophe derriere le string, je pense que tout le monde a compris ce que j'ai voulu dire

 

[JCGL]

Re : Protection de feuilles

Re,

Ce n'était qu'un peu d'humour...

A+