Password trong Excel

[atulavn]

Trong quá trình code (VBA), em nhận thấy không nên cho người dùng thay đổi thông tin trực tiếp trên file excel của mình( nên em đã set protected sheet/workbook trong menu Tools), mà phải thông qua chương trình (VBA) của mình- tức là chỉ có mã code chương trình thực hiện thao tác chỉnh sửa/thay đổi thông tin. Đó là nhu cầu. Và em cũng đã thử, nhưng cập nhật/chỉnh sửa dữ liệu bằng code(VBA) thì cũng nhận thông báo tương tự như khi tương tác trực tiếp với bảng tính.
Vì vậy, các huynh có thể giúp em giải quyết vấn đề trên. Làm thế nào cho phép chương trình của mình ghi/xóa/cập nhật thông tin khi sheet/workbook đặt pass( đặt pass để cho user không thể thay đổi data trực tiếp mà phải qua form chương trình của mình, và tất nhiên mình cũng biết pass)

Cảm ơn các huynh nha.

 

[XuanThanh]

Trong quá trình code (VBA), em nhận thấy không nên cho người dùng thay đổi thông tin trực tiếp trên file excel của mình( nên em đã set protected sheet/workbook trong menu Tools), mà phải thông qua chương trình (VBA) của mình- tức là chỉ có mã code chương trình thực hiện thao tác chỉnh sửa/thay đổi thông tin. Đó là nhu cầu. Và em cũng đã thử, nhưng cập nhật/chỉnh sửa dữ liệu bằng code(VBA) thì cũng nhận thông báo tương tự như khi tương tác trực tiếp với bảng tính.
Vì vậy, các huynh có thể giúp em giải quyết vấn đề trên. Làm thế nào cho phép chương trình của mình ghi/xóa/cập nhật thông tin khi sheet/workbook đặt pass( đặt pass để cho user không thể thay đổi data trực tiếp mà phải qua form chương trình của mình, và tất nhiên mình cũng biết pass)

Cảm ơn các huynh nha.

Khi Sheeet hay Workbook đã đặt pas thì khi cho ghi dữ liệu vào Data bạn phải có câu lệnh để mở pas của Sheet hay Workbook.. Sau khi ghi xong thì lại khóa Sheet hoặc Workbook lại bằng câu lệnh sử dụng pas. Như vậy khi ghi dữ liệu bằng cách thủ công không thể nào ghi được và bắt buộc phải ghi theo cách của mình thôi
Thân

 

[atulavn]

Mình biết điều đó(những điều bạn nói), nhưng đặt code như thế nào, thứ tự ra sao, thì mình chưa rõ, nên muốn biết về mã code cho vấn đề này. Thanks

 

[SoiBien]

Bạn dùng thử đoạn code này nhé, trước khi bạn muốn thay đổi nội dung thì bạn unprotect sheet của mình ra, thay đổi xong thì Protect lại

    ActiveSheet.Unprotect "YourPass"
    Range("h14").Value = "ban thay doi gi do tai day, hihi"
    ActiveSheet.Protect "YourPass"

Thân.