Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Pas terrible la qualité des photos que tu as mis dans ton fichier, par contre je l'ai fais passer par Cjoint car ton fichier est trop lourd pour le transférer en mode normal voir le lien dispo en bas.
Ps: Voir dans gestionnaire de noms modification pour acheminer les photos dans ton...
Un truc comme ça peut-être
Sub TrouverCellulesVerrouillees()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Locked = True Then
MsgBox "Cellule verrouillée trouvée : " & cell.Address
End If
Next cell
End Sub
Slts
Bonsoir
En rajoutant ActiveSheet.Unprotect au début et ActiveSheet.Protect à la fin peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.