Bonjour à tous !
J'ai un classeur que j'ai protégé entièrement via ceslignes de formule
Sub Protéger()
Dim ws As Worksheet
rrr = InputBox("donnez le mot de passe svp")
For Each ws In Worksheets
If ws.Name = ("Accueil") Then
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlUnlockedCells
ws.Protect
Else:
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlNoSelection
ws.Protect
End If
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayGridlines = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Sheets("Accueil").Select
End Sub
Néanmoins, je voudrais apporter une modification, je veux que tout le classeur soit protégé (comme ça l'est actuellement) SAUF les cellules I6:I43 de la feuille intitulée "Concurrence", savez vous à quelles lignes je dois rajouter ?
Merci bcp
CDT, Ripou
J'ai un classeur que j'ai protégé entièrement via ceslignes de formule
Sub Protéger()
Dim ws As Worksheet
rrr = InputBox("donnez le mot de passe svp")
For Each ws In Worksheets
If ws.Name = ("Accueil") Then
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlUnlockedCells
ws.Protect
Else:
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlNoSelection
ws.Protect
End If
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayGridlines = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Sheets("Accueil").Select
End Sub
Néanmoins, je voudrais apporter une modification, je veux que tout le classeur soit protégé (comme ça l'est actuellement) SAUF les cellules I6:I43 de la feuille intitulée "Concurrence", savez vous à quelles lignes je dois rajouter ?
Merci bcp
CDT, Ripou