Làm Sao Đặt Password Sheet trong khi có nhiều sheet trong Workbook

[Account112]

Admin giúp mình đặt PassSheet trong khi mình có nhiều sheet trong một workbook bởi mình đang làm sổ chi tiết NVL để tính giá vốn hàng bán ra làm xong nhưng muốn đặt PassSheet để mọi người có thể mở lên xem nhưng ko đc chỉnh sửa nhưng có nhiều sheet quá nên ko thể làm nhiều lần như vậy đc chắc tay lắm nhi.... Hôm qua có chat với Anh Pham Thanh My bảo post thắc mắc lên đây mọi người giúp mình nha

 

[nghiaphuc]

Admin giúp mình đặt PassSheet trong khi mình có nhiều sheet trong một workbook bởi mình đang làm sổ chi tiết NVL để tính giá vốn hàng bán ra làm xong nhưng muốn đặt PassSheet để mọi người có thể mở lên xem nhưng ko đc chỉnh sửa nhưng có nhiều sheet quá nên ko thể làm nhiều lần như vậy đc chắc tay lắm nhi.... Hôm qua có chat với Anh Pham Thanh My bảo post thắc mắc lên đây mọi người giúp mình nha

Tạm thời thì bạn có thể tham khảo cách này: Nhấn Alt+F11 để mở cửa sổ Visual Basic, Insert một Module và dán code này vào:

Sub Protect_Sheets()
    Dim PW As String, Sh As Worksheet
    PW = InputBox("Nhap Password de khoa Sheet:", "Nhap Password")
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Protect PW
    Next Sh
End Sub

Sau đó, nhấn F5 để chạy, tất cả các Sheet của bạn sẽ được khóa với cùng Password mà bạn đã nhập vào.
Khi muốn mở ra để soạn thảo, chỉnh sửa, bạn chỉ cần thay câu lệnh Sh.Protect PW bởi câu lệnh Sh.Unprotect PW và cho chạy code là được.