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
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
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