boucse79000
XLDnaute Nouveau
bonjour
j ai cette ligne de code dans une macro
Sub bouton_01()
If Intersect(ActiveCell, Range("planning")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect (pwd)
ActiveCell = Sheets("Accueil").Range("B8").Value '
ActiveCell.Interior.Color = RGB(255, 255, 255)
ActiveCell.Font.Color = RGB(0, 0, 0)
ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect (pwd)
Ma question est :
que ce passera t il si je supprim la ligne
ActiveSheet.Unprotect (pwd)
et la ligne
ActiveSheet.Protect (pwd)
merci pour vos reponses
j ai cette ligne de code dans une macro
Sub bouton_01()
If Intersect(ActiveCell, Range("planning")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect (pwd)
ActiveCell = Sheets("Accueil").Range("B8").Value '
ActiveCell.Interior.Color = RGB(255, 255, 255)
ActiveCell.Font.Color = RGB(0, 0, 0)
ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect (pwd)
Ma question est :
que ce passera t il si je supprim la ligne
ActiveSheet.Unprotect (pwd)
et la ligne
ActiveSheet.Protect (pwd)
merci pour vos reponses