code ẩn công thức (4 người xem)

[maiban116]

Xin hỏi các thầy có code nào ẩn toàn bộ công thức trên toàn bộ shet không ạ. vì nhiều shet quá

 

[phulien1902]

Xin hỏi các thầy có code nào ẩn toàn bộ công thức trên toàn bộ shet không ạ. vì nhiều shet quá

Bạn thử:

Sub abc()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In ActiveWorkbook.Sheets
        With Sh
            .Unprotect Password:="123"
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
            .Cells.SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
            .Protect AllowDeletingRows:=True
            .Protect AllowSorting:=True
            .Protect AllowFiltering:=True
            .Protect Password:="123"
        End With
    Next Sh
End Sub

 

[saobekhonglac]

Bạn thử:

Sub abc()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In ActiveWorkbook.Sheets
        With Sh
            .Unprotect Password:="123"
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
            .Cells.SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
            .Protect AllowDeletingRows:=True
            .Protect AllowSorting:=True
            .Protect AllowFiltering:=True
            .Protect Password:="123"
        End With
    Next Sh
End Sub

Cái này là protect tất cả các sheet mà.

 

[phulien1902]

Cái này là protect tất cả các sheet mà.

Vậy muốn dùng 1 Sheets, thì bỏ vòng lặp For Each.. . là xong, có gì là khó khăn đâu nhỉ?

 

[saobekhonglac]

Vậy muốn dùng 1 Sheets, thì bỏ vòng lặp For Each.. . là xong, có gì là khó khăn đâu nhỉ?

Mình nghỉ chủ thớt muốn chỉ k hiện công thức, chứ không phải khóa những ô có công thức đâu.

 

[maiban116]

Bạn thử:

Sub abc()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In ActiveWorkbook.Sheets
        With Sh
            .Unprotect Password:="123"
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
            .Cells.SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
            .Protect AllowDeletingRows:=True
            .Protect AllowSorting:=True
            .Protect AllowFiltering:=True
            .Protect Password:="123"
        End With
    Next Sh
End Sub

anh ơi ẩn thì có ẩn rồi nhưng nó lại làm mất code dãn dòng tự động của e rồi. anh có cách khác không ạ

 

[phulien1902]

Mình nghỉ chủ thớt muốn chỉ k hiện công thức, chứ không phải khóa những ô có công thức đâu.

Vậy thử chép cái này vào ThisWorkBook :

Private Sub Workbook_Activate()
    Application.DisplayFormulaBar = False
End Sub

 

[maiban116]

Vậy thử chép cái này vào ThisWorkBook :

Private Sub Workbook_Activate()
    Application.DisplayFormulaBar = False
End Sub

cho vào làm sao nữa bạn ơi

 

[befaint]

Sheet1.UsedRange.Value = Sheet1.UsedRange.Value
'ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value'

 

[Thong Hoang Tien 250691]

Sheet1.UsedRange.Value = Sheet1.UsedRange.Value
'ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value'

Anh đi xa chủ đề rồi nhé. Phân biệt rõ ràng giữa "Ẩn công thức" và "Bỏ hoàn toàn công thức (.Value)".
Kẻo chủ thớt dùng code xong lại khóc lóc vì mất hết công thức của file. Theo em có 2 cách thì anh @phulien1902 đã nêu cả 2 rồi.

Bài đã được tự động gộp: 16/10/18

cho vào làm sao nữa bạn ơi

Xong chỉ việc active WB lên thôi, đoạn code sẽ ẩn cái thanh fomular này đi này: