Protection

Bonjour Pascal,


'--------------------------------
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Unprotect 'Mot de passe si nécessaire
With .Range("A:A")
.Cells.Locked = False
.End(xlUp).Offset(1, 0).Locked = True
End With
.EnableSelection = xlUnlockedCells
.Protect 'mot de passe si nécessaire
End With
End Sub
'--------------------------------

"Pascal" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
O3YC$VAHKHA.4436@TK2MSFTNGP04.phx.gbl...
Bonjour,

Excel 2007

Après:

Private Sub Workbook_Open()
[a65536].End(xlUp).Offset(1, 0).Select
End Sub

Comment faire pour protéger en écriture et sélection, toutes les lignes au
dessus et en dessous de la selection

Merci

Pascal

Je crois que c'est ceci que tu désires, l'inverse de ce que fait la procédure :

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Unprotect 'Mot de passe si nécessaire
With .Range("A:A")
.Cells.Locked = True
.End(xlUp).Offset(1, 0).Locked = False
End With
.EnableSelection = xlUnlockedCells
.Protect 'mot de passe si nécessaire
End With
End Sub

Merci Denis

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23dlTQxAHKHA.3000@TK2MSFTNGP04.phx.gbl...

Je crois que c'est ceci que tu désires, l'inverse de ce que fait la
procédure :

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Unprotect 'Mot de passe si nécessaire
With .Range("A:A")
.Cells.Locked = True
.End(xlUp).Offset(1, 0).Locked = False
End With
.EnableSelection = xlUnlockedCells
.Protect 'mot de passe si nécessaire
End With
End Sub