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 كودين بملفين مختلفين وأريد دمجهم بملف واحد ارجو المساعده