macro protéger toutes les feuilles

[anmapie]

Bonjour à tous,

J'ai ici une petite macro qui protège toutes les feuilles du classeur. Elle fonctionne très bien pour Excel 2000, par contre en Excel 2002(XP) elle ne fonctionne pas du tout, j'ai un message disant qu'il ne trouve pas l'argument nommé.

Pouvez-vous m'aider car je ne connais pas VBA!

Merci à tous.

Voici ma macro:

' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect , password:="test"
Next i

'
End Sub

 

[jpierre]

salut,

Voila le code pour deproteger et proteger les feuilles en meme temps


Option Explicit
Sub DeprotectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect password:="ton mot de passe"
On Error GoTo sortie
Suite:
Next Feuil
Exit Sub
sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub



Option Explicit
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect password:="ton mot de passe"
Next Feuil
End Sub


A+

Jpierre

 

[anmapie]

Merci beaucoup Jean-Pierre,

La macro fonctionne bien pour Excel 2002. Par contre je rencontre un autre problème.

Dans mon entreprise certaines personnes utilise Excel 2000 et d'autres Excel 2002, si j'utilise la macro de protection en 2002 et qu'un autre employé ouvre le même fichier et veut enlever la protection, le mot de passe est invalide si je le fais manuellement feuillle par feuille, et la macro que j'ai pour déprotéger en 2000 ne fonctionne pas. Je rencontre également le problème à l'inverse.

Est-ce qu'il y a un moyen d'avoir une macro qui va fonctionner autant avec les 2 versions.

Merci encore

Anmapie

 

[jpierre]

salut,

désolé pour le retard

cette macro tourne sur mes PC sous excel 2000 sans probleme et comme il tourne sur 2002 donc normalement il n'y a plus de souci
le seul probleme que tu peux rencontrer est peut etre d'avoir un fichier en mode partagé et la c'est insolvable

Sinon, la seul solution est de savoir quel EXCEL la personne utilise et de l'envoyer vers tel ou tel macro
Pour cela voici un lien a suivre
http://www.excel-downloads.com/html/French/forum/messages/1_33940_33940.htm

A+
jpierre