كود لايظهر علامات تبويب الاوارق عند التشغيل

[ahmed88872]

الاخوة الافاضل

بعد التحيه والسلام

برجاء المساعده فى عمل كود لايظهر علامات تبويب الاوارق عند التشغيل بدون رقم سرى 

شكرا وفى انتظار ردكم الكريم

[مهند الزيدي]

Sub Show_Sheets_Tab()     
    Dim x
    x = InputBox("ادخل كلمة المرور.", "Password Required")
    If x = "123" Then
         ActiveWindow.DisplayWorkbookTabs = True

   Else
       MsgBox "كلمة المرور غير صحيحة"
    End If
End Sub

توضع في موديول 

وفي حدث المصنف تضع الكود التالي لإخفاء التبويب عند تشغيل المصنف

ActiveWindow.DisplayWorkbookTabs = False

 

[ahmed88872]

جزاك الله خيرا اخى الكريم

ولكنى اريد الكود بدون رقم سرى

[ابو عبدالبارى]

13 ساعات مضت, مهند الزيدي said:

توضع في موديول 

وفي حدث المصنف تضع الكود التالي لإخفاء التبويب عند تشغيل المصنف

ActiveWindow.DisplayWorkbookTabs = False