Verrouiller formes

Bonjours chers tous

Sur ma feuille "Menu" j'ai plusieurs formes Incorporées.

Je voudrais un code vba pour les verrouiller toutes.

Merci

Salut KTM,

à tester

Private Sub Workbook_Open()
  ActiveSheet.Protect Password:="ton mot de passe", userinterfaceonly:=True
  Dim shape As shape
  For Each shape In ActiveSheet.Shapes
    shape.Locked = True
  Next
End Sub

@++

m3ellem1 a écrit :

Salut KTM,

à tester

Private Sub Workbook_Open()
  ActiveSheet.Protect Password:="ton mot de passe", userinterfaceonly:=True
  Dim shape As shape
  For Each shape In ActiveSheet.Shapes
    shape.Locked = True
  Next
End Sub

@++

Merci beaucoup