Hỏi tùy chỉnh co, dãn kích thước độ rộng hàng, cột bằng VBA

[Quyenct]

Chào mọi người,
Mình có viết code này để khóa tất cả các sheet trong workbook mình đang mở, chủ yếu mình muốn khóa ô có công thức thôi, vẫn cho tùy chỉnh kéo dãn hoặc co kích thước của cột và hàng, nhưng code này chạy xong rồi thì nó khóa luôn không cho kéo dãn độ rộng hàng hay cột nữa. Nhờ mọi người xem và sửa giúp mình nha

Mình cảm ơn,

Sub Khoa_TatCa_Sheet()

Dim Ten_Sheet As Worksheet

Dim MatKhauKhoa As String

MatKhauKhoa = InputBox(“az”, vbOKCancel)

For Each Ten_Sheet In ActiveWorkbook.Worksheets

Ten_Sheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True

Ten_Sheet.Protect Password = MatKhauKhoa
Next Ten_Sheet

End Sub

 

[ppc0312]

Chào mọi người,
Mình có viết code này để khóa tất cả các sheet trong workbook mình đang mở, chủ yếu mình muốn khóa ô có công thức thôi, vẫn cho tùy chỉnh kéo dãn hoặc co kích thước của cột và hàng, nhưng code này chạy xong rồi thì nó khóa luôn không cho kéo dãn độ rộng hàng hay cột nữa. Nhờ mọi người xem và sửa giúp mình nha

Mình cảm ơn,

Sub Khoa_TatCa_Sheet()

Dim Ten_Sheet As Worksheet

Dim MatKhauKhoa As String

MatKhauKhoa = InputBox(“az”, vbOKCancel)

For Each Ten_Sheet In ActiveWorkbook.Worksheets

Ten_Sheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True

Ten_Sheet.Protect Password = MatKhauKhoa
Next Ten_Sheet

End Sub

xóa dòng
Ten_Sheet.Protect Password = MatKhauKhoa

và sửa dòng trên nó, thành:
Ten_Sheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:= MatKhauKhoa

 

[Quyenct]

xóa dòng
Ten_Sheet.Protect Password = MatKhauKhoa

và sửa dòng trên nó, thành:
Ten_Sheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:= MatKhauKhoa

Thật sự rất cảm ơn bạn. Mình làm được rồi <3 <3