Protection et mdp

Le
sunburn
Bonjour,
comment puis-je ajouter un mot de passe à cette protection ?? :
--
Sub ProtegerFeuilles() ' Protection de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
With Worksheets(I)
.Protect , DrawingObjects:=True, UserInterfaceOnly:=True,
AllowFormattingRows:=True
.EnableSelection = xlUnlockedCells
End With
Next I
End Sub
--
car j'ai essayé plusieurs choses, et ça ne marche pas.
Merci de votre aide.

YANN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20448221
.Protect Password:="toto", DrawingObjects:=True,
UserInterfaceOnly:=True, AllowFormattingRows:=True
Daniel

Bonjour,
comment puis-je ajouter un mot de passe à cette protection ?? :
-----
Sub ProtegerFeuilles() ' Protection de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
With Worksheets(I)
.Protect , DrawingObjects:=True, UserInterfaceOnly:=True,
AllowFormattingRows:=True
.EnableSelection = xlUnlockedCells
End With
Next I
End Sub
-----
car j'ai essayé plusieurs choses, et ça ne marche pas.
Merci de votre aide.

YANN


FFO
Le #20448211
Salut à toi

.Protect ("Password"), DrawingObjects:=True, UserInterfaceOnly:=True,..
......

Celà devrait convenir
sunburn
Le #20448721
Impec, je te remercie, ça me va bien.
YANN

"FFO" wrote:

Salut à toi

.Protect ("Password"), DrawingObjects:=True, UserInterfaceOnly:=True,..
......

Celà devrait convenir




Publicité
Poster une réponse
Anonyme