Khóa file và save as sang pdf (1 người xem)

[vuongtoituonglai]

Chào các anh chị và các bạn GPE!
Tôi đang gặp phải một số khó khăn trong công việc rất mong các anh chị và các bạn hỗ trợ tôi giải quyết vấn đề này, tất cả đều có trong file đính kèm.
Chân thành cảm ơn.

 

[vuongtoituonglai]

Chào các anh chị và các bạn GPE!
Tôi đang gặp phải một số khó khăn trong công việc rất mong các anh chị và các bạn hỗ trợ tôi giải quyết vấn đề này, tất cả đều có trong file đính kèm.
Chân thành cảm ơn.

Mục số 2 và 3 tôi nghỉ là khó thực hiện được. còn mục 1 thì tôi tìm được đoạn code trên GPE nhưng chưa phù hợp lắm nên nhờ các anh chị và các bạn sửa lại dùm cho phù hợp như sau:
vùng dữ liệu từ B15:J26 (G:J có Merge) cho nhập liệu thoải mái sau khi thực hiện Save thì cell nào có dữ liệu sẽ khóa lại không cho chỉnh sửa(muốn sửa phải nhập Password vào). Các anh, chị và các bạn xem đoạn code này chỉnh sửa như thế nào vui lòng giúp tôi.
chân thành cảm ơn.
code như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
ActiveSheet.Unprotect "GPE"
For Each Cll In Target.Cells
Cll.Locked = (Cll <> "")
Next
ActiveSheet.Protect "GPE"
End Sub

 

[anhdepjai]

Mục số 2 và số 3 nếu bạn dùng office 2010 thì chắc có sẵn tính năng lưu sang pdf.
CÒn nếu office 2007 trở xuống thì bạn cài thêm cái này, nó sẽ có thêm lưu ra pdf. bạn record macro rồi chỉnh sửa nhé

 

[kbw1]

Mục số 2 và số 3 nếu bạn dùng office 2010 thì chắc có sẵn tính năng lưu sang pdf.
CÒn nếu office 2007 trở xuống thì bạn cài thêm cái này, nó sẽ có thêm lưu ra pdf. bạn record macro rồi chỉnh sửa nhé

Cái này có phải của thầy ndu không bạn?
Thầy ndu có 1 add in save2PDF cũng hay lắm.

 

[vuongtoituonglai]

Mục số 2 và số 3 nếu bạn dùng office 2010 thì chắc có sẵn tính năng lưu sang pdf.
CÒn nếu office 2007 trở xuống thì bạn cài thêm cái này, nó sẽ có thêm lưu ra pdf. bạn record macro rồi chỉnh sửa nhé

Cảm ơn bạn đã chia sẽ, nơi tôi làm sử dụng cả 2 bộ office 2007 và 2010(không phải 1 máy cà 02 bộ office đâu nhé) và cũng có cài phần mềm chuyển từ excel sang PDF nhưng khi chuyển file sang PDF đều phải làm thủ công với lại số lượng file cần chuyển tương đối lớn(tháng 12 hàng năm phải chuyển trên 2000 file sang PDF)
còn vấn đề sửa code để sau khi save không cho chỉnh sửa những cell có dữ liệu như mình nêu ở trên bạn và các anh chị nào biết vui lòng giúp mình với.
Chân thành cảm ơn.

 

[vuongtoituonglai]

Cái này có phải của thầy ndu không bạn?
Thầy ndu có 1 add in save2PDF cũng hay lắm.

Cảm ơn bạn đã thông tin.
Code này chắc không phải của thầy ndu đâu
bạn có Link add in của thầy ndu chia sẽ cho mình với
cảm ơn nhiểu

 

[kbw1]

Cảm ơn bạn đã thông tin.
Code này chắc không phải của thầy ndu đâu
bạn có Link add in của thầy ndu chia sẽ cho mình với
cảm ơn nhiểu

Bạn vào link này.
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành/page2
Mình cũng đang dùng add in này của thầy.
Rất tiện dụng.

 

[vuongtoituonglai]

Mục số 2 và 3 tôi nghỉ là khó thực hiện được. còn mục 1 thì tôi tìm được đoạn code trên GPE nhưng chưa phù hợp lắm nên nhờ các anh chị và các bạn sửa lại dùm cho phù hợp như sau:
vùng dữ liệu từ B15:J26 (G:J có Merge) cho nhập liệu thoải mái sau khi thực hiện Save thì cell nào có dữ liệu sẽ khóa lại không cho chỉnh sửa(muốn sửa phải nhập Password vào). Các anh, chị và các bạn xem đoạn code này chỉnh sửa như thế nào vui lòng giúp tôi.
chân thành cảm ơn.
code như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
ActiveSheet.Unprotect "GPE"
For Each Cll In Target.Cells
Cll.Locked = (Cll <> "")
Next
ActiveSheet.Protect "GPE"
End Sub

Tôi đang gặp vấn đề về việc nhập password như sau:

Tại khung nhập password điều chỉnh hiện lên những dấu sao"****" là phần mã hóa của pass.
Anh, chị và các bạn nào biết xin hãy chỉ giúp tôi.
Chân thành cảm ơn.