طلب دمج كودين بكود واحد

[ahmed112222]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [A1] >= 5 Then GoTo 1
[A1] = [A1] + 1
1:
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
If [A1] >= 5 Then
Dim pwd As String:  pwd = "12345"

Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("برجاء إدخال كلمة المرور لفتح الملف مرة اخري حيث فتح الملف خمس مرات ولا يمكن فتحه مرة اخرى الا بالرقم السري", "تصريح دخول للملف ", "???") <> pwd Then
    MsgBox " كلمة المرور غير صحيحة !! من فضلك راجع مسئول النظام حيث فتح الملف خمس مرات ولا يمكن فتحه مرة اخرى الا بالرقم السري  ", 0, "عفواً الدخول محظور"
ThisWorkbook.Save
ThisWorkbook.Close
      Else
      Range("A1").Activate

        MsgBox "مرحباً بك !! كلمة المرور صحيحة !! تفضل بالدخول ......", 32, "دخول ناجح"
[A1] = 4
End If
End If

End Sub

---------------------------------------------------------------------------------------------------------------------

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
 
Sheets("a").Visible = xlSheetVisible
For Each sh In ThisWorkbook.Worksheets
     If sh.Name <> "a" Then
        sh.Visible = xlVeryHidden
     End If
Next sh
 
ActiveWorkbook.Save
 
End Sub

Private Sub Workbook_Open()
Sheets(1).Activate
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
 
     sh.Visible = xlSheetVisible
     
Next sh

 Sheets("a").Visible = xlVeryHidden
 

End Sub

 

 

 

كودين بملفين مختلفين وأريد دمجهم بملف واحد

ارجو المساعده

 

 

 

تم تعديل يناير 24, 2019 بواسطه ahmed112222