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
MichDenis
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" a écrit dans le message de groupe de discussion : 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
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
'-------------------------------- 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" a écrit dans le message de groupe de discussion : 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
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
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
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
Merci Denis
"MichDenis" a écrit dans le message de news: %
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
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