[حل شده] غیر فعال شدن اسکرول موس

[2009tv]

با سلام و احترام خدمت شما دوستان و اساتید عزیز

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

Private Sub CommandButton1_Click()
a = ComboBox1.Text
b = "يک نفر"
c = "دو نفر"
d = "سه نفر"
e = "چهار نفر"
If a = b Then
Sheet4.Rows("1:20").EntireRow.Hidden = False
Sheet4.Rows("21:80").EntireRow.Hidden = True
Sheet4.Select
Else
If a = c Then
file = Range("b2").Value
Sheet4.Rows("1:40").EntireRow.Hidden = False
Sheet4.Rows("41:80").EntireRow.Hidden = True
Sheet4.Select
Else
If a = d Then
file = Range("b3").Value
Sheet4.Rows("1:60").EntireRow.Hidden = False
Sheet4.Rows("61:80").EntireRow.Hidden = True
Sheet4.Select
Else
If a = e Then
Sheet4.Rows("1:80").EntireRow.Hidden = False
Sheet4.Select
Else
Sheet4.Activate
End If
End If
End If
End If
Unload form8
End Sub

[2009tv]

سلام دوستان عزیز
خودم با استفاده از پاسخ های یکی از موضوعات قبلی همین سایت مشکل را برطرف کردم!
در واقع چون توسط فرم به یک شیط منتقل میشوم توسط دستور زیر فرم بطور کامل بسته نمی شود و بهتر است فرم را در محیط VB انتخاب نماییم و از قسمت Properties مقدار show modal را false قرار دهید تا مشکل اسکرول برطرف شود.