Bonjour,
Je voudrais un code me permettant de locker des cellules uniquement lorsque celles-ci sont remplies, mais uniquement à la fermeture du fichier, pas lors de la sauvegarde de celui-ci.
Ou pourquoi pas, à l'ouverture du fichier.
Si possible, pouvoir définir la zone des cellules devant être verrouillées (certaines, même remplies ne doivent pas être verrouillées).
Précision, j'utilise déjà un code qui protège les feuilles de ce fichier à la fermeture de celui-ci.
Je vous mets ce code en cas de nécéssité.
Sub WsLock(Optional Y)
Dim PWd$
PWd = "1234"
'Protége ou déprotège toutes les feuilles
Application.ScreenUpdating = False
If IsMissing(Y) Then
For i = 1 To Worksheets.Count
Worksheets(i).Protect PWd
[A1].Select
Next
Else
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect PWd
[A1].Select
Next
End If
End Sub
Sub deprotege()
WsLock 0
End Sub
Sub protege()
WsLock
End Sub
Grand merci à vous pour votre aide.
Pasqi
Je voudrais un code me permettant de locker des cellules uniquement lorsque celles-ci sont remplies, mais uniquement à la fermeture du fichier, pas lors de la sauvegarde de celui-ci.
Ou pourquoi pas, à l'ouverture du fichier.
Si possible, pouvoir définir la zone des cellules devant être verrouillées (certaines, même remplies ne doivent pas être verrouillées).
Précision, j'utilise déjà un code qui protège les feuilles de ce fichier à la fermeture de celui-ci.
Je vous mets ce code en cas de nécéssité.
Sub WsLock(Optional Y)
Dim PWd$
PWd = "1234"
'Protége ou déprotège toutes les feuilles
Application.ScreenUpdating = False
If IsMissing(Y) Then
For i = 1 To Worksheets.Count
Worksheets(i).Protect PWd
[A1].Select
Next
Else
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect PWd
[A1].Select
Next
End If
End Sub
Sub deprotege()
WsLock 0
End Sub
Sub protege()
WsLock
End Sub
Grand merci à vous pour votre aide.
Pasqi