[حل شده] عدم زوم صفحه

[armani]

با سلام و عرض ادب
احتراما،راهنمایی بفرمایید که چگونه از طریق برنامه نویسی، زوم صفحه را غیر فعال نمایم.
سپاسگزارم

[generalsamad]

با سلام
کد زیر را نوشته

Sub LockZoom()
Do
    If ActiveWindow.Zoom <> 100 Then
    ActiveWindow.Zoom = 100
    End If
    DoEvents
Loop While True
End Sub 

در رویداد اکتیو ورک بوک ماژول بالا را صدا میزنیم

Private Sub Workbook_Activate()
Call LockZoom
End Sub 

در صورتی که بخواهیم نوار وضعیت مخفی شود فقط کافی است این کد را در رویداد اکتیو ورک بوک وارد کنید:

Private Sub Workbook_Activate()
Application.DisplayStatusBar = False
End Sub 

[armani]

با سلام
کد زیر را نوشته

Sub LockZoom()
Do
    If ActiveWindow.Zoom <> 100 Then
    ActiveWindow.Zoom = 100
    End If
    DoEvents
Loop While True
End Sub 

در رویداد اکتیو ورک بوک ماژول بالا را صدا میزنیم

Private Sub Workbook_Activate()
Call LockZoom
End Sub 

در صورتی که بخواهیم نوار وضعیت مخفی شود فقط کافی است این کد را در رویداد اکتیو ورک بوک وارد کنید:

Private Sub Workbook_Activate()
Application.DisplayStatusBar = False
End Sub 

سلام.بسیار ممنوم
این کده ا رو در قسمت This workbook باید قرار بدم درسته؟
و اینکه این کد با ctrl + scroll هم غیر فعال باقی می مونه؟

[generalsamad]

با سلام
بله

اگر خواستید روی یک شیت خاص انجام دهید روی شیت مربوطه در قسمت visual دوبار کلیک کنید
و در رویداد selection change ماژول را فراخوانی کنید

[armani]

با سلام
بله
[ATTACH=CONFIG]20020[/ATTACH]

اگر خواستید روی یک شیت خاص انجام دهید روی شیت مربوطه در قسمت visual دوبار کلیک کنید
و در رویداد selection change ماژول را فراخوانی کنید
[ATTACH=CONFIG]20019[/ATTACH]

سلام
ممنونم از راهنماییتون
میشه توضیح بدین دستور اول رو چطور به کار ببرم؟اخه تو this worbook می نویسم اجرا نمیده .از شیت مربوطه هم با دستور call فراخوانی می کنم اما اجرا نمیده
شاید دستور اول رو اشتباه به کار می برم.ممنون میشم راهنمایی بفرمایید.
باتشکر

[armani]

امکان این وجود داره که زوم صفحه بنا به صفحه مانیتور کاربر تغییر کنه با کد نویسی البته؟!
مثلا یه نفر با لپ تاپ وارد بشه و یه نفر با pc