مشكلة بخصوص منع تحريك الفورم

[نويراني]

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

لدي أستفسار بخصوص منع المستخدم من تحريك الفورم آمل من العباقرة بالمنتدى الشامخ حلها 

اليوزرفورم الأول الخاص بتسجيل الدخول قمت بمنع المستخدم من تحريكه 

لكن بعد ظهور الفورم الثاني لم أستطع أن أقوم بمنعه من تحريكه 

هل يمكن أن يتم تطبيق كود منع التحريك على الفورم الثاني 

للدخول admin

123

وشكرا لكم

 

 

مساعده.xlsm

[omar elhosseini]

بعد فحص الاكود وجدت هذا الكود

فإذا كان ما تقصده هذا الكود

ضعه في فورم مستقل فقط الكود وجربة

ستجد انه لا يفعل شئ

واذا كنت تقصد كود اخر

فضع الكود هنا

 

Private Declare Function GetSystemMenu Lib "USER32" _
(ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "USER32" _
(ByVal hme2nu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "USER32" _
(ByVal lpClassName2 As String, _
ByVal lpWindowName2 As String) As Long

Private Const MF_BYPOSITION As Long = &H400

Public Sub FormatUserForm(UserFormCaption As String)

Dim lFrmHdl         As Long
Dim iCount          As Integer
    
    lFrmHdl = FindWindowA(vbNullString, UserFormCaption)
    If lFrmHdl <> 0 Then
        For iCount = 0 To 1
            RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION
        Next iCount
    End If

End Sub

 

[نويراني]

أهلا بك أخي أبو تامر

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

Private Sub UserForm_Initialize()
Call FormatUserForm(Me.Caption)
End Sub

مشكلتي لا أعرف كيف أقوم بإضافته للفورم الثاني عملت كل الطرق لم تنجح

[omar elhosseini]

اخي العزيز

احذف هذين  الكودين

ثم ضع الأكود التي في المثال التالي

 

المرفقات

Test_1.xls

[نويراني]

ماشاء الله تبارك الله ابا تامر حفظك الله ورعاك

شكرا لك من الأعماق