Protéger les cellules d'une feuille

[Ludo]

Bonjour

J'utilise Excel 97 au travail et Excel XP à la maison. Malheureusement les macros que j'utilise sur XP ne sont pas toute compatible sur 97.

Alors j'aurais quelques questions à vous posez mais pour faciliter les réponses je ferais plusieurs sujet dans le courant de la journée.

1) question

Pour protéger & déprotéger les cellules d'une feuilles j'utilise la macro suivante.

Dans ma feuille (1)

Pour protéger "obligation de mettre un mot de passe"

Private Sub ProtectFeuil1_Click()
Dim sht As Worksheets
Dim MotPass
MotPass = inputBox("Taper un mot de passe", "Protéger")
For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=(test), Contents:=True, _
DrawingObjects:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowSorting:=True
Next sht
End Sub

Pour déprotéger "obligation de mettre un mot de passe"

Private Sub UnProtectFeuil1_Click()
Dim sht As Worksheets
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub

Quelqu'un aurait une idée pour Excel 97

Merci de votre aide

Ludo

 

[A_binouze_drinker_among_others]

bonjour

je pense que les paramètres AllowFormattingCells & AllowSorting:=True n'existent pas sous XL97 et infra, essaye de les ôter

bye