السلام عليكم
الأخ الحبيب / حسام غباشى
بارك الله فيك
تفضل اخي الكود المطلوب ... ارجو ان يكون ما تريد تماما
اولا : ضع الكود التالي في حدث ThisWorkbook
Private Sub Workbook_Open()
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub
ثانيا : قم بوضع الكود التالي في موديل واربطه بزر في اي ورقة تريدها ليمكنك اضافة اوراق عند الضغط علي هذا الزر
ولن يسمح لك باضافة اوراق الا بعد كتابة الرقم السري الصحيح ... ليمكنك اضافة اوراق كما تريد
Sub sama()
Dim pwd As String: pwd = "123"
If Application.InputBox("برجاء ادخال كلمة المرور ليمكنك اضافة اوراق عمل جديدة", "تصريح اضافة ورقة عمل جديدة", "???") <> pwd Then
MsgBox " كلمة المرور غير صحيحة !! من فضلك راجع مسئول النظام ", 0, "عفوا الدخول محظور"
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
Else
MsgBox "مرحبا بك !! كلمة المرور صحيحة !! يمكنك الآن اضافة ما تريد", 32, "دخول ناجح"
ActiveWorkbook.Unprotect Password:="123"
End If
End Sub
باسورد اضافة الاوراق : 123
جرب ذلك ... وفي انتظار ردك
جزاك الله خيرا
كود لمنع ادراج اوراق عمل جديدة والاضافة برقم سري.rar