فیکس شدن شیت اول در اکسل

**amir_ts** · 2016/10/18, 16:03

با سلام
این کد رو امتحان کنید...
شیت master با جابه جا شدن در بین شیت ها حرکت میکند و همیشه نمایان است.

کد:

[LEFT]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)


Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Master").Index Then
    Application.Sheets("Master").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Master").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub[/LEFT]

فایل های پیوست شده