Locking Shapes

[Syrus the Virus]

I have tried to lock shapes so that they can't be moved or deletde....
but I failed!!!!!!!!!!!!!!!


HELP HOW DO I LOCK SHAPES!!!!!!!!!

 

[Guest]

You need to protect the sheet to lock them

Sub LockAllShapes(
Dim shp As Shap

For Each sht In ThisWorkbook.Sheet
If sht.ProtectionMode = True The
sht.Unprotec
End I
For Each shp In sht.Shape
If shp.Locked = False The
shp.Locked = Tru
End I
Nex
sht.Protect DrawingObjects:=Tru
Nex

End Su

Hope that helps

-Brad Vontur