Xin code VBA protect bằng pass toàn bộ các sheets trong 1 file excel (2 người xem)

[nhatnguyenspkt]

Dear All,

Mọi người cho em xin code VBA protect bằng pass toàn bộ các sheets trong 1 file excel

Thanks All,

 

[phulien1902]

Dear All,

Mọi người cho em xin code VBA protect bằng pass toàn bộ các sheets trong 1 file excel

Cảm ơn All,

Bạn tham khảo:
How To Protect Multiple Worksheets At Once In Excel?

 

[nhatnguyenspkt]

Cho em xin code mở khóa toàn bộ các sheet lại với ạ,
Tks

 

[phulien1902]

Bạn khóa xong rồi vất chìa khóa đi rồi à?

 

[Hong.Van]

Cho em xin code mở khóa toàn bộ các sheet lại với ạ,
Tks

Sub Khoa()    ' Khoa cac Sh
    Dim Sh As Worksheet, shp As Shape
    Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Protect "123"
    Next
    Application.ScreenUpdating = True
End Sub
Sub Mo()    ' Mo cac Sh
    Dim Sh As Worksheet, shp As Shape
    Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Unprotect "123"
    Next
    Application.ScreenUpdating = True
End Sub

 

[nhatnguyenspkt]

Bạn khóa xong rồi vất chìa khóa đi rồi à?

Dear Anh,

Em khóa hàng loạt xong rồi muốn mở lại hàng loạt,

Em tìm được code mở hàng loạt lại rồi,

Cám ơn Anh,