XL 2010 Code verrouillage des formes à toutes les feuilles

[Océane-33]

Bonsoir à tous ,

Débutante en VBA, j ai inséré dans des feuilles EXCEL des formes auxquelles j'ai mis des macros.
en voulant finalisée mon projet , impossible de verrouiller ces formes, même par les propriétés ou en protégeant le
classeur, la seule seule qui marche c 'est en protégeant la feuille active et en décochant ce que l 'on veut
mais ca marche … que sur la feuille active évidement.

Après plusieurs essais , j 'ai réussi à trouver cela avec l 'enregistreur de macro que j 'ai mis à l 'ouverture du classeur ,
mais cela marche que sur ma feuille 1.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlNoSelection

Si vous pouviez m 'aider .
Merci

 

[Staple1600]

Re

Non, le code doit être mis dans un module standard
(Dans le menu de VBE => Insérer=>Module)

Comme dirait l'autre
"Dès que tu avances sur le chemin, le chemin apparaît"
Donc bienvenue sur la route (non point de Madinson)
mais de Dim Mad As Single
Fais le test comme je l'ai fait
Un classeur, trois feuilles, et des formes différentes sur chaque feuille.
Et sur certaines formes, tu affectes une macro "bidon" de ce type

Sub Pour_Test()
MsgBox "Nous sommes le: " & Date
End Sub

 

[Océane-33]

Je viens de faire le même test que vous , cela fonctionne parfaitement, je n ai plus
qu' a essayé de l adapter à mon fichier.

J 'ai mis votre code à l ouverture :
Private Sub Workbook_Open()
Dim ws As Worksheet, shp As Shape
For Each ws In Worksheets
For Each shp In ws.Shapes
shp.Locked = True
Next shp
ws.Protect , -1, -1
Next ws
End Sub

Merci encore pour tout le temps que vous passez à aider les autres,
j 'ai lu beaucoup de vos réponse sur le forum et j 'apprends de vous.

Je me permet de vous faire un bisous de remerciement , par forum
on à encore le droit ( y a un anti virus )

 

[Staple1600]

Re

Content , l'agrafe*
1) que tu persèvères
(c'est ce que fait un padawan, toujours, avec ou sans la Force )
2) que mon code est solutionné ton problème.

J'accepte volontiers le bisou
(ca me mets du baume au coeur)

PS: Je te souhaite bonne chance pour tes recherches d'emploi pour 2021.

*: c'est le surnom que certains vieux membres d'ici m'ont donné.