حماية ملف اكسل بالكواد

[ابو تيم]

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

هل يمكنني عمل حماية لملف اكسل عن طريق الاكواد والاهم من ذلك هو هل يمكن عمل هذه الحماية ليسري مفعولها بعد فترة زمنية مؤقتة كملف تجريبي محدد للترة زمنية عن طريق الاكواد

 

ولكم الشكر والتقدير

[Yasser Fathi Albanna]

Protect All Worksheets in Workbook using VBA

Sub sbProtectAllSheets()

    Dim pwd1 As String, pwd2 As String
    pwd1 = InputBox("Please Enter the password")
    If pwd1 = "" Then Exit Sub
    pwd2 = InputBox("Please re-enter the password")

    If pwd2 = "" Then Exit Sub

     'Check if both the passwords are identical
    If InStr(1, pwd2, pwd1, 0) = 0 Or _
    InStr(1, pwd1, pwd2, 0) = 0 Then
        MsgBox "You entered different passwords. No action taken"
        Exit Sub
    End If

    For Each ws In Worksheets
        ws.Protect Password:=pwd1
    Next

    MsgBox "All sheets Protected."

    Exit Sub
    
End Sub

 

Insert a Module for Insert Menu

ولحمايته لفترة زمنية كفترة تجريبية

Sub workbook_open()
If Time >= " 01-01-2016" Then

msgbox "the time work of this application is finished"
ThisWorkbook.Close False
End Sub

 

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الكود الرّائع ..

جزاك الله خيرًا و زادك من علمه و فضله

لإثراء الموضوع و التّنويع بالملفات .. أقدّم هذا الملف .. حيث بعد انتهاء صلاحيته المحددة سلفًا بتاريخ محدّد مثلما مشار إليه بالسّهم الأحمر سيُطلب منّا كلمة المرور و التي هي 123 ..

و هناك العديد من الأمثلة المتنوعة .. إذا أردت الزّيادة .. زدناك أخي الكريم " أبو تيم "

فائق إحتراماتي

 

 

حماية الملف بتاريخ محدد.rar

[Yasser Fathi Albanna]

الله ينور أخى العزيز الغالى / عبد العزيز

دائما رائع

تقبل تحياتى

 

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

منوّر بوجودك معنا أخي الغالي " ياسر فتحي البنّا "

الله وحده يعلم و هو على قولي شهيد ..

مجرّد رؤية اسمك هنا بالمنتدى .. أشعر بالرّاحة و الطمأنينة أنّه هنا أخي الغالي جنبي ..

فائق إحتراماتي لشخصك الكريم

[ابو تيم]

الأخوة الأفاضل

كفيتم ووفيتم

لم اتوقع هذه الإجابة السريعة

الله يجعلها في ميزان حسناتكم

ولكم أخ ياسر / الاخ عبد العزيز وللمنتدى الف شكر وتقدير