có cách nào tạo pass cho đồng loại nhiều sheet 1 lần không (1 người xem)

[hpbphuong]

tôi có 1 tệp tin, trong đó có nhiều sheet và cần phải protec các ô
sau đó đặt pass cho các sheet, nhưng mình có mười mấy sheet lận
do đó mỗi lần khóa mệt luôn vậy đó
các bạn có cách nào đặt pass 1 lần để khoá tất cả các sheet không
cám ơn nhiều

 

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

tôi có 1 tệp tin, trong đó có nhiều sheet và cần phải protec các ô
sau đó đặt pass cho các sheet, nhưng mình có mười mấy sheet lận
do đó mỗi lần khóa mệt luôn vậy đó
các bạn có cách nào đặt pass 1 lần để khoá tất cả các sheet không
cám ơn nhiều

Bạn dùng code sau thử nhé

Sub Pass()
Dim sh As Worksheet
    For Each sh In Worksheets
       sh.Protect Password:="YourPass"
    Next sh

End Sub

 

[hpbphuong]

cám ơn bạn, có cách nào không dùng VBA không?

 

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

cám ơn bạn, có cách nào không dùng VBA không?

Mình nghĩ không có cách nào ngoại trừ dùng VBA thôi bạn.