Bảo vệ workbook bằng password thì macro không chay được (1 người xem)

[overnight_9]

Macro được cài trong workbook, đã mặc định tên file & sheet....
để không cho người dùng thay đổi or là lỗi về thao tác ảnh hưởng đến macro, nên dùng protect workbook thì macro đứng không chay luôn, vậy có cách nào khác không các sư huynh, mách em với, cám ơn

 

[Hong.Van]

Macro được cài trong workbook, đã mặc định tên file & sheet....
để không cho người dùng thay đổi or là lỗi về thao tác ảnh hưởng đến macro, nên dùng protect workbook thì macro đứng không chay luôn, vậy có cách nào khác không các sư huynh, mách em với, cám ơn

VD: bạn protect workbook là abc và code của bạn là Sub ABC()

Thì chèn code này vào trong code của bạn
Sub ABC()
ActiveSheet.Unprotect "abc"
CODE CỦA BẠN
ActiveSheet.Protect "abc"
End Sub
--------------
P/s: trước nay tôi chỉ áp dụng cho Protect sheet, chưa thử protect workbook

 

[overnight_9]

VD: bạn protect workbook là abc và code của bạn là Sub ABC()

Thì chèn code này vào trong code của bạn
Sub ABC()
ActiveSheet.Unprotect "abc"
CODE CỦA BẠN
ActiveSheet.Protect "abc"
End Sub
--------------
P/s: trước nay tôi chỉ áp dụng cho Protect sheet, chưa thử protect workbook

cám ơn anh,
em đang học ABC mà, nhưng vừa học vừa đưa sản phẩm vào làm việc luôn. (em đang xin nguồn tùm lum ở GPE mà)

Một macro chưa hoàn chỉnh em cứ test ngang test dọc test ra test vào đủ kiểu.
càng test càng thấy thiếu sót và lỗi từa lưa, mỗi lần lỗi là lên Search rồi ngồi ngâm.

Nếu file đưa lên đĩa ở Sever dùng chung mà không bảo vệ file thì không được, khi marco bị die thì check lại mệt lắm.

Em rất thích người biết & am hiểu em share hết để cùng ngâm cứu thêm, nhưng rất sợ người không biết mà khi bị lỗi rồi cứ hỏi cắc cớ thì mệt làm anh trai.

Càng nói càng thèm beer mấy hôm nay việc nhiều mà hết giờ làm là lên net ngồi học nữa mệt quá, chưa alo các su phụ & su huynh để còn học lỏm thêm chiêu mới, chắc tuần sau (tuần 36) phải alo mới được HIC HIC.

 

[Hong.Van]

cám ơn anh,
em đang học ABC mà, nhưng vừa học vừa đưa sản phẩm vào làm việc luôn. (em đang xin nguồn tùm lum ở GPE mà)

Một macro chưa hoàn chỉnh em cứ test ngang test dọc test ra test vào đủ kiểu.
càng test càng thấy thiếu sót và lỗi từa lưa, mỗi lần lỗi là lên Search rồi ngồi ngâm.

Nếu file đưa lên đĩa ở Sever dùng chung mà không bảo vệ file thì không được, khi marco bị die thì check lại mệt lắm.

Em rất thích người biết & am hiểu em share hết để cùng ngâm cứu thêm, nhưng rất sợ người không biết mà khi bị lỗi rồi cứ hỏi cắc cớ thì mệt làm anh trai.

Càng nói càng thèm beer mấy hôm nay việc nhiều mà hết giờ làm là lên net ngồi học nữa mệt quá, chưa alo các su phụ & su huynh để còn học lỏm thêm chiêu mới, chắc tuần sau (tuần 36) phải alo mới được HIC HIC.

Bạn xem tôi có tên ở đây không nhé!
Nếu không có tên ở đó thì chắc có tên ở hội CFC!!!
------------
Riêng PW chỉ phòng các người ngay thôi bạn ạ!

nhưng rất sợ người không biết mà khi bị lỗi rồi cứ hỏi cắc cớ thì mệt làm anh trai.

Bộ có PW rồi thì code không báo lỗi hả???
-------------
Thèm beer thì về Biên Hòa kìa!
----------

 

[overnight_9]

Bạn xem tôi có tên ở đây không nhé!
Nếu không có tên ở đó thì chắc có tên ở hội CFC!!!
------------
Riêng PW chỉ phòng các người ngay thôi bạn ạ!

Bộ có PW rồi thì code không báo lỗi hả???
-------------
Thèm beer thì về Biên Hòa kìa!
----------

Úi Úi, không phải mình ích kỷ, mà thí vụ như họ vô tình thay đổi tên sheet or họ delete sheet chẳng hạn thì lỗi rồi, phải không?

vì khi mình mặc định sheet or tên file để lấy dữ liệu họ đâu có biết có thể vô tình bị lỗi, nên mình tạm thời clock để không thay đổi được thôi. HIC HIC

 

[Quang_Hải]

Úi Úi, không phải mình ích kỷ, mà thí vụ như họ vô tình thay đổi tên sheet or họ delete sheet chẳng hạn thì lỗi rồi, phải không?

vì khi mình mặc định sheet or tên file để lấy dữ liệu họ đâu có biết có thể vô tình bị lỗi, nên mình tạm thời clock để không thay đổi được thôi. HIC HIC

Thử chạy code này xem còn vô tình xoá sheet hay đổi tên sheet được nữa hay không nha

Sub disable_sheet_delete ()
    Application.CommandBars("Ply").Controls("Delete").Enabled = False
    Application.CommandBars("Ply").Controls("Rename").Enabled = False
End Sub

 

[PhanTuHuong]

Macro được cài trong workbook, đã mặc định tên file & sheet....
để không cho người dùng thay đổi or là lỗi về thao tác ảnh hưởng đến macro, nên dùng protect workbook thì macro đứng không chay luôn, vậy có cách nào khác không các sư huynh, mách em với, cám ơn

Bạn up file lên đi, test thử là biết ngay do cái gì, chẳng hạn như thay đổi giá trị ở ô đang bị protect chẳng hạn

 

[ndu96081631]

Thử chạy code này xem còn vô tình xoá sheet hay đổi tên sheet được nữa hay không nha

Sub disable_sheet_delete ()
    Application.CommandBars("Ply").Controls("Delete").Enabled = False
    Application.CommandBars("Ply").Controls("Rename").Enabled = False
End Sub

Hổng biết Excel 2003 và 2007 thì sao chứ tôi dùng Excel 2010, code trên chẳng tác dụng gì
Kết luận: Những cái liên quan đến CommandBars ta nên cẩn thận xem xét trên nhiều version mới mong nó hoàn hảo

 

[overnight_9]

Hổng biết Excel 2003 và 2007 thì sao chứ tôi dùng Excel 2010, code trên chẳng tác dụng gì
Kết luận: Những cái liên quan đến CommandBars ta nên cẩn thận xem xét trên nhiều version mới mong nó hoàn hảo

Nhưng mà excel2010 thì protect workbook & windows macro chạy được không clock
Nhưng mình làm trên excel 2010 đưa cho 2003 chạy thì excel chạy luôn.

 

[ptm0412]

overnight,
lock chứ không phải clock nha
khóa chứ không phải đồng hồ