الاستاذ الفاضل هنكوك
صيح كما قال الاخ زين بانك سباق الى عمل الخير ولك اياديً بيضاء في ذلك
وبعد اذنك (قمت بالتعديل في الكودفي هذا الجزاء)والذي يعتمد على ان تكون كلمة السر في ورقة العمل في الخانة الاخيرة
If TextBox1.Text = Sheets("sheet1").Range("IV65536").Value Then
Me.Hide
TextBox1 = ""
واستبدلته بهذا الجزاء لتكون كلمة السر داخل الكود
If TextBox1.Text = "123" Then
Me.Hide
TextBox1 = ""
وكذلك الجزاء الخاص بادخال كلمة سر لا تساوي الكلمة الصحيحة
من
If TextBox1.Text <> Sheets("sheet1").Range("IV65536").Value Then
Me.Hide
TextBox1 = ""
MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول "
الى
If TextBox1.Text <> "123" Then
Me.Hide
TextBox1 = ""
MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول "
Hide Column HaNcOcK.rar