جلال الجمال_ابو أدهم قام بنشر يونيو 5, 2016 مشاركة قام بنشر يونيو 5, 2016 تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة المساعدة في عمل باسورد لشيت بداخل ملف الاكسيل تم ارفاق كود الحل من الفاضل / حمادة عمر اسم المستخدم : SAMA " حروف كبيرة " كلمة المرور : 12345 و لا تنسونا من صالح الدعاء تحياتى شاشة دخول ورقم سري لشيت معين.rar 2 رابط هذا التعليق شارك More sharing options...
اسكندراني قام بنشر يونيو 10, 2016 مشاركة قام بنشر يونيو 10, 2016 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 يمكنك وضع هذا الكود فى حدث تفعيل الصفحه مباشرة فهو يقوم باخفاء جميع اعمدة الصفحه عند تنشيطها ويطلب ادخال كلمه مرور فاذا كانت صحيحه قام باظهار الاعمدة والا فانه يترك مخفيه كما هي 2 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر يونيو 12, 2016 الكاتب مشاركة قام بنشر يونيو 12, 2016 اسكندراني تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.