Code ẩn công thức toàn bộ cell có công thức của workbook và khóa workbook

[LuuAnh980]

Em có bắt chước viết đoạn code này:

Sub LockWorkbookAndHideFormulas()
    Dim ws As Worksheet
    Dim cell As Range
    
    Set ws = ActiveSheet
    
  
    ThisWorkbook.Protect
    
    For Each cell In ws.UsedRange.SpecialCells(xlCellTypeFormulas)
        cell.FormulaHidden = True
    Next cell
    
    MsgBox "Workbook da khoa va an cong thuc.", vbInformation
End Sub

Mà code không chạy ạ, mong các anh xem giúp.

 

[BuiQuangThuan]

Thisworkbook protect cho xuống dưới next cell

 

[LuuAnh980]

Cám ơn anh @BuiQuangThuan để em thử ạ.

Bài đã được tự động gộp: 9/1/24

Code chạy nhưng vẫn hiện công thức anh @BuiQuangThuan ơi.

 

[zzzsxxx01]

Cám ơn anh @BuiQuangThuan để em thử ạ.

Bài đã được tự động gộp: 9/1/24

Code chạy nhưng vẫn hiện công thức anh @BuiQuangThuan ơi.View attachment 298239

Ý bạn như thế này à ?.

 

[LuuAnh980]

File của bạn @zzzsxxx01 chỉ có 1 sheet, của mình nhiều sheet khóa hết và ẩn công thức.
Mong bạn xem giúp.

 

[BuiQuangThuan]

Thisworkbook protect cho xuống dưới next cell

Cám ơn anh @BuiQuangThuan để em thử ạ.

Bài đã được tự động gộp: 9/1/24

Code chạy nhưng vẫn hiện công thức anh @BuiQuangThuan ơi.View attachment 298239

Việc đầu tiên là bạn phải cho nó không ở chế độ khoá toàn bộ đã

 

[LuuAnh980]

File đây các anh ạ.
Mong các anh và anh @BuiQuangThuan giúp.

 

[CHAOQUAY]

File đây các anh ạ.
Mong các anh và anh @BuiQuangThuan giúp.

Chạy thử code dưới đây

Option Explicit

Sub A_LockWorkbookAndHideFormulas()
Dim Ws As Worksheet
   
For Each Ws In Worksheets
    Ws.UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
    Ws.UsedRange.SpecialCells(xlCellTypeFormulas).Locked = True
    Ws.Protect
    MsgBox Ws.Name & " _ da khoa va an cong thuc.", vbInformation
Next Ws

End Sub

 

[LuuAnh980]

Em có thử thì lỗi
nhấn debug thì lỗi vàng ngay
Mong anh @CHAOQUAY xem giúp

 

[zzzsxxx01]

Em có thử thì lỗi View attachment 298243
nhấn debug thì lỗi vàng ngayView attachment 298244
Mong anh @CHAOQUAY xem giúp

Bạn thử sửa thành như vậy xem sao:

Bài đã được tự động gộp: 9/1/24

Em có thử thì lỗi View attachment 298243
nhấn debug thì lỗi vàng ngayView attachment 298244
Mong anh @CHAOQUAY xem giúp

Bạn thử sửa thành như vậy xem sao
Option Explicit

Sub A_LockWorkbookAndHideFormulas()
Dim Ws As Worksheet

On Error Resume Next

For Each Ws In Worksheets
Ws.Unprotect
Ws.UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
Ws.UsedRange.SpecialCells(xlCellTypeFormulas).Locked = True
Ws.Protect
MsgBox Ws.Name & " _ da khoa va an cong thuc.", vbInformation
Next Ws

End Sub

 

[giaiphap]

Em có thử thì lỗi View attachment 298243
nhấn debug thì lỗi vàng ngayView attachment 298244
Mong anh @CHAOQUAY xem giúp

Thử lại code này xem có được không? Lưu ý nếu sheet đã protect thì chổ Unprotect phải truyền đúng mật khẩu nhé

Option Explicit
Function GetFormulas(Rng As Range) As Range
    On Error Resume Next
    Set GetFormulas = Rng.SpecialCells(xlCellTypeFormulas)
End Function
Sub A_LockWorkbookAndHideFormulas()
Dim Ws As Worksheet
Dim Rng As Range
    For Each Ws In Worksheets
        If Ws.ProtectContents Then Ws.Unprotect
        Set Rng = GetFormulas(Ws.UsedRange)
        If Not Rng Is Nothing Then
            Rng.FormulaHidden = True
            Rng.Locked = True
        End If
        Ws.Protect
    Next Ws
    MsgBox Ws.Name & " _ da khoa va an cong thuc.", vbInformation
End Sub

 

[LuuAnh980]

Cám ơn các anh @zzzsxxx01 và anh @giaiphap đã được rồi ạ.
Nhưng cho em xin code khóa nhưng vẫn cho Lọc (Filter) ạ.
À, mà khóa xong thì mở khóa là chỉnh ws.Protect thành ws.unprotect hả các anh. (để chỉnh công thức hoặc kéo thêm công thức)

 

[giaiphap]

Nhưng cho em xin code khóa nhưng vẫn cho Lọc (Filter) ạ.

Thử lại thế này.

Ws.Protect AllowFiltering:=True

 

[LuuAnh980]

Anh @giaiphap ơi, em có làm code để mở khóa workbook như vầy:

Sub Unprotect()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If Ws.ProtectContents Then Ws.Unprotect "gpe"
    Next Ws
End Sub

nhưng thấy code chạy sượng sượng, mong các anh có thể chỉnh code lại cho mượt ạ.

 

[BuiQuangThuan]

nhưng thấy code chạy sượng sượng, mong các anh có thể chỉnh code lại cho mượt ạ.

Thấy code gọn gàng thế kia rồi mà bạn. Nó thực hiện đúng chức năng không?

 

[LuuAnh980]

Đúng chức năng anh @BuiQuangThuan ơi, nhưng thấy nó duyệt qua từng sheet rỏ, giật giật

 

[BuiQuangThuan]

Đúng chức năng anh @BuiQuangThuan ơi, nhưng thấy nó duyệt qua từng sheet rỏ, giật giật

Thêm chức năng tắt cập nhật màn hình đi

Application.ScreenUpdating = False
....
Application.ScreenUpdating=True

 

[Hoàng Tuấn 868]

giật giật

Thêm chức năng tắt cập nhật màn hình đi

Nôm na là "chống giật".

 

[BuiQuangThuan]

Nôm na là "chống giật".

Là chống giật thật anh ạ

 

[HeSanbi]

thấy nó duyệt qua từng sheet rỏ, giật giật

Bạn thử thêm DoEvents vào giữa vòng lặp