كود ايقاف عمل مفتاح كنترول او شيفت

[الفارس محمد رجب]

السلام عليكم اخوانى الاعزاء-- كل عام وانتم باتم خير -

اريد كود يمنع ظهور فورم(form1) عند الضغط على مفتاح كنترول او مفتاح شيفت

[أبومروان]

وعليكم السلام جرب هذا

يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift:

يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift:

```
Private Sub Workbook_Open()
    UserForm1.Hide
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    UserForm1.Hide
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    UserForm1.Hide
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
    UserForm1.Hide
End Sub

Private Sub Workbook_WindowScroll(ByVal Wn As Excel.Window)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    UserForm1.Hide
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    UserForm1.Hide
End Sub
```
 

 

[الفارس محمد رجب]

شكرا لك اخى-- كريم نظيم جزاك الله كل خير   ولكن ما اريده هو لدى فورم --وعندما اريد اغلاقه اضغط على علامة X --واريد كود يقوم باغلاق الفورم عند الضغط على مفتاح كونترول اوشيفت وليس علامة X 

[أبومروان]

اتفضل ي استاذ @الفارس محمد رجب

جرب هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = (vbCtrlMask Or vbShiftMask) Then
        Unload Me
    End If
End Sub

 ودا كود تعطيل زر  جرب

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "تم تعطيل زر الإغلاق!", vbInformation, "تحذير"
    End If
End Sub