غیر فعال کردن fullscreen و maximize فایل اکسل

[pishraw]

با سلام و درود به همه عزیزان . یک سوال داشتم در خصوص نمایش فایل اکسل . یعنی از طریق vba کدی می خواهم که فایل اکسل FullScreen یا Maximize آن غیر فعال بشه . به این صورت که در هنگام اجرای فایل اکسل در یک قالب ثابت نمایش داده شود ..با تشکر

[امين اسماعيلي]

با درود این کد در ایونت ورک بوک ببین به کارتون میاد

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    Wn.WindowState = xlMaximized
        EnableResize = False
End Sub

[pishraw]

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

[~M*E*H*D*I~]

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

از تب review قسمت protect workbook رو انتخاب کن و گزینه window رو تیک بزن پسورد وارد کن

کد زیر هم میشه استفاده کرد

Private Sub Workbook_Open()
    With Application
        .WindowState = xlNormal
        .Width = 400
        .Height = 500
    End With
End Sub