Protection des cellules d'une feuille excel vba

Bonjour,
je vous prie de bien vouloir corriger l'application suivante:
- J'ai un Userform U4
- Click sur label 3---feuille (Dossier Achat) show c'est fait.

• maintenant à l'ouverture de cette feuille je veux que l'ensemble des cellules soient verrouillées, et si nous sélectionnant n'importe quelles cellules

- rien ne se produit
- aucun message ne s'affiche
- aucune formule n'apparait
- impossible d’ôter la protection par l'anglet révision.
si bouton nouveau Click certaines cellules se déverrouillent
voici le code que j'ai essayé mais ça ne m'arche pas comme je veux

Private Sub Workbook_Open()

  Sheets("Dossier Achat").Visible = True
      Sheets("Dossier Achat").Select
      ActiveSheet.Unprotect
      Sheets("Dossier Achat").Cells.Select
      Selection.Locked = True
      Selection.FormulaHidden = False
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      

 End Sub