محدود کردن محل استفاده از ورک بوک

Question

Shay با یک سازمان داوطلب کار می کند و آنها یک ورک بوک Excel را به طور خاص برای داوطلبان خود تهیه کرده اند. آن ها نمی خواهند آن را کپی یا با افراد خارجی به اشتراک بگذارند، بنابراین Shay نمی داند آیا راهی برای محافظت از ورک بوک وجود دارد تا فقط برای یک رایانه خاص کار کند و نه دیگران.

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

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

هر رویکرد دیگری به افزودن ماکروها به ورک بوک متکی است. یک راه عالی این است که ماکرو نام رایانه ای را که ورک بوک روی آن باز می شود بررسی کند. این نمونه ای از چنین ماکروهایی است:

Private Sub Workbook_Open()
    Dim sComputerName As String
    Dim sPossible As String
    Dim sTemp As String

    sPossible = "[NEWDELL][Computer1][Order Entry][Dans System]"
    sPossible = sPossible & "[Computer2][Computer3]"

    sComputerName = Environ("computername")
    sTemp = "[" & sComputerName & "]"

    If InStr(sPossible, sTemp) Then
        MsgBox "Welcome to the workbook."
    Else
        MsgBox "You are not authorized to open this workbook."
        Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False
    End If
End Sub

ایده ماکرو این است که در رشته sPossible، نام هر رایانه ای را که می توان در آن ورک بوک را باز کرد، تعریف کرد. تنها کاری که باید انجام دهید این است که مطمئن شوید نام ماشین ها دقیقاً درست نوشته شده و آنها را در داخل پرانتز مربع در رشته sPossible قرار دهید. تابع Environ نام واقعی رایانه را برمی گرداند، در متغیر sTemp درون براکت ها قرار می گیرد و سپس از تابع InStr برای دیدن اینکه آیا در لیست ماشین های ممکن است یا خیر استفاده می شود. اگر چنین است، یک جعبه پیام نمایش داده می شود. اگر اینطور نیست، یک جعبه پیام نمایش داده می شود و ورک بوک بدون ذخیره هیچ تغییری بسته می شود.

اگر چیزی حتی کمی ایمن تر را ترجیح می دهید، می توانید از تابع Environ نیز برای برگرداندن مقدار «نام کاربری» استفاده کنید، که نام کاربری حساب مورد استفاده در رایانه را به شما می دهد.

این رویکرد کلان نسبتاً ساده است، اما قبل از اینکه به درستی کار کند نیاز به دانستن نام رایانه (و/یا نام کاربری) دارد. همچنین فرض می کند که کاربر به اندازه کافی درباره اکسل نمی داند تا با نگه داشتن کلید Shift هنگام شروع برنامه، ماکروها را دور بزند. اگر مشکوک هستید که کاربر ممکن است تا این حد بداند، باید اقدامات بیشتری را انجام دهید، مانند موارد زیر:

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

استفاده از این روش باعث می شود حتی اگر کاربر ماکروها را غیرفعال کند (با نگه داشتن کلید Shift در حین راه اندازی)، نمی تواند به کاربرگ ها دسترسی پیدا کند، زیرا برای قابل مشاهده کردن آنها به یک ماکرو نیاز است.

شما می توانید از یک تغییر در رویکرد فوق استفاده کنید تا به جای تکیه بر تابع Environ بتوانید بررسی ماکرو برای وجود یک فایل از پیش تعیین شده در یک مکان خاص در سیستم داشته باشید. البته این بدان معناست که شما به روشی نیاز دارید تا زودتر از موعد سیستم را در اختیار داشته باشید تا فایل مناسب را در محل مناسب قرار دهید.

در نهایت، هر رویکرد مبتنی بر کلان را که انتخاب کنید، باید مطمئن شوید که پروژه VBA برای ورک بوک با یک رمز عبور محافظت می شود. این باعث می شود کسی نرود و به کد ماکرو شما نگاه کند تا بفهمد که در مورد حفاظت چه می گذرد.

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