Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Protection auto

Protection auto

1 réponse
Avatar
Sunburn
Bonjour,

j'ai cette macro pour la protection automatique des feuilles :

En cellule B8, j'ai par exemple le 1 aout. et moi je voudrais que cette
feuille se vérouille le 15 septembre. Est-ce que mon nnombre (66 ici) est
correct? car ça ne fonctionne pas, je pense que c'est pour ça.
Merci d'avance
Yann
------
Sub VerrouAuto()
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -66 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
End If
End If
Next
End Sub
--------
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Daniel
Bonjour.
Du 1/8 au 15/9, il y a 45 ou 46 jours.
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
Bonjour,

j'ai cette macro pour la protection automatique des feuilles :

En cellule B8, j'ai par exemple le 1 aout. et moi je voudrais que cette
feuille se vérouille le 15 septembre. Est-ce que mon nnombre (66 ici) est
correct? car ça ne fonctionne pas, je pense que c'est pour ça.
Merci d'avance
Yann
------
Sub VerrouAuto()
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -66 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
End If
End If
Next
End Sub
--------