Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Protect nhiều file Words theo đường dẫn động
#1
Gửi các Anh/Chị cao thủ !
Trong form : "frm Main"
Mình đã tạo được Protect nhiều file words theo đường dẫn cố định (ấn nút : "Protect nhiều File Word theo đường dẫn cố định")
Giờ mình muốn khi ấn nút : "Protect All Files" thì tất cả các file word đã chọn theo đường dẫn động của subform "frmDocMan1" sẽ được Protect tất cả.
Đường đẫn giải nén đặt tại : C:\ProtectManyWords\
Trân trọng cám ơn vì đã giúp đỡ !

Đường dẫn file đính kèm : 
http://www.mediafire.com/download/tq296s...yWords.zip
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Nhờ các Anh/Chị hướng dẫn giúp mình với !!!
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
(09-11-15, 08:58 AM)jeck09nt Đã viết: Nhờ các Anh/Chị hướng dẫn giúp mình với !!!

Nếu ý định của bạn chỉ có không muốn người dùng nào đó...(tạm gọi là anh Mr A) không được phép xem cũng như mở file Word đó. Thì mình ghĩ không cần thiết phải tạo hàm Mã hóa đường dẫn chi cho mệt và vất vả...

Góp ý: 2 việc cần làm


+ Tạo textbox chứa đường dẫn ẩn.
+ Phần quyền theo người dùng.


* Vì sao phải làm như vậy: Bởi trước hay sau khi hoàn thành chương trình của bạn thì bạn vẫn phải thiết kế phân quyền thôi.



* Còn nếu bạn vẫn muốn thực hiện theo ý định ban đầu hãy cho mình hay...mình sẽ hỗ trợ.

Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Cám ơn maidinhdan đã phản hồi,
Ở đây, Phòng mình là bộ phân soạn nhiều mẫu văn bản (có link qua Access) và được phân quyền cho mỗi cán bộ trong phòng, sau khi soạn xong toàn bộ mẫu phải được Protect (không dùng chức năng convert to PDF) để gửi cho phòng khác kiểm tra và ban hành. Nếu có chỉnh sửa thì bộ phận soạn thảo sẽ thực hiện, còn bộ phận ban hành sẽ nhận file đã Protect để in hoặc lưu theo qui định.
Vì trong Word mỗi lần chỉ Protect được 1 file nên rất mất thời gian, nên mình xem xét đến khả năng Protect nhiều file cùng một lúc. Mục đích của việc chọn đường dẫn động là để có thể linh hoạt chọn nhiều file word tại nhiều folder khác nhau cùng một lúc.
Nhờ Maidinhdan và các Anh/Chị hướng dẫn thêm.
Trân trọng !
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
Chào các Anh/Chị.
Mình có tham khảo được đoạn code (Protect và Unprotect) và  chỉ giải quyết cho đường dẫn cố định chạy trên nền  VB Word như sau :
Mã PHP:
'UNPROTECT
Sub UnprotectDocsInFolder()
Dim docfile As Document
Dim docpath As String
Dim docfilename As String
Dim pwd As String

 '
Path for the documents
docpath 
"C:\ProtectManyWords\Words\"
'Password
pwd = "
123"

 docfilename = Dir(docpath & "
*.docx")

 Do Until docfilename = ""
    Set docfile = Documents.Open(docpath & docfilename)
    If Not docfile.ProtectionType = -1 Then
         docfile.Unprotect pwd
         docfile.Close True
    Else
        docfile.Close False
    End If
    docfilename = Dir()
Loop
End Sub 
Mã PHP:
'PROTECT
Sub ProtectDocsInFolder()
Dim docfile As Document
Dim docpath As String
Dim docfilename As String
Dim pwd As String
 
  '
Path for the documents
 docpath 
"C:\ProtectManyWords\Words\"
 'Password
 pwd = "
123"
 
  docfilename = Dir(docpath & "
*.docx")
 
  Do Until docfilename = ""
     Set docfile = Documents.Open(docpath & docfilename)
     If docfile.ProtectionType = -1 Then
         docfile.Protect wdAllowOnlyFormFields, , pwd
          docfile.Close True
     Else
         docfile.Close False
     End If
     docfilename = Dir()
 Loop
End Sub 
Nhờ các Anh/Chị xem xét có thể chuyển Code trên qua Access được không ah ?
Cám ơn !
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
Do đoạn code trên vẫn chưa toàn vẹn, nên Bạn cho mình link Demo hoặc file của đoạn code trên để mình nghiên cứu dùm bạn.

Chú ý nhé: Mình chỉ hỗ trợ các file dạng *.mdb ( Access 2003) vì máy tính mình chỉ xài bản này thôi.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Mình gửi bản Demo word :
http://www.mediafire.com/view/bh2k7fzv31...rotec.dotm
Vẫn sử dụng đường đẫn và file word đã gửi lúc trước : C:\ProtectManyWords
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
Mình gửi lại file đính kèm có cả Access 2003 và 2007 : 
http://www.mediafire.com/download/tq296s...yWords.zip
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn maidinhdan
#9
Cuối năm công việc khá bận rộn, trong vòng 1 tuần sẽ trả lời cụ thể kèm hường dẫn cho bạn.


Nếu Anh/Chị nào có nghiên cứu xin hướng dẫn trước.

Thân Ái 015
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
(04-11-15, 06:34 PM)jeck09nt Đã viết: Mình đã tạo được Protect nhiều file words theo đường dẫn cố định (ấn nút : "Protect nhiều File Word theo đường dẫn cố định")

Giờ mình muốn khi ấn nút : "Protect All Files" thì tất cả các file word đã chọn theo đường dẫn động của subform "frmDocMan1" sẽ được Protect tất cả.
Đường đẫn giải nén đặt tại : C:\ProtectManyWords\

Mình chưa mở file bạn gửi...khi đọc lại câu này...tôi hơi bỡ ngỡ..bạn giải thích dùm chút nhé...
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,848 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,210 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 350 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,079 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 50 14,966 02-05-16, 10:52 PM
Bài mới nhất: kuzinhy

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