منع فتح البرنامج على الجوال

[أبو الخضر البعيثي]

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

وجعلكم الله من السالمين الغانمين . وعيد مبارك وكل عام والجميع في خير وعافية .

عندي سؤال بسيط لا أعتقد أنه يحتاج إلى ملف مرفق .

ااسؤال هو :

هل هناك كود برمجي لمنع فتح ملف الأكسل بواسطة الجوال .

لأنه من المعروف أن الملفات المحتوية على أكواد وااصفحات مخفية ، يمكن أن تفتح بالجوالات وتظهر الصفحات .

خالص تحياتي لكم جميعا .

[Saleh Ahmed Rabie]

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

**كل عام وأنتم بخير وعافية**

**نعم، يوجد كود برمجي لمنع فتح ملف Excel بواسطة الهاتف المحمول.**

**إليك الكود:**

```

Private Sub Workbook_Open()
    If Application.Mobile Then
        MsgBox "Sorry, this workbook cannot be opened on a mobile device."
        Application.Quit
    End If
End Sub

```

**كيفية استخدام الكود:**

1. افتح ملف Excel الخاص بك.
2. انقر فوق علامة التبويب "المطور".
3. انقر فوق "Visual Basic" لفتح محرر Visual Basic.
4. انقر بزر الماوس الأيمن فوق اسم المصنف في الجزء الأيسر من المحرر.
5. انقر فوق "عرض التعليمات البرمجية".
6. الصق الكود في نافذة التعليمات البرمجية.
7. احفظ المصنف.

**عند محاولة فتح المصنف على جهاز محمول، ستظهر رسالة خطأ تفيد بأنه لا يمكن فتح المصنف.**

**ملاحظة:**

* هذا الكود يمنع فقط فتح المصنف على الأجهزة المحمولة.
* لا يزال بإمكان المستخدمين عرض محتويات المصنف إذا قاموا بتحميله على جهاز كمبيوتر.
 

[Saleh Ahmed Rabie]

 

ويمكنك استخدام الكود التالي  لمنع فتح ملف Excel عبر الجوال وإخفاء جميع الأوراق في الملف:

Private Sub Workbook_Open()
    If Application.UserName = "اسم المستخدم هنا" And Application.OperatingSystem Like "*phone*" Then
        MsgBox "غير مسموح بفتح هذا الملف عبر الجوال", vbExclamation
        ThisWorkbook.Close False
    Else
        Dim ws As Worksheet
        For Each ws In ThisWorkbook.Sheets
            ws.Visible = xlSheetHidden
        Next ws
    End If
End Sub

يجب استبدال "اسم المستخدم هنا" بالاسم المستخدم الذي تريد منعه من فتح الملف عبر الجوال. يقوم الكود أولاً بالتحقق إذا كان المستخدم هو المستخدم المحدد وإذا كان نظام التشغيل هو الهاتف، سيتم عرض رسالة تنبيه وإغلاق الملف، وإلا سيتم إخفاء جميع الأوراق في الملف.

 

[Saleh Ahmed Rabie]

كود VBA لحذف الشيتات المخفية في ملف Excel عند محاولة فتحها في الجوال وعدم حذفها عند فتحها في اللابتوب:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim deleteHiddenSheets As Boolean
    Dim operatingSystem As String
    operatingSystem = Application.OperatingSystem
    
    If operatingSystem Like "*phone*" Then
        deleteHiddenSheets = True
    Else
        deleteHiddenSheets = False
    End If

    If deleteHiddenSheets Then
        Application.DisplayAlerts = False
        For Each ws In ThisWorkbook.Sheets
            If ws.Visible = xlSheetHidden Then
                ws.Delete
            End If
        Next ws
        Application.DisplayAlerts = True
    End If
End Sub

يقوم هذه الكود بفحص نوع نظام التشغيل وفي حال كان النظام هو هاتف (جوال)، سيتم حذف جميع الشيتات المخفية. وإذا كان النظام ليس هاتف (مثل اللابتوب)، لن يتم حذف الشييتات المخفية. يمكنك استخدام هذا الكود في ملف Excel الخاص بك لتحقيق ذلك.

[Saleh Ahmed Rabie]

وللحماية من فتح ملفات Excel على الجوال يمكنك استخدام الكود التالي في VBA:

Private Sub Workbook_Open()
    If Application.OperatingSystem Like "*phone*" Then
        MsgBox "لا يمكن فتح هذا الملف على الهاتف الجوال", vbExclamation
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

يقوم الكود بفحص نظام التشغيل الذي يعمل عليه Excel، وإذا كان النظام هو هاتف جوال فسيتم عرض رسالة تنبيه تخبر المستخدم بأنه لا يمكن فتح الملف على الهاتف الجوال وسيتم إغلاق الملف دون حفظ التغييرات. 

يمكنك إضافة هذا الكود في "ThisWorkbook" في محرر الفيجوال بيسيك لتطبيقه عند فتح الملف.

[أبو الخضر البعيثي]

شكر الله لك

[حسونة حسين]

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

أكواد VBA لا تعمل على الجوال لأن الجوال لا يدعم تشغيل برامج Excel التي تحتوي على VBA

[mahmoud nasr alhasany]

احسنت ا/ حسونة حسين

بارك الله فيك