پرسش عدم حرکت صفحه اکسل

[reza_gh_tak]

چطور میشه کاری کرد که صفحه اکسل و یا سلولها پایین وبالا نشه

[میثم مقدم نیا]

چطور میشه کاری کرد که صفحه اکسل و یا سلولها پایین وبالا نشه

سلام برای انجام این کار به دو روش انجام میشه
1_ دستی
2_ با VBA

چگونه صفحه را قفل کنیم تا از پیمایش در کاربرگ اکسل جلوگیری شود؟

به طور معمول ، می توانید نوار پیمایش را به هر جهت از صفحه کار حرکت دهید ، اما ، گاهی اوقات ، باید پیمایش را مسدود کنید و صفحه کار را تا یک قسمت خاص -مثلا A1: O25 ، را ثابت نگه دارید.

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

در واقع ، می توانید به کادر Properties بروید تا ScrollArea را در آدرس دامنه موردنظر خود تنظیم کنید. لطفاً به شرح زیر عمل کنید:
1- به صفحه کاری بروید که می خواهید قسمتی از صفحه را قفل کنید.
2- سپس بر روی Developer > Properties کلیک کنید ، در کادر محاوره ای Properties ، آدرس دامنه (A1:O25) مورد نیاز خود را در جعبه متن ScrollArea وارد کنید ، مثل تصویر زیر:

3- سپس کادر Properties را ببندید و اکنون ، کلیک یا پیمایش به سلول های فراتر از محدوده ای که در گفتگوی Properties مشخص کرده اید محدود می شود.

یادداشت:
1. آدرس سلولی که وارد می کنید باید یک دامنه همگون باشد.
2. اگر می خواهید قفل ناحیه پیمایش را پاک کنید ، فقط کافی است آدرس دامنه را از قسمت Properties \ ScrollArea در بالا مرحله 2 را حذف کنید.
3. وقتی دفعه دیگر دفترچه کار را باز می کنید ، این تنظیم نامعتبر است


برای جلوگیری از پیمایش با کد VBA ، صفحه کاربرگ را قفل کنید

در اینجا همچنین یک کد ساده برای حل این شغل وجود دارد ، لطفاً به شرح زیر عمل کنید:
1 - برای باز کردن پنجره Microsoft Visual Basic for Applications ، کلیدهای ALT + F11 را نگه دارید.
2 - درج > یک ماژول ایجاد کنید و کد زیر را در پنجره ماژول جایگذاری کنید.
کد VBA: برای جلوگیری از پیمایش صفحه صفحه کاربرگ

Private Sub Workbook_Open()
    Sheets("Sheet1").ScrollArea = "A1:O25"
End Sub 

3 - سپس کلید F5 را برای اجرای این کد فشار دهید و ناحیه پیمایش برگه و دامنه مشخص شده شما با موفقیت قفل می شود.

یادداشت ها :
1 - در کد بالا ، Sheet1 برگه کار است و A1:O25 محدوده سلول هایی است که شما فقط می خواهید از آن استفاده کنید ، می توانید آن ها را به نیاز خود تغییر دهید.
2 - برای لغو قفل صفحه کاربرگ ، لطفا کد زیر را اعمال کنید:
کد VBA: قفل صفحه کاربرگ را لغو کنید

Private Sub Workbook_Open()
    Sheets("Sheet1").ScrollArea = ""
End Sub 

موفق پیروز باشید