Ou est mon erreur ?

[Bricoltou]

Bonsoir le Fil

J'ai modifié un projet dont les feuilles étaient verrouillées sans mot de passe .
J'ai éssayé de modifié mon code mais celui ci bloque sur le déverouillage .
J'ai cherché sur le Fil ,essayé plusieur chose mais je ne trouve pas mon erreur .
Pouvez vous m'aider cela me permettra de regarder le film de ce soir 😀

Voici mon code

Private Sub OK_Absence_Quai_Click()
Workbooks.Open Filename:= _
"K:\Pilotage\Camionnage\Absence.xls"
'Workbooks.Open Filename:= _
'"C:\Documents and Settings\btjoncke\Desktop\Camionnage\Absence.xls"
With Sheets("Absence_Quai")
ActiveSheet.Unprotect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, Password:="Terminal"
Dl = .Range("A65000").End(xlUp).Row + 1
If Cells(Dl, 6) = "dimanche" Then
MsgBox " vous devez archiver votre Feuille de la semaine"
End If
.Cells(Dl, 1) = CbBoxQuai_absent
.Cells(Dl, 5) = CbBoxmotif_absence
.Cells(Dl, 3) = CDate(Me.TextBox1ere_dateabsence.Value)
.Cells(Dl, 4) = CDate(Me.TextBox2eme_dateabsence.Value)
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, Password:="Terminal"
ActiveWorkbook.Save
ActiveWorkbook.Close
Me.Hide
End Sub

@+

Bricoltou

 

[Paritec]

Re : Ou est mon erreur ?

Bonsoir Bricoltout le forum,
essayes à la place de ta ligne en rouge
Sheets("Absence_Quai").Unprotect Password:="Terminal"
a+ bon film
Papou 🙂

 

[Bricoltou]

Re : Ou est mon erreur ?

Bonsoir le Forum, Papou

Papou merci pour ta réponse 🙂

sa marche

@+

Bricoltou