Protection

Le
Pascal
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19922431
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" O3YC$
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
MichDenis
Le #19922481
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
Pascal
Le #19922761
Merci Denis

"MichDenis" %
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






Publicité
Poster une réponse
Anonyme