حماية الصفحة ماعدا الزر

[مستر ابو مرمر]

مرفق ملف عندما اضع له الحماية لا يشتغل زر انقاص او زيادة

ارجو من الخبراء المساعدة في حماية الشيت و لكن هذا الزر يكون شغال

New folder.rar

تم تعديل مايو 21, 2015 بواسطه merola2010

[علي الشيخ]

السلام عليكم

مرحبا أخي

انا جربت اكثر من شئ صراحة ما اشتغل على Activx Control الموجود " Spinner "

ما ظبطت 

 

ولكن جربت كحل بديل اني عملت 2 ماكرو واحد لزيادة الرقم الذي يتم تغيير والأخر لنقص الرقم 

 

بأكواد بسيطة 

Range("I2").Value = [I2] + 1

Range("I2").Value = [I2] - 1

وتم حماية الصفحة كاملة واستخدام الكود التالي في حدث Thisworkbook  > Workbook_Open

 

حتى يتم حل مشكلة الباسورد

Private Sub Workbook_Open()

Dim wSheet As Worksheet

    For Each wSheet In Worksheets

       wSheet.Protect Password:="", _
        UserInterFaceOnly:=True
Next wSheet
End Sub

الباسورد طبعا انا حطيته فارغ ""

وإنما لو في باسورد أخر هيكون مكانه كالتالي

wSheet.Protect Password:="كلمة السر تكتب هنا ", _

المنادة 2.rar