Viết Code Bảo Vệ Dữ Liệu Và Xóa Dữ Liệu (1 người xem)

[vuongtoituonglai]

Chào Anh Chị Và Các Bạn GPE!
Chúc các anh/chị và các bạn có ngày mùng 10 tháng 3 thật vui, thật hạnh phúc.
Mình đang có một vấn đề cần sự giúp đỡ của anh, chị và các bạn GPE.
Tất cả những gì cần giúp đỡ đều có trong file đính kèm.
Xin trân trọng cảm ơn

 

[quanluu]

Chào Anh Chị Và Các Bạn GPE!
Chúc các anh/chị và các bạn có ngày mùng 10 tháng 3 thật vui, thật hạnh phúc.
Mình đang có một vấn đề cần sự giúp đỡ của anh, chị và các bạn GPE.
Tất cả những gì cần giúp đỡ đều có trong file đính kèm.
Xin trân trọng cảm ơn

Phần protect bạn tự làm (code protect: aaa)

Unprotect:

Sub Unprotect()
Dim pasunprotect as string
pasunprotect = inputbox("nhap ma xac nha")
if pasunprotect = "aaa" then Activesheet.Unprotect "aaa"
end sub

code cho Clear tương tự.

Save to pdf:
Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:= ThisWorkbook.Name, _
OpenAfterPublish:=False

 

[vuongtoituonglai]

Phần protect bạn tự làm (code protect: aaa)

Unprotect:

Sub Unprotect()
Dim pasunprotect as string
pasunprotect = inputbox("nhap ma xac nha")
if pasunprotect = "aaa" then Activesheet.Unprotect "aaa"
end sub

code cho Clear tương tự.

Save to pdf:
Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:= ThisWorkbook.Name, _
OpenAfterPublish:=False

Cảm ơn bạn đã giúp đỡ
Mình copy code vào nhưng code Không hoạt động được với lại tạo các nút Protect/Unprotect/Save As To PDF và Clear Data phải tạo như thế nào mình chưa tạo được mong tiếp tục nhận được sự giúp đỡ của bạn.
Trân trọng cảm ơn

 

[quanluu]

Cảm ơn bạn đã giúp đỡ
Mình copy code vào nhưng code Không hoạt động được với lại tạo các nút Protect/Unprotect/Save As To PDF và Clear Data phải tạo như thế nào mình chưa tạo được mong tiếp tục nhận được sự giúp đỡ của bạn.
Trân trọng cảm ơn

Bạn xem trong file đính kèm

 

[vuongtoituonglai]

Bạn xem trong file đính kèm

Cảm ơn bạn đã giúp đỡ.
Có vài vấn đề bạn ơi, bạn chỉnh sữa giúp mình nhé.
- Khi mình nhập liệu vào nhấn Save thì các cell có dữ liệu vừa nhập vẫn xóa được bình thường
- Password nhập vào để Unprotect or Clear Data bạn chỉnh cho nó hiện dấu sao(*) or dấu(.) nhé
- Phần Clear Data mính thấy báo lỗi
- Save As To PDF bạn chỉnh lại giúp mình tên file của PDF trùng với tên file của excel
Cảm ơn bạn nhé

 

[vuongtoituonglai]

Cảm ơn bạn đã giúp đỡ.
Có vài vấn đề bạn ơi, bạn chỉnh sữa giúp mình nhé.
- Khi mình nhập liệu vào nhấn Save thì các cell có dữ liệu vừa nhập vẫn xóa được bình thường
- Password nhập vào để Unprotect or Clear Data bạn chỉnh cho nó hiện dấu sao(*) or dấu(.) nhé
- Phần Clear Data mính thấy báo lỗi
- Save As To PDF bạn chỉnh lại giúp mình tên file của PDF trùng với tên file của excel
Cảm ơn bạn nhé

Anh chị và các bạn am hiểu vấn đề nay vui lòng giúp mình với, mình đang gặp khó khăn. Cảm ơn

 

[quanluu]

Anh chị và các bạn am hiểu vấn đề nay vui lòng giúp mình với, mình đang gặp khó khăn. Cảm ơn

Đã chỉnh sủa thêm cho bạn, còn vấn đề gì thì bạn coi code để fix.

 

[vuongtoituonglai]

Đã chỉnh sủa thêm cho bạn, còn vấn đề gì thì bạn coi code để fix.

