فكرة في الحماية ..هل تتحقق!

إخواني السلام عليكم ورحمة الله وبركاته ..

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

بطريقة أخرى أن يكون الرقم السري متغير كل يوم مثلا أو حتى كل ساعة أعرف أن الجميع سيقول هذا متعب

ولكني أريد أن يكون وضع هذه الحماية لتعديل خانة أساسية في البرنامج مثل اسم الشركة (مجرد مثال ) بحيث يستطيع في لحظة معينة تبديل الاسم بعد أن يتصل بصاحب البرنامج وإذا حاول مرة أخرى التعديل بنفس الرقم لايستطيع ..

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

مثل (DATE) أو شيء من تنسيقاتها مثل (y) حيث تعرض ترتيب اليوم من السنة

أو مثلا (yw) ترتيب اليوم من السنة واليوم من الأسبوع .. أو نفس هذه التنسيقات ويجرى عليها عملية حسابية .. (( آسف نسيت نفسي وطولت عليكم ))

لكن أتمنى أن تنال هذه الفكرة على استحسانكم .. وأن نجد حلا لذلك ..وإليكم الكود .

وهو من أستاذي عبدالهادي الألمعي ..

Dim Pass As String

If IsNull(اسم الشركة.OldValue) Then Exit Sub

If Nz(اسم الشركة) = Nz(اسم الشركة.OldValue) Then Exit Sub

Pass = InputBox("أدخل الرقم السري لتعديل هذا الحقل")

If Pass <> "123" Then

Beep

Cancel = -1

MsgBox "ليس لديك الصلاحية للتعديل الرجاء الاتصال بصاحب البرنامج"

SendKeys "{Esc}"

End If

وشكرا للجميع