Nhờ sửa Code đóng Pass bị lỗi đoạn Objects

[le_vis]

Tôi có chạy đoạn Code :
Sheets("Bang Tong Hop").Protect Password:="******a", AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFormattingObjects:=True
Khi chạy bị lỗi ở đoạn đánh dấu đậm - Kính nhờ các bạn sửa giúp - Trân trọng cảm ơn

 

[Bluestar092011]

Tôi có chạy đoạn Code :
Sheets("Bang Tong Hop").Protect Password:="******a", AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFormattingObjects:=True
Khi chạy bị lỗi ở đoạn đánh dấu đậm - Kính nhờ các bạn sửa giúp - Trân trọng cảm ơn

Vì chổ đó code Excel không hiểu. Để khắc phục bỏ nó đi.

 

[le_vis]

Vì chổ đó code Excel không hiểu. Để khắc phục bỏ nó đi.

Mình vẫn biết là đoạn đó bị sai nên Excel nó không hiểu ;Nhưng mình muốn có nó để khi Đóng Pass rồi nhưng vẫn Insert Comment để ghi chú những điều cần thiết, nên muốn sửa cho chạy code chứ bỏ đi thì dễ quá rồi bạn nhỉ. Rất mong được các bạn giúp - Trân trọng cảm ơn

 

[HieuCD]

Mình vẫn biết là đoạn đó bị sai nên Excel nó không hiểu ;Nhưng mình muốn có nó để khi Đóng Pass rồi nhưng vẫn Insert Comment để ghi chú những điều cần thiết, nên muốn sửa cho chạy code chứ bỏ đi thì dễ quá rồi bạn nhỉ. Rất mong được các bạn giúp - Trân trọng cảm ơn

DrawingObjects:=False

 

[giaiphap]

Mình vẫn biết là đoạn đó bị sai nên Excel nó không hiểu ;Nhưng mình muốn có nó để khi Đóng Pass rồi nhưng vẫn Insert Comment để ghi chú những điều cần thiết, nên muốn sửa cho chạy code chứ bỏ đi thì dễ quá rồi bạn nhỉ. Rất mong được các bạn giúp - Trân trọng cảm ơn

Lúc đầu thay vì ghi code lỗi thì ghi mục đích thực sự cần thiết thì sẽ nhanh hơn không?

 

[le_vis]

Vì chổ đó code Excel không hiểu. Để khắc phục bỏ nó đi.

Lúc đầu thay vì ghi code lỗi thì ghi mục đích thực sự cần thiết thì sẽ nhanh hơn không?

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

Bài đã được tự động gộp: 12/4/21

Lúc đầu thay vì ghi code lỗi thì ghi mục đích thực sự cần thiết thì sẽ nhanh hơn không?

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

File đính kèm​

 

[Nhattanktnn]

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

Bài đã được tự động gộp: 12/4/21

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

File đính kèm​

Bạn thử thế này xem:

Sheets("Bang Tong Hop").Protect Password:="******a", UserInterfaceOnly:=True, AllowFiltering:=True, DrawingObjects:=False, AllowFormattingCells:=True, Contents:=True

 

[Bluestar092011]

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

Bài đã được tự động gộp: 12/4/21

Mục đích của mình là : Khi code đóng Pass lại rồi thì mình vẫn có thể Insert Comment để ghi chú được
Nhưng khi mình đánh dấu tích vào mục Edit objects rồi và thoát ra mở lại thì dấu tích lại mất tiêu nên muốn xử lý code này
Kính nhờ bạn xem sửa giúp hoạc cho biện pháp xử lý hữu hiệu - Chân thành cảm ơn

File đính kèm​

Recode macro sẽ thấy kết quả.

 

[Maika8008]

Tôi có chạy đoạn Code :
Sheets("Bang Tong Hop").Protect Password:="******a", AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFormattingObjects:=True
Khi chạy bị lỗi ở đoạn đánh dấu đậm - Kính nhờ các bạn sửa giúp - Trân trọng cảm ơn

Cú pháp trong đoạn code đó bạn lấy ở đâu? Hay là ghi ra từ record macro của phiên bản này nhưng phiên bản khác không chấp nhận? Nếu thế thì bạn chỉ cần ghi macro thao tác protect sheet là thấy ngay các lệnh cần dùng.

 

[le_vis]

Bạn thử thế này xem:

Sheets("Bang Tong Hop").Protect Password:="******a", UserInterfaceOnly:=True, AllowFiltering:=True, DrawingObjects:=False, AllowFormattingCells:=True, Contents:=True

Xin cảm ơn Nhattanktnn . Mình đã tùy biến được - Vì nếu dùng
Sheets("Bang Tong Hop").Protect Password:="******a", UserInterfaceOnly:=True, AllowFiltering:=True, DrawingObjects:=False, AllowFormattingCells:=True, Contents:=True
Thì Insert Comment nhưng một số chức năng khác sẽ bị khóa - Xin cảm ơn bạn nhiều

Bài đã được tự động gộp: 12/4/21

Cú pháp trong đoạn code đó bạn lấy ở đâu? Hay là ghi ra từ record macro của phiên bản này nhưng phiên bản khác không chấp nhận? Nếu thế thì bạn chỉ cần ghi macro thao tác protect sheet là thấy ngay các lệnh cần dùng.

Cảm ơn bạn nhiều -