حفاظت از یک پوشه کامل از کتابهای کاری در اکسل

Question

ماهش تعدادی کتاب کار اکسل دارد که همه در یک پوشه ذخیره می شوند. او فکر می کند که آیا می توان رمز عبور را به کل پوشه اختصاص داد تا از تمام کتاب های کاری محافظت شود.

پاسخ کوتاه این است که خیر، شما نمی توانید این کار را در اکسل انجام دهید. تعدادی تکنیک مختلف وجود دارد که می توانید از آنها استفاده کنید که نتیجه مطلوب را ارائه می دهند. روش اول استفاده از برنامه ای مانند WinZip برای ترکیب تمام کتاب های کاری در یک فایل فشرده است. این فایل را می توان با رمز عبور (در WinZip) محافظت کرد تا همه نتوانند آن را باز کنند. سپس می توانید فایل فشرده را باز کنید (با استفاده از رمز عبور خود) و روی هر کتاب کار موجود در آن دوبار کلیک کنید تا آن را با اکسل تغییر دهید. نتیجه، برای همه مقاصد، این است که شما یک "پوشه" (فایل فشرده) دارید که محافظت می شود، در حالی که فایل های جداگانه ای که در آن وجود دارد، محافظت نمی شوند.

روش دیگر این است که پوشه کتاب کار را روی یک درایو شبکه قرار دهید و سپس مدیر شبکه از پوشه محافظت کند. اکثر سیستم عامل های شبکه به مدیران اجازه می دهند تا کنترل کنند که چه کسی می تواند به پوشه های خاص و محتویات آنها دسترسی داشته باشد.

روش سوم استفاده از یک برنامه شخص ثالث برای محافظت از پوشه است. یک جستجوی سریع در وب بدون شک چندین نامزد پیدا می کند، مانند موارد زیر:

https://www.folder-password-expert.com

همچنین می توانید از یک ماکرو اکسل برای محافظت از کتاب های کاری استفاده کنید. در حالی که محافظت واقعی در سطح پوشه را ارائه نمی دهد، به شما این امکان را می دهد که از تمام کتاب های کاری موجود در پوشه به آسان ترین روش ممکن محافظت کنید.

Sub ProtectAll()
    Dim wBk As Workbook
    Dim sFileSpec As String
    Dim sPathSpec As String
    Dim sFoundFile As String

    sPathSpec = "C:MyPath"
    sFileSpec = "*.xls?"

    sFoundFile = Dir(sPathSpec & sFileSpec)
    Do While sFoundFile <> ""
        Set wBk = Workbooks.Open(sPathSpec & sFoundFile)
        With wBk
            Application.DisplayAlerts = False
            wBk.SaveAs FileName:=.FullName, _
              Password:="swordfish"
            Application.DisplayAlerts = True
        End With
        Set wBk = Nothing
        Workbooks(sFoundFile).Close False
        sFoundFile = Dir
    Loop
End Sub

اطمینان حاصل کنید که متغیرهای sPathSpec و sFileSpec را در نزدیکی ابتدای کد تغییر داده اید تا پوشه حاوی کتاب های کاری و الگوی نام کتاب های کاری را که می خواهید محافظت شود، منعکس کنید. ماکرو فرض می‌کند که همه کتاب‌های کاری محافظت نشده هستند. اگر هیچ کدام وجود نداشته باشد، ماکرو رمز عبور کتاب‌های کاری را درخواست می‌کند.