
' ============================================
' Module Startup - بدء تشغيل النظام
' ============================================

Option Explicit

' ============================================
' فتح فورم تسجيل الدخول تلقائياً عند فتح الملف
' ============================================
Public Sub Auto_Open()
    ' إخفاء جميع أوراق العمل (مع معالجة الأخطاء)
    ' ملاحظة: Excel يتطلب ورقة واحدة على الأقل مرئية
    Dim ws As Worksheet
    Dim sheetCount As Long
    Dim hiddenCount As Long
    
    ' حساب عدد الأوراق
    sheetCount = ThisWorkbook.Worksheets.count
    
    ' محاولة إخفاء جميع الأوراق ما عدا الأخيرة
    On Error Resume Next
    hiddenCount = 0
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            If hiddenCount < sheetCount - 1 Then
                ws.Visible = xlSheetVeryHidden
                hiddenCount = hiddenCount + 1
            End If
        End If
    Next ws
    On Error GoTo 0
    
    ' إخفاء Excel نفسه (هذا سيخفي النافذة بالكامل)
    Application.Visible = False
    
    ' فتح فورم تسجيل الدخول
    frmLogin.Show
End Sub


