اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مشكلة عدم فتح الخصائص


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

السلام عليكم يا سادة يا كرام ....... حصلت مشكلة عندي مش فاهمها ..... القاعدة كانت شغالة عادي تفتح في وضع التصميم و تفتح خصائص اي حاجة في الورقة تنسق عادي 

الان تفتح في وضع التصميم ولا تفتح خصائص اي شيء في التصميم ؟!!!!!!!!!!!!!!!!!!! ما السبب

رابط هذا التعليق
شارك

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

جرب استخدام هذا الكود في محرر الأكواد VBA اضغط ( ctrl + G ) ، ثم اكتب السطر التالي :-
 

CommandBars("Property Sheet").Enabled = True

 

رابط هذا التعليق
شارك

جرب هذا ... 🙂 

*لإخفاء وإظهار ورقة الخصائص PropertySheet*

*شرح الكود:*
من عند المهندس أبا جودي

*الكود:*
'================================(الروتين العام)
Private Sub EnablePropertySheet()
Dim obj As Object
For Each obj In CommandBars
    If obj.Index < 10 Then
        obj.Enabled = True
    End If
 Next obj
End Sub


Private Sub DisablePropertySheet()
Dim obj As Object
For Each obj In CommandBars
    If obj.Index < 10 Then
        obj.Enabled = False
    End If
 Next obj
End Sub

'================================(الأوامر التي توضع على الأزرار للاستدعاء)
Private Sub BtnOn_Click()
On Error GoTo ErrHandler
    CommandBars("Property Sheet").Enabled = True
ErrHandler:
  If Err Then Call EnablePropertySheet
End Sub

Private Sub BtnOff_Click()
On Error GoTo ErrHandler
        CommandBars("Property Sheet").Enabled = True
        CommandBars("Property Sheet").Enabled = False
ErrHandler:
  If Err Then Call DisablePropertySheet
End Sub

*طريقة الاستدعاء (الاستخدام):*
يوضعان على زرين أحدهما لإخفاء ورقة الخصائص والثاني لإظهارها
Private Sub BtnOff_Click()
Private Sub BtnOn_Click()

*مكتبة الأكواد*

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information