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

[الشربيني 123]

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

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

[Foksh]

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

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

CommandBars("Property Sheet").Enabled = True

 

[الشربيني 123]

مش نافع  للاسف

[Moosak]

جرب هذا ... 🙂 

*لإخفاء وإظهار ورقة الخصائص 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()

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