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