Cảm ơn bạn! Sao mình nhập dữ liệu thêm vào sau đó save lại những cell vừa mới nhập vẫn xóa được vậy bạn.
Ý mình là những Cell rỗng(không có dữ liệu thì nhập thoải mái sau khi Save thì không sữa xóa được những cell đó.
Phấn nhập password thì chỉnh thêm dùm mình chổ này nhé: khung nhập password ra những dấu * là đúng rồi nhưng sau khi save thì những dấu * này sẽ mất đi, muốn chỉnh sữa thì nhập password lại.
Chân thành cảm ơn bạn

 

[quanluu]

Cảm ơn bạn! Sao mình nhập dữ liệu thêm vào sau đó save lại những cell vừa mới nhập vẫn xóa được vậy bạn.
Ý mình là những Cell rỗng(không có dữ liệu thì nhập thoải mái sau khi Save thì không sữa xóa được những cell đó.
Phấn nhập password thì chỉnh thêm dùm mình chổ này nhé: khung nhập password ra những dấu * là đúng rồi nhưng sau khi save thì những dấu * này sẽ mất đi, muốn chỉnh sữa thì nhập password lại.
Chân thành cảm ơn bạn

không hiểu ý bạn muốn gì luôn, Ở đây mình chỉ lock range "Ạ:J26" thui nên khi protectsheet sẽ ko sửa đc vùng này. Nếu bạn muốn cho cả sheet thì quét chọn cả sheet rùi chọn format cell/protect/ tích chọn lock. như thế khi save (protect sheet) bạn ko thể chỉnh sửa đc gì cả. Hay là bạn muốn khi Save, những ô có dữ liệu thì ko xoá đc, còn những ô trống vẫn nhap dl đc bt?
Còn vấn đề xoá * thì bạn vào phần soạn VBA (Alt + F11) trong this workbook bạn thêm dòng code: TxtPass.Text = ""

 

[vuongtoituonglai]

không hiểu ý bạn muốn gì luôn, Ở đây mình chỉ lock range "Ạ:J26" thui nên khi protectsheet sẽ ko sửa đc vùng này. Nếu bạn muốn cho cả sheet thì quét chọn cả sheet rùi chọn format cell/protect/ tích chọn lock. như thế khi save (protect sheet) bạn ko thể chỉnh sửa đc gì cả. Hay là bạn muốn khi Save, những ô có dữ liệu thì ko xoá đc, còn những ô trống vẫn nhap dl đc bt?
Còn vấn đề xoá * thì bạn vào phần soạn VBA (Alt + F11) trong this workbook bạn thêm dòng code: TxtPass.Text = ""

1. Code hiện tại vùng A1:J26 hiện vẫn xóa được bình thường mà bạn, Mình muốn khóa vùng này khi Save những ô có dữ liệu sẽ không xóa được, còn những ô trống vẫn nhập dữ liệu bình thường.
2. Mình copy code bỏ vào thisworkbook như sau:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Success = True Then ActiveSheet.Protect "aaa"
TxtPass.Text = ""
End Sub
Mình thấy code báo lỗi
bạn kiểm lại dùm mình nhé.
cảm ơn bạn

 

[quanluu]

1. Code hiện tại vùng A1:J26 hiện vẫn xóa được bình thường mà bạn, Mình muốn khóa vùng này khi Save những ô có dữ liệu sẽ không xóa được, còn những ô trống vẫn nhập dữ liệu bình thường.
2. Mình copy code bỏ vào thisworkbook như sau:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Success = True Then ActiveSheet.Protect "aaa"
TxtPass.Text = ""
End Sub
Mình thấy code báo lỗi
bạn kiểm lại dùm mình nhé.
cảm ơn bạn

Lần cuối bạn nhé. Bạn nên ấn nút cảm ơn để cảm ơn.

 

[vuongtoituonglai]

Lần cuối bạn nhé. Bạn nên ấn nút cảm ơn để cảm ơn.

Cảm ơn bạn nhé!
Bạn không giúp nữa thì mình nữa thì chịu vậy chứ biết làm sao bây giờ.
phần nhập password thì OK rồi, còn phần khóa dữ liệu lại thì chưa đúng, code của bạn khóa tất cả các ô từ A1:J26(kể cả các ô không có dữ liệu cũng khóa luôn) Nếu có thể bạn giúp mình còn không thể thì anh chị và các bạn trên GPE tiếp tục giúp mình nhé.
cảm ơn tất cả

 

[quanluu]

Cảm ơn bạn nhé!
Bạn không giúp nữa thì mình nữa thì chịu vậy chứ biết làm sao bây giờ.
phần nhập password thì OK rồi, còn phần khóa dữ liệu lại thì chưa đúng, code của bạn khóa tất cả các ô từ A1:J26(kể cả các ô không có dữ liệu cũng khóa luôn) Nếu có thể bạn giúp mình còn không thể thì anh chị và các bạn trên GPE tiếp tục giúp mình nhé.
cảm ơn tất cả

Tưởng bạn khoá cố định cái đó. Nếu k khoá cố định thì xoá 3 dòng (dòng. Range +2 dòng duới nó trong thisworkbook

 

[vuongtoituonglai]

Tưởng bạn khoá cố định cái đó. Nếu k khoá cố định thì xoá 3 dòng (dòng. Range +2 dòng duới nó trong thisworkbook

Cảm ơn bạn, mình đã làm được rồi

 

[vuongtoituonglai]

Tưởng bạn khoá cố định cái đó. Nếu k khoá cố định thì xoá 3 dòng (dòng. Range +2 dòng duới nó trong thisworkbook

Bạn quanluu1989 có thể giúp mình kiểm tra giùm mình phần Uprotect Password: mình đổi pass thấy báo lỗi với lại chỉnh code sao cho khóa 1 sheet hiện tại thôi(hiện giờ mình thêm các sheet mới vào thì bị khóa luôn)
Cảm ơn bạn

 

[vuongtoituonglai]

Bạn quanluu1989 có thể giúp mình kiểm tra giùm mình phần Uprotect Password: mình đổi pass thấy báo lỗi với lại chỉnh code sao cho khóa 1 sheet hiện tại thôi(hiện giờ mình thêm các sheet mới vào thì bị khóa luôn)
Cảm ơn bạn

Anh chị và các bạn vui lòng chinh code giúp mình như nội dung của bài #15
Chân thành cảm ơn