Hỏi cách ẩn dòng cột bằng VBA (2 người xem)

[spirit1989]

Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
Chỉ có pass để vào vba mới unhide được nha các bạn, còn click chuột phải unhide bình thường thì không được

cảm ơn các bạn trước nhé

 

[nghiaphuc]

Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
cảm ơn các bạn trước nhé

Nó là thế này:

Sub Test()
    Range("C:D,G:G").EntireColumn.Hidden = True
    Range("2:5").EntireRow.Hidden = True
End Sub

 

[hungpecc1]

Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
cảm ơn các bạn trước nhé

Chắc là bạn mới học macro, bạn dùng thêm chức năng record macro sẽ rất có ích trong quá trình làm việc

 

[spirit1989]

Nó là thế này:

Sub Test()
    Range("C:D,G:G").EntireColumn.Hidden = True
    Range("2:5").EntireRow.Hidden = True
End Sub

Chắc là bạn mới học macro, bạn dùng thêm chức năng record macro sẽ rất có ích trong quá trình làm việc

bạn có cách nào cho nó tự chạy không? mà khi muốn bỏ ẩn thì không thể dùng chuột phải để unhide

nghĩa là mình muốn ẩn những dòng và cột đó nhưng người khác không thể unhide được, chỉ có pass để vào VBA mới được thôi

 

[hungpecc1]

bạn có cách nào cho nó tự chạy không? mà khi muốn bỏ ẩn thì không thể dùng chuột phải để unhide

nghĩa là mình muốn ẩn những dòng và cột đó nhưng người khác không thể unhide được, chỉ có pass để vào VBA mới được thôi

Thử code này xem

Sub ab()
     Range("A1", "XFD1048576").Locked = False
     With Range("C:D,G:G")
            .EntireColumn.Hidden = True
            .Locked = True
     End With
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

hoặc là làm thủ công, vào review - --> protect worksheet.........

 

[nghiaphuc]

Thử code này xem

Sub ab()
     Range("A1", "XFD1048576").Locked = False
     With Range("C:D,G:G")
            .EntireColumn.Hidden = True
            .Locked = True
     End With
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

hoặc là làm thủ công, vào review - --> protect worksheet.........

Chi mà phải phức tạp dữ vậy bạn? Thuộc tính Locked thì cứ để kệ nó chứ cần gì phải thay đổi? Vì thuộc tính này không phải là mấu chốt của vấn đề Unhide các cột. Mấu chốt vấn đề chỉ là câu lệnh ActiveSheet.Protect "Password".

 

[hungpecc1]

Chi mà phải phức tạp dữ vậy bạn? Thuộc tính Locked thì cứ để kệ nó chứ cần gì phải thay đổi? Vì thuộc tính này không phải là mấu chốt của vấn đề Unhide các cột. Mấu chốt vấn đề chỉ là câu lệnh ActiveSheet.Protect "Password".

Lâu rồi ko ktra lại ,ngày xưa nếu chỉ muốn Khóa các cells ở cột C,G:G ,mình thường ctrl A để locked đi --> nếu không thì ko tương tác được với các cells khác khi protect