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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
.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
.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.
.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.