أخى العزيز هل يمكن تعديل الكود بحث يطلب كلمة سر حتى يظهر الصفحة المخفية ولك جزيل الشكر
تفضل
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
آسف على التأخير
ولكن لم ادخل الموقع الا اليوم فقط