عبدللرحيم

نفضل يا أخى OK_شئون الموظفين.rar

أخى العزيز هل يمكن تعديل الكود بحث يطلب كلمة سر حتى يظهر الصفحة المخفية ولك جزيل الشكر تفضل Private Sub CommandButton2_Click() Dim Pas As Integer Pas = InputBox(" إدخل رمز المرور للإظهار ", " منتدى أوفسينا ") If Pas = False Or Pas = Cancel Then Exit Sub If Pas = "123" Then Worksheets("ورقة2").Visible = True: Exit Sub MsgBox " رمز المرور غير صحيح ", vbCritical, " تنبية !!! " End Sub أخى العزيز هل يمكن تعديل الكود بحث يطلب كلمة سر حتى يظهر الصفحة المخفية ولك جزيل الشكر تفضل Private Sub CommandButton2_Click() Dim Pas As Integer Pas = InputBox(" إدخل رمز المرور للإظهار ", " منتدى أوفسينا ") If Pas = False Or Pas = Cancel Then Exit Sub If Pas = "123" Then Worksheets("ورقة2").Visible = True: Exit Sub MsgBox " رمز المرور غير صحيح ", vbCritical, " تنبية !!! " End Sub خي الكريم في المرفق كود يقوم باظهار كل اوراق العمل في الملف اضغط على الزر السهم الأحمر الصغير في اول ورقة ويعمل الكود اذا طلب منك كلمة مرور فهي كلمة المرور الموجودة لحماية المصنف ASP SAP Sep12.rar آسف على التأخير ولكن لم ادخل الموقع الا اليوم فقط

يجب اضافة عمود تستخرج فيه بيانات العمود e بدون AM / PM والمعادلة هتشتغل معاك

بارك الله فيكم وبارك لكم وبارك بكم

الرائع سليم حاصبيا

جزاكم الله كل الخير وبارك لكم وزادكم من فضله

جزاكم الله كل الخير على علمكم وزادكم علماً