حماية ملف اكسل 2003 بكود

جمال حسين رشدان · أغسطس 24, 2012

السلام عليكم ورحمة الله وبركاته

أعضاء هذا المنتدى الرائع وأسأل الله أن يجعل ماتقدموه من خير في ميزان حسناتكم

عندي اكسل 2003 وأريد حماية الملف ( وليس حماية الورقة ) بكود ضد اي حذف للأوراق او بنية الملف وذلك دون اللجوء الى الأمر الذي في شريط الأدوات

وجزاكم الله عنا خيرا

**أبو حنــــين** · أغسطس 24, 2012

يمكن ان تضع هذا الكود حيث 123 تمثل كلمة الحماية


Private Sub Workbook_Open()

ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True

End Sub

**Akram Galal** · أغسطس 24, 2012

جزاك الله خيرا

جمال حسين رشدان · أغسطس 25, 2012

جزاك الله كل خير اخي ابو حنين ولا حرمنا الله من علمك

**أبو حنــــين** · أغسطس 25, 2012

شكرا لك اخي جمال حسين على مرورك الطيب

**هاني عدلي** · أغسطس 25, 2012

رائـــــــــــــــع أستاذنا / أبو حنين

تقبل مروري

:fff:

الردود الموصى بها