اذهب الي المحتوي
أوفيسنا

يوزرفورم للمستخدمين مع رقم سري (مبيعات للمحطات)


الردود الموصى بها

السادة الكرام 

يوجد في الملف المرفق ملف يحتوي  يوزر فورم  للمستخدمين مع رقم سري

لا يسمح لي الاكسل بالتعديل عند الدخول الى الصفحات

ارجو مساعدتي في حل المشكلة 

ولكم جزيل الشكر

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub

Dim b As Integer
Dim c As Integer
Private Sub CommandButton1_Click()
b = 1
Dim Ws As Worksheet
    
    strpass = "Secret"
Dim oWs As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "1" Then Ws.Visible = xlSheetVeryHidden
Next Ws

      If ComboBox1.Value = "ÇáÞÓØá" And TextBox2.Value = "862" Then
            Worksheets("ÇáÞÓØá").Visible = xlSheetVisible

        Sheets("ÇáÞÓØá").Select

       
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      
           ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ" And TextBox2.Value = "911" Then
            Worksheets("ÇáÒÑÞÇÁ").Visible = xlSheetVisible
        Sheets("ÇáÒÑÞÇÁ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
           
           
             ElseIf ComboBox1.Value = "'ØÈÑÈæÑ" And TextBox2.Value = "526" Then
            Worksheets("ØÈÑÈæÑ").Visible = xlSheetVisible
        Sheets("ØÈÑÈæÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "æÇÏí Ñã - ÇáÚÞÈÉ" And TextBox2.Value = 467 Then
            Worksheets("æÇÏí Ñã - ÇáÚÞÈÉ").Visible = xlSheetVisible
        Sheets("æÇÏí Ñã - ÇáÚÞÈÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÈíÇÏÑ" And TextBox2.Value = 149 Then
            Worksheets("ÇáÈíÇÏÑ").Visible = xlSheetVisible
        Sheets("ÇáÈíÇÏÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãØÇÑ 1" And TextBox2.Value = 877 Then
            Worksheets("ÇáãØÇÑ 1").Visible = xlSheetVisible
        Sheets("ÇáãØÇÑ 1").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÚÞÈÉ ÇáÎáÝí" And TextBox2.Value = 477 Then
            Worksheets("ÇáÚÞÈÉ ÇáÎáÝí").Visible = xlSheetVisible
        Sheets("ÇáÚÞÈÉ ÇáÎáÝí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãÝÑÞ" And TextBox2.Value = 880 Then
            Worksheets("ÇáãÝÑÞ").Visible = xlSheetVisible
        Sheets("ÇáãÝÑÞ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÓÑæ" And TextBox2.Value = 520 Then
            Worksheets("ÇáÓÑæ").Visible = xlSheetVisible
        Sheets("ÇáÓÑæ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ" And 462 Then
            Worksheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Visible = xlSheetVisible
        Sheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÏÈÇ" And TextBox2.Value = 357 Then
            Worksheets("ãÇÏÈÇ").Visible = xlSheetVisible
        Sheets("ãÇÏÈÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÑßÇ" And TextBox2.Value = 176 Then
            Worksheets("ãÇÑßÇ").Visible = xlSheetVisible
        Sheets("ãÇÑßÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌæíÏÉ" And TextBox2.Value = 260 Then
            Worksheets("ÇáÌæíÏÉ").Visible = xlSheetVisible
        Sheets("ÇáÌæíÏÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "äÇÚæÑ" And TextBox2.Value = 425 Then
            Worksheets("äÇÚæÑ").Visible = xlSheetVisible
        Sheets("äÇÚæÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ" And TextBox2.Value = 144 Then
            Worksheets("ÇÑÈÏ").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌÇãÚÉ ÇáÇÑÏäíÉ" And TextBox2.Value = 854 Then
            Worksheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Visible = xlSheetVisible
        Sheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÚÞÈå ÇáÕäÇÚíå" And TextBox2.Value = 503 Then
            Worksheets("ÇáÚÞÈå ÇáÕäÇÚíå").Visible = xlSheetVisible
        Sheets("ÇáÚÞÈå ÇáÕäÇÚíå").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÓÑæ 2" And TextBox2.Value = 906 Then
            Worksheets("ÇáÓÑæ 2").Visible = xlSheetVisible
        Sheets("ÇáÓÑæ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÇÈÑ" And TextBox2.Value = 691 Then
            Worksheets("ÌÇÈÑ").Visible = xlSheetVisible
        Sheets("ÌÇÈÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÞØÑÇäå" And TextBox2.Value = 509 Then
            Worksheets("ÇáÞØÑÇäå").Visible = xlSheetVisible
        Sheets("ÇáÞØÑÇäå").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔíÏíÉ" And TextBox2.Value = 679 Then
            Worksheets("ÇáÔíÏíÉ").Visible = xlSheetVisible
        Sheets("ÇáÔíÏíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ - ÇáäÚíãÉ" And TextBox2.Value = 328 Then
            Worksheets("ÇÑÈÏ - ÇáäÚíãÉ").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ - ÇáäÚíãÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÍØÉ ÇáãØÇÑ 2" And TextBox2.Value = 311 Then
            Worksheets("ãÍØÉ ÇáãØÇÑ 2").Visible = xlSheetVisible
        Sheets("ãÍØÉ ÇáãØÇÑ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÑÝ ÇáÏÑÇæíÔ" And TextBox2.Value = 256 Then
            Worksheets("ÌÑÝ ÇáÏÑÇæíÔ").Visible = xlSheetVisible
        Sheets("ÌÑÝ ÇáÏÑÇæíÔ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÒÇã 1" And TextBox2.Value = 511 Then
            Worksheets("ÇáÍÒÇã 1").Visible = xlSheetVisible
        Sheets("ÇáÍÒÇã 1").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌíÒÉ" And TextBox2.Value = 546 Then
            Worksheets("ÇáÌíÒÉ").Visible = xlSheetVisible
        Sheets("ÇáÌíÒÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔãíÓÇäí" And TextBox2.Value = 568 Then
            Worksheets("ÇáÔãíÓÇäí").Visible = xlSheetVisible
        Sheets("ÇáÔãíÓÇäí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
             ElseIf ComboBox1.Value = "ÇáÍÑíÉ" And TextBox2.Value = 247 Then
            Worksheets("ÇáÍÑíÉ").Visible = xlSheetVisible
        Sheets("ÇáÍÑíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÔÇÑÚ ãßÉ" And TextBox2.Value = 803 Then
            Worksheets("ÔÇÑÚ ãßÉ").Visible = xlSheetVisible
        Sheets("ÔÇÑÚ ãßÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ" And TextBox2.Value = 838 Then
            Worksheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Visible = xlSheetVisible
        Sheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÈÞÚÉ" And TextBox2.Value = 975 Then
            Worksheets("ÇáÈÞÚÉ").Visible = xlSheetVisible
        Sheets("ÇáÈÞÚÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí" And TextBox2.Value = 190 Then
            Worksheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Visible = xlSheetVisible
        Sheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÑßÇ 2" And TextBox2.Value = 367 Then
            Worksheets("ãÇÑßÇ 2").Visible = xlSheetVisible
        Sheets("ãÇÑßÇ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã" And TextBox2.Value = 631 Then
            Worksheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Visible = xlSheetVisible
        Sheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÑÔ-ÈÇÈ ÚãÇä" And TextBox2.Value = 659 Then
            Worksheets("ÌÑÔ-ÈÇÈ ÚãÇä").Visible = xlSheetVisible
        Sheets("ÌÑÔ-ÈÇÈ ÚãÇä").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
            ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ-Îæ" And TextBox2.Value = 235 Then
            Worksheets("ÇáÒÑÞÇÁ-Îæ").Visible = xlSheetVisible
        Sheets("ÇáÒÑÞÇÁ-Îæ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3" And TextBox2.Value = 989 Then
            Worksheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Visible = xlSheetVisible
        Sheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÈáíáÇ" And TextBox2.Value = 153 Then
            Worksheets("ÈáíáÇ").Visible = xlSheetVisible
        Sheets("ÈáíáÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÕæíáÍ" And TextBox2.Value = 404 Then
            Worksheets("ÕæíáÍ").Visible = xlSheetVisible
        Sheets("ÕæíáÍ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáØÝíáÉ ÇáÚíÕ" And TextBox2.Value = 429 Then
            Worksheets("ÇáØÝíáÉ ÇáÚíÕ").Visible = xlSheetVisible
        Sheets("ÇáØÝíáÉ ÇáÚíÕ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ.ÇáÍÕä" And TextBox2.Value = 688 Then
            Worksheets("ÇÑÈÏ.ÇáÍÕä").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ.ÇáÍÕä").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáíÇÏæÏÉ" And TextBox2.Value = 922 Then
            Worksheets("ÇáíÇÏæÏÉ").Visible = xlSheetVisible
        Sheets("ÇáíÇÏæÏÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÒÇã 2" And TextBox2.Value = 378 Then
            Worksheets("ÇáÍÒÇã 2").Visible = xlSheetVisible
        Sheets("ÇáÍÒÇã 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÑÉ" And TextBox2.Value = 857 Then
            Worksheets("ÇáÍÑÉ").Visible = xlSheetVisible
        Sheets("ÇáÍÑÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÑßÒ ÊæÒíÚ" And TextBox2.Value = 999 Then
            Worksheets("ãÑßÒ ÊæÒíÚ").Visible = xlSheetVisible
        Sheets("ãÑßÒ ÊæÒíÚ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáßÑß - ÇáËäíÉ" And TextBox2.Value = 666 Then
            Worksheets("ÇáßÑß - ÇáËäíÉ").Visible = xlSheetVisible
        Sheets("ÇáßÑß - ÇáËäíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
         ElseIf ComboBox1.Value = "ÌãíÚ ÇáÕÝÍÇÊ" And TextBox2.Value = 39661822 Then
            
            For Each Ws In Worksheets
            Ws.Visible = True
            Ws.Visible = xlSheetVisible
            
             Next
        

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Else
           MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software"
        ActiveWorkbook.Close
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            End If
            
        'MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software"
    UserForm1.Hide
    Application.Visible = True
End Sub

Private Sub TextBox1_Change()

End Sub




Private Sub Frame1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub l5_Click()

End Sub

Private Sub l6_Click()

End Sub

Private Sub UserForm_Activate()
c = 0
For i = 1 To 10000000000#

If c = 1 Then Exit Sub
DoEvents

l6.Left = l6.Left - 0.04

If l6.Left = -250 Then
l6.Left = 210
End If
Next i
b = 0
Do
If b = 1 Then Exit Sub

l5.Caption = Time
DoEvents
Loop
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Worksheets("ÇáãÍØÇÊ").Range("W3:W52").Value
     
End Sub

 

مبيعات المحطات 2.rar

رابط هذا التعليق
شارك

  • 1 year later...
  • 10 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information