كود لعدم اضافة ورقة عمل جديدة

[ناصرالمصرى]

السلام عليكم ورحمته الله وبركاته

أسعد دائما بلقائكم جميعا 

أبحث عن كود من شأنه عدم إضافة ورقة عمل جديدة بحيث إذا حاول غير  المستخدم

الاصلى على اتخاذ هذا الاجراء فلا يسمح له الا بعد تسجيل كلمة المرور  مع ظهور  رسالة تفيد ذلك

شاكر فضل حضراتكم وجزاكم الله خيرا

 

تم تعديل نوفمبر 8, 2018 بواسطه ناصرالمصرى

[Ali Mohamed Ali]

وعليكم السلام يمكنك اضافة هذا الكود فى حدث ThisWorkbook

وكلمة السر : 123

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim z
z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "منتدى أوفيسنا")
If IsNull(z) Or z = "" Or z = False Or z <> "123" Then
Application.DisplayAlerts = False
MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "منتدى أوفيسنا"
Sh.Delete
Application.DisplayAlerts = True
End If
End Sub

 

[Ali Mohamed Ali]

وهذا كود اخر  ولكن بدون كلمة سر يمنع اضافة ورقة جديدة ايضا ويضاف فى حدث ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Sorry, Adding new Sheet is not allowed"
End Sub

 

[ناصرالمصرى]

شكرا لك أستاذى الفاضل

تمت الافادة وجزاكم الله خيرا