Hỏi về sheet mặc định mở khi mở file (1 người xem)

[pinklove]

Em có lượm lặt được cái file tạo nút link đến các sheet rất hay của bác Tuấn và bác Ndu. E đã áp dụng thành công nhưng có gặp một vấn đề. Đó là khi em dùng code này thì em không thể dùng được code của sub auto_open được nữa. Trong file ví dụ của anh Ndu em gửi lại đây em bỏ mấy cái code auto_open vào cũng ko chạy được. Nhờ anh em giúp đỡ để sheet "Trang chu" luôn mở mặc định khi mở file.

 

[ndu96081631]

Em có lượm lặt được cái file tạo nút link đến các sheet rất hay của bác Tuấn và bác Ndu. E đã áp dụng thành công nhưng có gặp một vấn đề. Đó là khi em dùng code này thì em không thể dùng được code của sub auto_open được nữa. Trong file ví dụ của anh Ndu em gửi lại đây em bỏ mấy cái code auto_open vào cũng ko chạy được. Nhờ anh em giúp đỡ để sheet "Trang chu" luôn mở mặc định khi mở file.

Tên sheet của bạn là "Trang chu" trong khi đúng ra phải là "Trang chủ" mới chính xác (tên sheet tiếng Việt có dấu)
Sửa lại tên sheet rồi tính tiếp

 

[ndu96081631]

Mà thôi, đang rảnh, làm cho bạn luôn
Toàn bộ code:

Private Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
[COLOR=#0000cd]Private Sub ShowAllShs()
  With Sheet1.Shapes("All").TextFrame.Characters
    SheetsVisible (.Text = "SHOW ALL")
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
End Sub[/COLOR]
[COLOR=#ff0000]Private Sub SheetsVisible(ByVal Visible As Boolean)
  Dim wks As Worksheet, wksMain As Worksheet
  Application.ScreenUpdating = False
  Set wksMain = Worksheets("trang ch" & ChrW(7911))
  On Error Resume Next
  For Each wks In ThisWorkbook.Worksheets
    If UCase(wks.Name) <> UCase(wksMain.Name) Then wks.Visible = Visible
  Next
  Application.ScreenUpdating = True
End Sub[/COLOR]
[COLOR=#0000cd]Sub Auto_Open()
  Dim wksMain As Worksheet
  Set wksMain = Worksheets("trang ch" & ChrW(7911))
  wksMain.Visible = True: wksMain.Activate
  SheetsVisible False
End Sub[/COLOR]

Những chỗ màu đỏ là thêm vào, chỗ màu xanh là sửa lại

 

[pinklove]

Mà thôi, đang rảnh, làm cho bạn luôn
Toàn bộ code:

Private Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
[COLOR=#0000cd]Private Sub ShowAllShs()
  With Sheet1.Shapes("All").TextFrame.Characters
    SheetsVisible (.Text = "SHOW ALL")
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
End Sub[/COLOR]
[COLOR=#ff0000]Private Sub SheetsVisible(ByVal Visible As Boolean)
  Dim wks As Worksheet, wksMain As Worksheet
  Application.ScreenUpdating = False
  Set wksMain = Worksheets("trang ch" & ChrW(7911))
  On Error Resume Next
  For Each wks In ThisWorkbook.Worksheets
    If UCase(wks.Name) <> UCase(wksMain.Name) Then wks.Visible = Visible
  Next
  Application.ScreenUpdating = True
End Sub[/COLOR]
[COLOR=#0000cd]Sub Auto_Open()
  Dim wksMain As Worksheet
  Set wksMain = Worksheets("trang ch" & ChrW(7911))
  wksMain.Visible = True: wksMain.Activate
  SheetsVisible False
End Sub[/COLOR]

Những chỗ màu đỏ là thêm vào, chỗ màu xanh là sửa lại

Cảm ơn anh nhiều. Hôm qua giờ mưa bão chỗ em mất điện giờ mới online được.

 

[pinklove]

Nhờ anh Ndu giúp e thêm một chút ở file này. Em muốn tạo một form đăng nhập và phần quyền để sử dụng các sheet trong file. Và em muốn tận dụng luôn cái file link sheet này để phân quyền. ý tưởng của e là e sẽ tạo 2 (hoặc nhiều hơn) các "trang chủ". Ở mỗi "trang chủ" tương ứng với mỗi loại use thì em chỉ để button link đến các sheet use đó được sử dụng. Em có đọc một số bài hướng dẫn về phân quyền trên GPE nhưng để kết hợp với file này thì e chưa làm được vì lúc link đến các sheet mà use được phân quyền xong thì không biết lúc trở về phải làm sao trở về đúng trang chủ của use đó.
Nhờ anh Ndu và các anh em trong GPE xem giúp.

 

[ndu96081631]

Nhờ anh Ndu giúp e thêm một chút ở file này. Em muốn tạo một form đăng nhập và phần quyền để sử dụng các sheet trong file. Và em muốn tận dụng luôn cái file link sheet này để phân quyền. ý tưởng của e là e sẽ tạo 2 (hoặc nhiều hơn) các "trang chủ". Ở mỗi "trang chủ" tương ứng với mỗi loại use thì em chỉ để button link đến các sheet use đó được sử dụng. Em có đọc một số bài hướng dẫn về phân quyền trên GPE nhưng để kết hợp với file này thì e chưa làm được vì lúc link đến các sheet mà use được phân quyền xong thì không biết lúc trở về phải làm sao trở về đúng trang chủ của use đó.
Nhờ anh Ndu và các anh em trong GPE xem giúp.

Liên quan đến Form đăng nhập + phân quyền gì đó thì lại không liên quan gì đến chủ đề của topic này cả
Có thể tham khảo
https://www.google.com.vn/search?do...0&sitesearch=www.giaiphapexcel.com&gws_rd=ssl
-------------------
Lần sau lưu ý nhé: Hỏi cái gì thì phải đúng chủ đề. Không có chuyện đang hỏi cái này lại hỏi "ké" thêm cái khác

 

[pinklove]

Liên quan đến Form đăng nhập + phân quyền gì đó thì lại không liên quan gì đến chủ đề của topic này cả
Có thể tham khảo
https://www.google.com.vn/search?do...0&sitesearch=www.giaiphapexcel.com&gws_rd=ssl
-------------------
Lần sau lưu ý nhé: Hỏi cái gì thì phải đúng chủ đề. Không có chuyện đang hỏi cái này lại hỏi "ké" thêm cái khác

Em đã tham khảo và đọc rồi mà vẫn chưa làm được anh ạ. Có mấy cái code của anh Nghĩa "đập chai" ấy mà ko sửa được theo ý em vào bài này. Em sẽ mở topic mới nhờ a giúp cho em với nhé. Em cảm ơn anh.