حماية الصور والأشكال في الاكسيل

[الاحقاف]

السلام عليكم.كيف يمكن حماية صورة او شكل داخل شيت الاكسيل. بحيث لو مثلا عملنا ارتباط تشعبي لها أو مثلا صممنا زر بشكل معين ولا نريد المستخدم أن يقوم بعمل تغييرات عليه أو نقله من مكان إلى اخر.

أرجو أن يكون السؤال واضح.

[Ali Mohamed Ali]

وعليكم السلام-يمكنك استخدام هذا الكود للحماية

Sub ActiveSht_ProtectShapes()
'Aug 19, 2015
ActiveSheet.Unprotect Password:="123"
For Each s In ActiveSheet.Shapes
s.Locked = True
Next
ActiveSheet.Protect Password:="123"
End Sub

أما كود فك الحماية فهو

Sub ActiveSht_UnProtectShapes()
'Aug 19, 2015
ActiveSheet.Unprotect Password:="123"
For Each s In ActiveSheet.Shapes
s.Locked = False
Next
End Sub

 

Protect.xlsm

[الاحقاف]

جزاك الله خير استاذ علي.

[أحمد يوسف]

اين الضغط على الإعجاب ؟!!!!!