• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Protect nhiều file Words theo đường dẫn động

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Help] Protect nhiều file Words theo đường dẫn động
• Protect nhiều file Words theo đường dẫn động

• RE: Protect nhiều file Words theo đường dẫn động

  jeck09nt > 10-11-15, 10:29 AM

  Chào Maidinhdan.
  *Folder giải nén được đặt tại : C:\ProtectManyWords
  *Chạy file "ProtectManyWords.mdb" ; tại giao diện này sẽ có : 
      +Button "Protect nhiều File Word theo đường dẫn cố định" : Nút này mình đã sử dụng code theo đường dẫn cố định là                                                                                                           C:\ProtectManyWords\Words     (VĐ1).
          -Các file word được tạo thành file mới với mật khẩu là "123".
          -Lựa chọn này chưa đạt theo mong muốn !
      + Button "Protect All Files" : Nút này mình đang vướng mắt chưa biết viết code như thế nào.                                           
  *Tiếp theo là file word 2007: "Protect_UnProtec.dotm" mình có tạo sẵn 2 button "Protect All .docx" và "Unprotect All .docx" . Code này chỉ chạy trên Visual Basic Word 2007.     (VĐ2)
  - Trên cơ sở của code của (VĐ1) và (VĐ2), mình muốn viết code cho button "Protect All Files" : Sau khi đã chọn từng file word (kể cả những file word ngoài thư mục tại đường dẫn C:\ProtectManyWords\Words) tại Subform (tên là "frmDocMan" ở chế độ design) phía trên thì có thể tạo mật khẩu "123" để Protect tất cả các file word đã chọn.

• RE: Protect nhiều file Words theo đường dẫn động

  maidinhdan > 12-11-15, 01:02 PM

  Vấn đề này tham chiếu đến thư viện DLL của office 2007, mình xin nhờ anh Trần Thành Ân và các cao thủ khác cùng nghiên cứu giúp đỡ bạn.
  
  Rất mong các Anh/Chị cùng nghiên cứu

• RE: Protect nhiều file Words theo đường dẫn động

  tranthanhan1962 > 12-11-15, 03:28 PM

  (12-11-15, 01:02 PM)maidinhdan Đã viết: Vấn đề này tham chiếu đến thư viện DLL của office 2007, mình xin nhờ anh Trần Thành Ân và các cao thủ khác cùng nghiên cứu giúp đỡ bạn.
  
  Rất mong các Anh/Chị cùng nghiên cứu

  Bà xã mình vẫn còn nằm viện đến 17/11 này mới phẫu thuật. Chỉ có lúc mình về nhà trong thời gian ngắn tranh thủ lên forum tán hưu, tán vượn chứ giờ chưa thể tập trung ngâm cứu được. Chắc khoảng hơn tuần nữa mình sẽ rảnh. Nếu chưa ai xử lý mình sẽ nghiên cứu vụ này. Sorry. Vấn đề protect tập tin word bằng VBA có nhiều khó khăn vì các lệnh xử lý các version có thể sẽ khác nhau. cũng có thể suy nghĩ một hướng khác. Thông thường người ta xử lý bằng phương pháp protect folder

• RE: Protect nhiều file Words theo đường dẫn động

  hieuvn > 12-11-15, 04:18 PM

  bạn đã có code protect post trang 1 rồi đó, giờ chỉ việc tạo 1 cái fileOpendialog, chọn file rồi áp dụng thôi.

• RE: Protect nhiều file Words theo đường dẫn động

  jeck09nt > 16-11-15, 09:42 AM

  Mình nhờ hieuvn hướng dẫn thêm  cách tạo fileOpendialog như thế nào với !

• RE: Protect nhiều file Words theo đường dẫn động

  hieuvn > 16-11-15, 09:58 AM

  (16-11-15, 09:42 AM)jeck09nt Đã viết: Mình nhờ hieuvn hướng dẫn thêm  cách tạo fileOpendialog như thế nào với !

  
  Dim varFile As Variant
  Dim fDialog    As Object
   Set fDialog = Application.FileDialog(3)
   With fDialog
   .AllowMultiSelect = True
   .Filters.Clear
   .Filters.Add "Word2007 document", "*.docx"
  .Filters.Add "Word2003 document", "*.doc"
   .Filters.Add "All Files", "*.*"
   If .Show Then
   For Each varFile In .SelectedItems
             msgbox varFile 
           Next
  
        Else
           MsgBox "Ban da cancel."
   End If
   
    End With
  mình đã xem file của bạn đính kèm, phần protect (command15) nên code lại cho pro hơn chút xíu
  rảnh mình code lại cho

• RE: Protect nhiều file Words theo đường dẫn động

  jeck09nt > 20-11-15, 03:57 PM

  Các Anh/Chị nào đã thực hiện được bản Demo nhờ Post lên để mọi người tham khảo với !
  Xin cám ơn !

• RE: Protect nhiều file Words theo đường dẫn động

  hieuvn > 21-11-15, 11:08 PM

  nếu bạn dùng Access 2010 trở lên thì mình làm demo cho, vì mình xài office từ 2010 đến 2013, cũng dễ mà. ý mình là gửi file demo khác phiên bản thì bạn không mở được, chứ mình mà code thì không cần tham chiếu phiên bản thư viện nên chẳng cần quan tâm đến phiên bản office.

• RE: Protect nhiều file Words theo đường dẫn động

  jeck09nt > 23-11-15, 11:58 AM

  Mình có thể dùng Access 2010 nên nhờ hieuvn gửi giúp bản demo nhé !

• RE: Protect nhiều file Words theo đường dẫn động

  hieuvn > 23-11-15, 02:21 PM

  demo của bạn đây
  Have fun
• Bài trước Bài tiếp