OVH Cloud OVH Cloud

protéger/déprotéger plusieurs feuilles en une fois

3 réponses
Avatar
Yann
Salut la foule,

Voila j'ai trouve sur l'exelent site excelabo la methode pour protege ou
deprotege plusieur feuilles en une seul fois ->
http://www.excelabo.net/xl/protection.php#protectionmultifeuillep mais il me
faudrait qu'une fenetre s'ouvre pour demande le code, car j'ai plusieur
classeur avec des codes different (oui je sais je suis maso ;o)).

Je suis totalement debutant en VBA mais pas trop co*
Si qqu pouvais m'informer ce serais super ou juste me donner la facon de
pouvoir faire cette variable.
j'aime bien me prendre la tete, et c'est la meilleur facon d'apprendre.

Je tourne avec XP pro et office 2003

Merci pour tous
Yann

3 réponses

Avatar
Rom1
salut
si tu veux saisir le code de la feuille pour la déproteger, le mieux c'est
de ne pas le préciser dans la macro.

une solution:
Sub test()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Unprotect
Next
End Sub
Pour chaque feuille une fenetre apparait pour te demander le code .
salut


"Yann" a écrit dans le message de
news:%
Salut la foule,

Voila j'ai trouve sur l'exelent site excelabo la methode pour protege ou
deprotege plusieur feuilles en une seul fois ->
http://www.excelabo.net/xl/protection.php#protectionmultifeuillep mais il
me

faudrait qu'une fenetre s'ouvre pour demande le code, car j'ai plusieur
classeur avec des codes different (oui je sais je suis maso ;o)).

Je suis totalement debutant en VBA mais pas trop co*
Si qqu pouvais m'informer ce serais super ou juste me donner la facon de
pouvoir faire cette variable.
j'aime bien me prendre la tete, et c'est la meilleur facon d'apprendre.

Je tourne avec XP pro et office 2003

Merci pour tous
Yann





Avatar
Yann
Salut

En fait ce qui me faut c'est ca mais pour un fichier entier et non pour
chaque page.
Donc il faut que je fasse une variable (je pense) mais le problem c'est que
je n'y arrive pas ;o((

Merci
Yann


"Rom1" wrote in message
news:
salut
si tu veux saisir le code de la feuille pour la déproteger, le mieux c'est
de ne pas le préciser dans la macro.

une solution:
Sub test()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Unprotect
Next
End Sub
Pour chaque feuille une fenetre apparait pour te demander le code .
salut


"Yann" a écrit dans le message de
news:%
Salut la foule,

Voila j'ai trouve sur l'exelent site excelabo la methode pour protege ou
deprotege plusieur feuilles en une seul fois ->
http://www.excelabo.net/xl/protection.php#protectionmultifeuillep mais
il


me
faudrait qu'une fenetre s'ouvre pour demande le code, car j'ai plusieur
classeur avec des codes different (oui je sais je suis maso ;o)).

Je suis totalement debutant en VBA mais pas trop co*
Si qqu pouvais m'informer ce serais super ou juste me donner la facon de
pouvoir faire cette variable.
j'aime bien me prendre la tete, et c'est la meilleur facon d'apprendre.

Je tourne avec XP pro et office 2003

Merci pour tous
Yann









Avatar
Rom1
d'accord
alors si j'ai bien compris cette fois ci, tu cherches à ouvrir plusieurs
classeurs contenu dans un dossier.

voici un code qui pourrait faire l'affaire:
il faut que tu changes le chemin et que tu mettes celui qui contient tes
classeurs.

Sub ouvrir()
Set comfich = Application.FileSearch
With comfich
.LookIn = "C:Documents and SettingsromainBureautest"
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i)
On Error Resume Next
Next
Else
End If
End With
End Sub

Dis moi si c'est se que tu cherches !
a+
romain

"Yann" a écrit dans le message de
news:e%
Salut

En fait ce qui me faut c'est ca mais pour un fichier entier et non pour
chaque page.
Donc il faut que je fasse une variable (je pense) mais le problem c'est
que

je n'y arrive pas ;o((

Merci
Yann


"Rom1" wrote in message
news:
salut
si tu veux saisir le code de la feuille pour la déproteger, le mieux
c'est


de ne pas le préciser dans la macro.

une solution:
Sub test()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Unprotect
Next
End Sub
Pour chaque feuille une fenetre apparait pour te demander le code .
salut


"Yann" a écrit dans le message de
news:%
Salut la foule,

Voila j'ai trouve sur l'exelent site excelabo la methode pour protege
ou



deprotege plusieur feuilles en une seul fois ->
http://www.excelabo.net/xl/protection.php#protectionmultifeuillep mais
il


me
faudrait qu'une fenetre s'ouvre pour demande le code, car j'ai
plusieur



classeur avec des codes different (oui je sais je suis maso ;o)).

Je suis totalement debutant en VBA mais pas trop co*
Si qqu pouvais m'informer ce serais super ou juste me donner la facon
de



pouvoir faire cette variable.
j'aime bien me prendre la tete, et c'est la meilleur facon
d'apprendre.




Je tourne avec XP pro et office 2003

Merci pour tous
Yann