رابط لملف بالملتقي اخفى شيتات ملفي كاملة ولم استطع استعادتها

[ابو يوسف العلفي]

دخلت على هذا الرابط  من موضوع قام بنشرة الاستاذ / محمود الشريف بشأن حماية ملفات الاكسل وتضمن عدة روابط 
 

نموذج للأستاذ / أحمد زمان

حماية الملف وصلاحيات للمستخدمين 

http://www.officena.net/ib/index.php?showtopic=30498#entry152813

 

وقمت بتحميل الملف لغرض التطبيق وفعلا تم التطبيق واقفلتة واقفلت ملفي الخاص بشغلي وبعد فتح ملفي الخاص تفاجئت باخفاء شيتات  المصنف الي اشتغل فية كامل ولا استطيع استعادتها ؟؟
ماهي الطريقة لاظهار الشيتات لو سمحتم ؟؟

[عبدللرحيم]

أخى العزيز هل يمكن تعديل الكود بحث يطلب كلمة سر حتى يظهر الصفحة المخفية ولك جزيل الشكر

تفضل

 

 

 

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

 

 

آسف على التأخير

ولكن لم ادخل الموقع الا اليوم فقط