[HELP] Project all sheet - Un Projeck all sheet (1 người xem)

[hoangtrong_vbnd]

Nhờ mọi người giúp đỡ theo file thực tế ạ.
E muốn file mặc định là khi mở sẽ project tất cả sheet bên trong, muốn sử dụng thì nhấn chọn unproject và nhập pass: admin chẳng hạn
Có tham khảo 1 số bài trên gpe nhưng e chưa biết sửa code sao cho phù hợp với mình.
E cảm ơn!

 

[dovanhoc84]

cái này cho workbook
Tiện thể Protect chứ k phải Project nhé bạn

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim acSh As String
Dim shCount, i As Integer
shCount = Sheets.Count
acSh = ActiveSheet.Name
For i = 1 To shCount
Sheets(i).Activate
ActiveSheet.Protect Password:="admin"

Next
Sheets(acSh).Activate
Application.ScreenUpdating = True


End Sub

Cái này cho nút bấm

Sub Unprotect()
Application.ScreenUpdating = False
Dim acSh As String
Dim shCount, i As Integer
shCount = Sheets.Count
acSh = ActiveSheet.Name
For i = 1 To shCount
Sheets(i).Activate
ActiveSheet.Unprotect Password:="admin"

Next
Sheets(acSh).Activate
Application.ScreenUpdating = True


End Sub

 

[hoangtrong_vbnd]

Bác ơi, phần code hơi có 1 vấn đề chút xíu là ở nút bấm khi e chọn để mở protect sheet thì nó lại ko hỏi pass mà cứ thế ​unprotct sheet thôi

 

[PhanTuHuong]

Viết tiếng tây cho đúng nhé!