Macro pour limiter les modifications sur un planning

Question

Bonjour,

Je cherche à verrouiller les modifications de mon planning de congés du service. Il faudrait dans l'idéal que le mois suivant soit bloqué si on a dépassé le 15 du mois en cours.

Ex : si on est le 15 octobre, je ne peux plus modifier le mois de novembre.

J'aimerai également que mon administrateur puisse quand même faire des modifications grâce à un mot de passe. J'ai donc cherché et construit cette macro-là :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim currentDate As Date

Dim lockDate As Date

Dim password As String

currentDate = Date

lockDate = DateSerial(Year(currentDate), Month(currentDate), 15) - 1

password = "Marielle8"

Dim row6 As Range

Set row6 = Me.Rows(6)

If not currentDate > lockDate And Intersect(Target, row6) Is Nothing Then 

    Dim userInput As String

    userInput = InputBox("Entrez le mot de passe :")        

    If userInput = password Then  

        Me.Unprotect password

        row6.Locked = False

        Me.Protect password

    Else

        Me.Protect password

        MsgBox "mot de passe incorrect, aucune modification possible", vbExclamation

    End If

End If

End Sub

Seul hic : ça me déclenche le verrouillage de toute la feuille sans distinction des dates. Pour info, les dates sont toutes écrites en ligne 6.

Sauriez-vous soit améliorer cette macro ou bien m'en suggérer une autre ?

À bientôt

Answer 1

Bonjour,

Pas de souci.

Pour ton problème, il faut que les cellules soient déverrouillées au préalable.

Daniel

Answer 2

Bonjour,

D'abord merci pour votre réponse et désolé pour mon délai de retour je n'avais pas accés à mon poste.

Effectivement la macro verrouille bien la page mais dans sa totalité et je n'ai donc pas la possibilité de modifier les autres mois (novembre par exemple) il faut à chaque fois que j'ote le verrouillage de la feuille avec le mot de passe

Answer 3

Essaie :

Dim C As Range
If Day(Date) > 15 Then
For Each C In Intersect(Columns(6), ActiveSheet.UsedRange)
Debug.Print C.Address
If IsDate(C) Then
If C >= DateSerial(Year(Date), Month(Date) + 1, 1) Then
C.Locked = True
End If
End If
Next C
End If

Daniel

Answer 4

Bonjour,

Et avant le 15, y a-t-il quelque chose de bloqué ?

Daniel