السلام عليكم 
كود جعل التركيز على الشيت في حالة الفورم مفتوح 
هذا في حالة فتح الفورم عن طريق زر 
 
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