عمل باسورد لشيت بداخل ملف الاكسيل

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

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

 

تم ارفاق كود الحل من الفاضل /  حمادة عمر

اسم المستخدم  : SAMA   " حروف كبيرة "

كلمة المرور  :  12345

و لا تنسونا من صالح الدعاء

تحياتى

شاشة دخول ورقم سري لشيت معين.rar

[اسكندراني]

Private Sub Worksheet_Activate()
Cells.Columns.Hidden = True
Dim pas As String
pas = InputBox("Enter password", "password")
If pas = "123" Then
Cells.Columns.Hidden = False
MsgBox "WELCOME"
Else
MsgBox "GOOD BAY"
End If


End Sub

يمكنك وضع هذا الكود فى حدث تفعيل الصفحه مباشرة فهو يقوم باخفاء جميع اعمدة الصفحه عند تنشيطها ويطلب ادخال كلمه مرور فاذا كانت صحيحه قام باظهار الاعمدة والا فانه يترك مخفيه كما هي 

[جلال الجمال_ابو أدهم]

 

اسكندراني

تحياتى