Hỏi code Ẩn hiện sheet

[letuongqt]

Đoạn code ẩn hiện sheet lấy từ diễn đàn , khi áp dụng không biết sai chổ nào mà khi dùng liên kết đến sheet vẫn không hiện được sheet . Nhờ các anh hướng dẫn giúp . Rất cảm ơn .
(Trước đây tôi đã áp dụng chạy được nhưng bây giờ thì không ).

 

[Po_Pikachu]

Mình không biết bạn lấy nó từ đâu nhưng theo mình thì mình sẽ làm cách này! Bạn bỏ hết mấy cái Hyperlink cho các ô C5, C6, C7 đi vì nó đâu có làm được gì đâu. Sữa dữ liệu lại thành tên Sheet tức là C5=a1, C6=a2, C7=a3 Rồi sữa lại đoạn code VBA thành như bên dưới.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     On Error Resume Next     For i = 1 To Sheets.Count Step 1     If Sheets(i).Name  "mucluc" Then         Sheets(i).Visible = False     End If     Next     Sheets(Target.Value).Visible = True     Sheets(Target.Value).Select End Sub

Và giờ thì bạn thử lại xem có hiệu quả không? Thân.

 

[Tran Mui]

Cảm ơn PiKaChu

Mình cảm ơn bạn trong đoạn code ẩn hiện sheet, mình đã làm theo hướng đãn nhưng trong sheet a2 khi cilk chuột nó cứ nhấp nháy mãi mới được , bạn xem giúp nhé ( file đã chỉnh đính kèm)

 

[ndu96081631]

Mình cảm ơn bạn trong đoạn code ẩn hiện sheet, mình đã làm theo hướng đãn nhưng trong sheet a2 khi cilk chuột nó cứ nhấp nháy mãi mới được , bạn xem giúp nhé ( file đã chỉnh đính kèm)

Bạn remove mấy cái Hyperlink đi là xong chuyện
Thêm nữa:
- Code lý ra chỉ cho vào 1 sheet (là sheet Mucluc) ---> Sao bạn paste code vào tùm lum chổ thế kia?
- Code có thể rút gọn:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  For i = 1 To Sheets.Count
    Sheets(i).Visible = (Sheets(i).Name = Target Or Sheets(i).Name = "mucluc")
  Next
  Sheets(Target).Select
End Sub

 

[danghochoi1234]

Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác.

 

[danghochoi1234]

Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác.

 

[minhtuanxl]

Hỏi cách ẩn, hiện Sheet
Bạn nào biết cách ẩn hiện Sheet trong Excel giúp mình với:
Mình đã thử theo cách: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra. Trong cửa sổ Project - VBA Project, nhắp đúp vào VBA Project, tiếp tục nhắp đúp vào Microsoft Excel Objects để mở các bảng tính trong tài liệu sau đó rồi chọn bảng tính mà bạn muốn giấu -> rồi nhấn F4. Trong tùy chọn Visible bạn nhắp vào dấu tam giác chọn 2-xlSheetVeryHidden, cuối cùng đóng Microsoft Visual Basic này lại và xem kết quả thế nào

Khi nào muốn bảng tính hiện ra trở lại, thì bạn chỉ cần thực hiện lại các thao tác trên và chọn -1-xlSheetVisible là được.
Nhưng có một số Sheet khi mở ẩn không được vì trong Visible nó báo sheet đó ghi 0-xlSheetHiden mà không phải 2-xlSheetVeryHidden để chuyển về 1-xlSheetVisible. Khi bấm về 1-xlSheetVisible thì Micrồt Visual Basic báo Unable to set the Visible property of the Worksheet class
Có ai biết giúp mình với
Địa chỉ email của mình là: minhtuanxl@gmail.com
Thanks

 

[TrungChinhs]

Code ẩn Sheets (2 kiểu ẩn)

Sub HideSheet()
    Sheets("Sheet2").Visible = 0
    Sheets("Sheet3").Visible = 2
End Sub

Code hiện Sheet

Sub UnHideSheet()
    Sheets("Sheet2").Visible = -1
    Sheets("Sheet3").Visible = -1
End Sub

 

[huydinhbk]

Nhưng có một số Sheet khi mở ẩn không được vì trong Visible nó báo sheet đó ghi 0-xlSheetHiden mà không phải 2-xlSheetVeryHidden để chuyển về 1-xlSheetVisible. Khi bấm về 1-xlSheetVisible thì Micrồt Visual Basic báo Unable to set the Visible property of the Worksheet class
Có ai biết giúp mình với
Địa chỉ email của mình là: minhtuanxl@gmail.com
Thanks

trả lời: workbook cua bạn đã bị protect, chỉ cần unprotect là xong. quá đơn giản
có vấn đề j chưa rõ yahoo mes tui là : huydinhbk

 

[huyphan]

111

Mình cũng bị như trên, không mở được sheet thì làm sao unprotect sheet đó hả bạn? giúp mình với!!!

 

[thcshaily]

Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment an hien sheet(mật khẩu là 1).rarnguyenhaison73@gmail.com

 

[thcshaily]

Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng&nbsp; ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646<A href="mailto:nguyenhaison73@gmail.com">nguyenhaison73@gmail.com</A>

 

[thcshaily]

Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng&amp;nbsp; ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646&lt;A href="mailto:nguyenhaison73@gmail.com"&gt;nguyenhaison73@gmail.com&lt;/A&gt;

 

[ndu96081631]

Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng&amp;nbsp; ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646&lt;A href="mailto:nguyenhaison73@gmail.com"&gt;nguyenhaison73@gmail.com&lt;/A&gt;

Xem bài viết này sẽ làm được ngay:
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet&

 

[heoxinh89]

Cả nhà thông thái ơi, giúp em với ạ.
Em tạo link sheet, nhưng khi đến sheet chính, em lại không tạo nút button để quay trở lại nên bị mất 1 số sheet. Ai đó giúp em làm thế nào để quay lại sheet ban đầu, và thế nào để hiện lại những sheet bị ẩn.

 

[Ba Tê]

Cả nhà thông thái ơi, giúp em với ạ.
Em tạo link sheet, nhưng khi đến sheet chính, em lại không tạo nút button để quay trở lại nên bị mất 1 số sheet. Ai đó giúp em làm thế nào để quay lại sheet ban đầu, và thế nào để hiện lại những sheet bị ẩn.

Chép cái này vào module Module, chạy thử xem
[GPECODE=vb]Public Sub UnHide_Sh()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Visible = xlSheetVisible
Next Ws
End Sub[/GPECODE]

 

[kkggkk1]

ActiveWindow.DisplayWorkbookTabs = False

Ẩn

ActiveWindow.DisplayWorkbookTabs = True

Hiện
Gán vào button nào đó rồi nhấn, hiện, ẩn tất cả các sheet trên bảng excel

 

[Ba Tê]

ActiveWindow.DisplayWorkbookTabs = False

Ẩn

ActiveWindow.DisplayWorkbookTabs = True

Hiện
Gán vào button nào đó rồi nhấn, hiện, ẩn tất cả các sheet trên bảng excel

Dzụ dzì dzậy Chời?????????????????????

 

[GTK-PM]

Nhờ anh chị hoàn thiện lại cho em nút bấm liên kết từ Trang chủ đến các sheet và từ sheet khi bấm vào nút Trang chủ thì quay lại trang đầu. Nội dung code đã xin ở bài trên a.

 

[GTK-PM]

Em xin đính kèm file bên dưới