Protection d'une feuille à partir d'un Userform

Bonjour le forum,

J'ai encore un problème que je n'arrive pas à résoudre et j'ai besoin de l'aide de spécialistes de VBA...

J'ai bâti une petite application dans laquelle des collaborateurs saisissent des données tous les jours via un Userform. J'ai bien évidemment protégé cette feuille pour éviter les mauvaises surprises... Par contre, j'ai créé, dans ce USF, un bouton permettant de supprimer la dernière saisie. Voici mon code (qui fonctionne très bien si je déprotège manuellement l'onglet et sans les lignes ActiveWorkbook.Unprotect et Protect...) :

Private Sub ButDernierAppel_Click()
Dim Rep As Integer
Unload Me
Sheets("Récap").Select
Range("A65536").End(xlUp).Select
Rep = MsgBox("Etes-vous sûr de vouloir supprimer le dernier appel", vbYesNo, "Confirmation")
    If Rep = vbYes Then
        ActiveWorkbook.Unprotect
        ActiveCell.EntireRow.Delete
        MsgBox ("Dernier appel définitivement SUPPRIME !")
        ActiveWorkbook.Protect
        Sheets("Accueil").Select
    Else
        MsgBox ("Dernier appel conservé...")
        Sheets("Accueil").Select
    End If
End Sub

Dans une réponse qu'a faite Claude (Dubois) sur le forum, il indiquait de mettre le code dans la feuille à "protéger / déprotéger" mais je ne sais pas comment lier ce code avec le code présent dans le Userform...

J'espère avoir été assez clair et que qu'une bonne âme prendra ma demande en considération...

Merci d'avance.

Fabrice,

Bonjour le forum,

Personne pour un petit coup de main ?

Merci d'avance.

Fabrice,

Bonjour

Essaie cette solution donnée ailleurs par Galopin01

"Mets la macro suivante dans ton ThisWorkbook :

Private Sub Workbook_Open()

Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True

End Sub

La feuille sera protégée vis à vis de l'utilisateur mais restera accessible aux macros"

Cordialement

Bonjour le forum,

Merci Amadeus pour ta solution que je ne pourrai tester que demain. Je te tiens au courant.

Merci encore et bonne journée.

Fabrice,

Bonjour à tous,

Du super boulot ! Un grand merci à toi Amadeus pour l'info et un grand merci à Galopin01 pour cette petite macro qui fonctionne à merveille et correspond exactement à ce que je cherchais.

J'avais pourtant passé de longues minutes à fouiller dans le forum pour essayer de trouver la solution mais je n'avais pas vu celle de Galopin01...

Merci encore et bonne journée à tous.

Fabrice,