السلام عليكم
كود جعل التركيز على الشيت في حالة الفورم مفتوح
هذا في حالة فتح الفورم عن طريق زر
Sub OPEN_FPRM()
UserForm1.Show vbModeless
MyAppActive Application.hwnd
End Sub
وهذا الكود ينحط في موديل
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Sub MyAppActive(Handle As Long)
Dim lngStatus As Long
lngStatus = SetForegroundWindow(Handle)
End Sub
وهذا بديل لكود فتح الفورم في حالة تريد فتح الفورم عن طريق خليه معينه
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
UserForm1.Show vbModeless
MyAppActive Application.hwnd
End If
End Sub
ولي طلب
ارجو من لديه كود لجعل الفورم في المقدمه ولاكن في الويندوز عامه
وليس في االاكسل فقط
بمجرد ماافتح برنامج ترجع الفورمه فوقه وهكذا
تحياتي
وهذا مرفق
تركيز على الشيت.rar