LienDong
Thành viên thường trực
- Tham gia
- 22/11/12
- Bài viết
- 218
- Được thích
- 46
- Nghề nghiệp
- Ai nói đúng thì làm!
Xin chào các bạn!
Tôi có record macro để tạo pass cho sheet, pass là "lien"
khi record macro thì trong bảng protect sheet phần Allow all use of this worksheet to: tôi có đánh dấu tích tất cả
sau đó có chỉnh lại 1 chút. Bây giờ chạy code thì nó cứ hiện ra bảng nhập pass và code chạy không đúng yêu cầu như sau khi pass thì nó không cho filter, fotmat, delete cột , dòng ...
nhờ các bạn chỉnh sửa giúp. Cảm ơn các bạn!
Sub KhoaKhoa()
With ActiveSheet
.Protect "lien"
.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End With
End Sub
Tôi có record macro để tạo pass cho sheet, pass là "lien"
khi record macro thì trong bảng protect sheet phần Allow all use of this worksheet to: tôi có đánh dấu tích tất cả
sau đó có chỉnh lại 1 chút. Bây giờ chạy code thì nó cứ hiện ra bảng nhập pass và code chạy không đúng yêu cầu như sau khi pass thì nó không cho filter, fotmat, delete cột , dòng ...
nhờ các bạn chỉnh sửa giúp. Cảm ơn các bạn!
Sub KhoaKhoa()
With ActiveSheet
.Protect "lien"
.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End With
End Sub
