Ungroup/Group trong chế độ Protect Sheet

[bun_bo_hue]

Các bác cho em hỏi có cách nào trong chế độ Protect Sheet mà mình vẫn có thể Ungroup/Group Row/Columns được không ạ ???

Vì Ungroup/Group khi em record macro không ra sự kiện nào (không có code) nên em không bít phải làm sao ???

 

[hoangdanh282vn]

Các bác cho em hỏi có cách nào trong chế độ Protect Sheet mà mình vẫn có thể Ungroup/Group Row/Columns được không ạ ???

Vì Ungroup/Group khi em record macro không ra sự kiện nào (không có code) nên em không bít phải làm sao ???

Khi Protect sheet thì group đã bị khóa.
Bạn tạo trong Sheet một Command. Nhấn vào thì sẽ UnProtect và cột chọn sẽ group/Ungroup, sau đó sẽ Protect lại.

 

[bun_bo_hue]

Khi Protect sheet thì group đã bị khóa.
Bạn tạo trong Sheet một Command. Nhấn vào thì sẽ UnProtect và cột chọn sẽ group/Ungroup, sau đó sẽ Protect lại.

Không có cách nào làm cho việc Protect/Unprotect vô hình đc hả pác ? Mình tính làm thế này, khi nhấn nút Ungroup/Group sẽ tự động Protect/Unprotect luôn, vô hình với người sử dụng ?

Vấn đề là khi Ungroup/Group trong Excel khôgn có sự kiện gì xảy ra để em code được cả ? Chán vãi.

 

[hoangdanh282vn]

Không có cách nào làm cho việc Protect/Unprotect vô hình đc hả pác ? Mình tính làm thế này, khi nhấn nút Ungroup/Group sẽ tự động Protect/Unprotect luôn, vô hình với người sử dụng ?
Vấn đề là khi Ungroup/Group trong Excel khôgn có sự kiện gì xảy ra để em code được cả ? Chán vãi.

Không có sự kiện nào trong sheet liên quan đến group.
Có gì đâu mà chán chứ bạn. Không đi đường tắt được thì ta đi đường vòng. Đâu có ảnh hưởng lắm đến thẩm mỹ và thời gian đâu.

 

[bun_bo_hue]

Không có sự kiện nào trong sheet liên quan đến group.
Có gì đâu mà chán chứ bạn. Không đi đường tắt được thì ta đi đường vòng. Đâu có ảnh hưởng lắm đến thẩm mỹ và thời gian đâu.

Vì một số lý do nên mình không thể làm thêm 1 button Unprotect sheet được . Vậy là pó tay với thằng Ungroup/Group. Cám ơn pác nhiều ạ.

 

[hoangdanh282vn]

Vì một số lý do nên mình không thể làm thêm 1 button Unprotect sheet được . Vậy là pó tay với thằng Ungroup/Group. Cám ơn pác nhiều ạ.

Sao bó tay được chứ.
Bạn copy đoạn code sau vào ThisWorkbook rồi lưu lại nha. VD Pass là "danh GPE"

Private Sub Workbook_Open()
With Sheet1
    .EnableOutlining = True
    .Protect Password:="danh GPE", Contents:=True, UserInterfaceOnly:=True
End With
End Sub

 

[bun_bo_hue]

Sao bó tay được chứ.
Bạn copy đoạn code sau vào ThisWorkbook rồi lưu lại nha. VD Pass là "danh GPE"

Private Sub Workbook_Open()
With Sheet1
    .EnableOutlining = True
    .Protect Password:="danh GPE", Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Hay quá. Đúng ý em rồi. Cám ơn bác nhiều lắm

 

[nguyen.nhan90]

Sao bó tay được chứ.
Bạn copy đoạn code sau vào ThisWorkbook rồi lưu lại nha. VD Pass là "danh GPE"

Private Sub Workbook_Open()
With Sheet1
    .EnableOutlining = True
    .Protect Password:="danh GPE", Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Anh Danh ơi,
Anh có thể viết hộ em code để là sao em vừa hide/unhide và group/ungroup với 1 protect sheet ko ạ?
Bởi vì trước khi viết code của anh em vẫn hide và unhide bình thường dữ liệu đã khóa, sau khi viêt code thì hide ko đc.
Em cám ơn anh Danh nhiều ạ.

 

[Minhnha1983]

Sao bó tay được chứ.
Bạn copy đoạn code sau vào ThisWorkbook rồi lưu lại nha. VD Pass là "danh GPE"

Private Sub Workbook_Open()
With Sheet1
    .EnableOutlining = True
    .Protect Password:="danh GPE", Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Cho mình hỏi tí. Đây là cách khoá nguyên sheet. Nếu muốn khoá một vùng ma vẫn dùng duoc group thi nên sửa như thế nào. Thanks !

 

[dungglai]

Hay quá. Đúng ý em rồi. Cám ơn bác nhiều lắm

Cho mình hỏi cũng cách như trên nhưng áp dụng cho nhiều Sheet cùng 1 file thì làm thế nào ạ
Giả sử mình có 5 sheet và cài protect sheet 5 sheet mà vẫn sử dụng nút un/group dc như sheet đầu.

 

[tuan8436]

ps help with autofilter