Sửa marco ẩn sheet!

[yome]

Chào anh chị GPE!
Em có 1 file (đính kèm). Em đã thiết lập marco để ẩn sheet không cần thiết mở và chỉ để 1 sheet luôn mở thôi. Nhưng vấn đề là: Khi em thoát ra và máy yêu cầu lưu lại. Lần sau mở ra nó lại hiện sheet mở lần cuối cùng đó. Giờ em muốn nhờ các anh chị thiết lập cho em 1 đoạn code sao cho khi mở file này nó luôn mở sheet MENU thôi. Và sau đó mình muốn mở sheet nào thì mở sau.
Cám ơn anh/chị nhiều!

 

[nam2806]

Bạn vào đây http://www.giaiphapexcel.com/forum/showthread.php?35650-Ẩn-hiện-Sheet-có-điều-kiện.

 

[TrungChinhs]

Chào anh chị GPE!
Em có 1 file (đính kèm). Em đã thiết lập marco để ẩn sheet không cần thiết mở và chỉ để 1 sheet luôn mở thôi. Nhưng vấn đề là: Khi em thoát ra và máy yêu cầu lưu lại. Lần sau mở ra nó lại hiện sheet mở lần cuối cùng đó. Giờ em muốn nhờ các anh chị thiết lập cho em 1 đoạn code sao cho khi mở file này nó luôn mở sheet MENU thôi. Và sau đó mình muốn mở sheet nào thì mở sau.
Cám ơn anh/chị nhiều!

Giời ạ ! Bạn gửi File khóa code thì gửi làm gì (mất công dow) ?
Trong ThisWorkbook bạn viết code này thử xem

Private Sub Workbook_Open()
Sheets("Menu").Select
End Sub

 

[yome]

Dạ, em quên mất chứ! pass: "ngh". Anh/chị vui lòng chỉ dùm nhé!
Thanks

 

[Hai Lúa Miền Tây]

Chào anh chị GPE!
Em có 1 file (đính kèm). Em đã thiết lập marco để ẩn sheet không cần thiết mở và chỉ để 1 sheet luôn mở thôi. Nhưng vấn đề là: Khi em thoát ra và máy yêu cầu lưu lại. Lần sau mở ra nó lại hiện sheet mở lần cuối cùng đó. Giờ em muốn nhờ các anh chị thiết lập cho em 1 đoạn code sao cho khi mở file này nó luôn mở sheet MENU thôi. Và sau đó mình muốn mở sheet nào thì mở sau.
Cám ơn anh/chị nhiều!

Chạy Macro Ansheet khi mở file, nó sẽ đóng tất cả các sheet ngoại trừ sheet MENU

Dim sh As Worksheet
[COLOR=Green]' Dong tat ca sheet[/COLOR]
Sub AnSheet()
Application.ScreenUpdating = False
  For Each sh In ThisWorkbook.Sheets
     If UCase(sh.CodeName) <> "SHEET1" Then [COLOR=Green]'SHEET MENU[/COLOR]
       sh.Visible = xlSheetVeryHidden
     End If
  Next
Application.ScreenUpdating = True

End Sub
[COLOR=Green]' Mo tat ca sheet[/COLOR]
Sub MoSheet()
Application.ScreenUpdating = False
  For Each sh In ThisWorkbook.Sheets
    sh.Visible = xlSheetVisible
  Next
Application.ScreenUpdating = True

End Sub

 

[TrungChinhs]

Dạ, em quên mất chứ! pass: "ngh". Anh/chị vui lòng chỉ dùm nhé!
Thanks

Ban Paste code này vào module ThisWorkbook

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In Worksheets
    Sh.Visible = 1
    If Sh.Name <> Sheets("Menu").Name Then Sh.Visible = 2
Next
End Sub