با سلام
این کد رو امتحان کنید...
شیت master با جابه جا شدن در بین شیت ها حرکت میکند و همیشه نمایان است.
کد:
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
علاقه مندی ها (Bookmarks)