bonjour
j ai un fichier qui fonctionne très bien sauf il y a mot de passe sans code juste en cliquant révision oter le mot de passe suffit
je voudrais donc rajoute un mot de passe pour que quand on clique révision oter le mot de passe sa demande par exemple toto
merci d avance a tout ceux et celle qui pourrons m aider
vous aurez ma gratitude éternelle
voila le code
Private Sub Worksheet_Change(ByVal Target As Range)
' Vérifie si la cellule modifiée est G2
If Not Intersect(Target, Me.Range("G2")) Is Nothing Then
' Déverrouille temporairement la feuille pour permettre les modifications
Me.Unprotect
' Vérifie si la valeur de G2 est une date valide
If IsDate(Me.Range("G2").Value) Then
Dim dateSaisie As Date
Dim moisCourant As Integer
Dim anneeCourante As Integer
dateSaisie = CDate(Me.Range("G2").Value)
moisCourant = Month(Date)
anneeCourante = Year(Date)
' Vérifie si la date saisie est dans le mois et l'année courants
If Month(dateSaisie) = moisCourant And Year(dateSaisie) = anneeCourante Then
' Déverrouille toutes les cellules si la date est dans le mois courant
Me.Cells.Locked = False
MsgBox "Toutes les cellules sont déverrouillées car la date saisie est dans le mois en cours.", vbInformation
Else
' Verrouille toutes les cellules sauf G2 si la date n'est pas dans le mois courant
VerrouillerFeuille
MsgBox "Toutes les cellules sauf G2 sont verrouillées car la date saisie n'est pas dans le mois en cours.", vbExclamation
End If
Else
' Verrouille la feuille si la valeur de G2 n'est pas une date valide
VerrouillerFeuille
MsgBox "Veuillez saisir une date valide dans la cellule G2.", vbExclamation
End If
' Protège la feuille après modification
Me.Protect
End If
End Sub
Private Sub VerrouillerFeuille()
' Protège la feuille en verrouillant toutes les cellules sauf G2
Me.Unprotect
Me.Cells.Locked = True
Me.Range("G2").Locked = False
Me.Protect
End Sub
j ai un fichier qui fonctionne très bien sauf il y a mot de passe sans code juste en cliquant révision oter le mot de passe suffit
je voudrais donc rajoute un mot de passe pour que quand on clique révision oter le mot de passe sa demande par exemple toto
merci d avance a tout ceux et celle qui pourrons m aider
vous aurez ma gratitude éternelle
voila le code
Private Sub Worksheet_Change(ByVal Target As Range)
' Vérifie si la cellule modifiée est G2
If Not Intersect(Target, Me.Range("G2")) Is Nothing Then
' Déverrouille temporairement la feuille pour permettre les modifications
Me.Unprotect
' Vérifie si la valeur de G2 est une date valide
If IsDate(Me.Range("G2").Value) Then
Dim dateSaisie As Date
Dim moisCourant As Integer
Dim anneeCourante As Integer
dateSaisie = CDate(Me.Range("G2").Value)
moisCourant = Month(Date)
anneeCourante = Year(Date)
' Vérifie si la date saisie est dans le mois et l'année courants
If Month(dateSaisie) = moisCourant And Year(dateSaisie) = anneeCourante Then
' Déverrouille toutes les cellules si la date est dans le mois courant
Me.Cells.Locked = False
MsgBox "Toutes les cellules sont déverrouillées car la date saisie est dans le mois en cours.", vbInformation
Else
' Verrouille toutes les cellules sauf G2 si la date n'est pas dans le mois courant
VerrouillerFeuille
MsgBox "Toutes les cellules sauf G2 sont verrouillées car la date saisie n'est pas dans le mois en cours.", vbExclamation
End If
Else
' Verrouille la feuille si la valeur de G2 n'est pas une date valide
VerrouillerFeuille
MsgBox "Veuillez saisir une date valide dans la cellule G2.", vbExclamation
End If
' Protège la feuille après modification
Me.Protect
End If
End Sub
Private Sub VerrouillerFeuille()
' Protège la feuille en verrouillant toutes les cellules sauf G2
Me.Unprotect
Me.Cells.Locked = True
Me.Range("G2").Locked = False
Me.Protect
End Sub
