Làm sau để khi khóa sheet thì đánh dấu luôn vào mục Format Rows?

[aiquocxp]

Em có đoạn Macro sau để khóa và mở nhiều sheet
Xin các anh chị chỉ giúp khi khóa sheet thì làm sau để nó đánh dấu luôn vào mục Fomat Rows luôn

Option Explicit
Sub ProtectAllSheets()
  Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Unprotect "tentuinequocanh"
    Sh.Cells.Locked = False
    With Sh.Cells.SpecialCells(3, 23)
      .Locked = True
      .FormulaHidden = True
    End With
    Sh.Protect "tentuinequocanh"
  Next
End Sub

Sub UnProtectAllSheet()
  Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Unprotect "tentuinequocanh"
    Sh.Cells.Locked = True
    Sh.Cells.FormulaHidden = False
  Next
End Sub

 

[Po_Pikachu]

Thì viết thêm lệnh AllowFormattingRows:=True nữa là xong.

Option Explicit Sub ProtectAllSheets() Dim Sh As Worksheet On Error Resume Next For Each Sh In ThisWorkbook.Worksheets Sh.Unprotect "tentuinequocanh" Sh.Cells.Locked = False With Sh.Cells.SpecialCells(3, 23) .Locked = True .FormulaHidden = True End With Sh.Protect "tentuinequocanh", AllowFormattingRows:=True Next End Sub

 Sub UnProtectAllSheet() Dim Sh As Worksheet On Error Resume Next For Each Sh In ThisWorkbook.Worksheets Sh.Unprotect "tentuinequocanh" Sh.Cells.Locked = True Sh.Cells.FormulaHidden = False Next End Sub

Thân.

 

[ndu96081631]

Em có đoạn Macro sau để khóa và mở nhiều sheet
Xin các anh chị chỉ giúp khi khóa sheet thì làm sau để nó đánh dấu luôn vào mục Fomat Rows luôn
Option Explicit
Sub ProtectAllSheets()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect "tentuinequocanh"
Sh.Cells.Locked = False
With Sh.Cells.SpecialCells(3, 23)
.Locked = True
.FormulaHidden = True
End With
Sh.Protect "tentuinequocanh"
Next
End Sub
Sub UnProtectAllSheet()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect "tentuinequocanh"
Sh.Cells.Locked = True
Sh.Cells.FormulaHidden = False
Next
End Sub

Sửa đoan:
Sh.Protect "tentuinequocanh"
thành:
Sh.Protect "tentuinequocanh", AllowFormattingRows:=True

 

[aiquocxp]

cảm ơn các anh rất nhiều