Nhờ ae GPE giúp, mình có 1 file execl, mình muốn đặt pass khoá file đó theo thời gian chỉ định cho trước (1 người xem)

[nguyenngocvu011]

Ví dụ : mình muốn khoá pass file theo thời gian đã cài trước đó, mình cho là ngày 05/02/2021 là tới thời hạn khoá file lại, nhập pass mới cho mở, giống như những phần mền tới kỳ phải gian hạn lại, không biết ễcl có làm được vậy ? Nhờ ae GPE chỉ giúp

 

[Maika8008]

Ví dụ : mình muốn khoá pass file theo thời gian đã cài trước đó, mình cho là ngày 05/02/2021 là tới thời hạn khoá file lại, nhập pass mới cho mở, giống như những phần mền tới kỳ phải gian hạn lại, không biết ễcl có làm được vậy ? Nhờ ae GPE chỉ giúp

Tôi chưa thử làm như vậy bao giờ. Bạn thử xem:

Sub SaveAsWithPass()
Dim xPath As String, xName As String
If Date >= DateSerial(2021, 2, 3) Then
xPath = ThisWorkbook.Path
xName = ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=xPath & "\" & xName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="12345"
End If
End Sub

Với DateSerial(2021, 2, 3) là ngày mai: 03/02/2021

File được lưu lại với tên cũ và mật khẩu là 12345

 

[Maika8008]

À! Đặt sub vào 1 sự kiện workbook nào đó để kích hoạt nó.

 

[nguyenngocvu011]

À! Đặt sub vào 1 sự kiện workbook nào đó để kích hoạt nó.

Cám ơn bạn đã giúp đở! Mình thì k rành về vba lắm?

Bài đã được tự động gộp: 4/2/21

Tôi chưa thử làm như vậy bao giờ. Bạn thử xem:

Sub SaveAsWithPass()
Dim xPath As String, xName As String
If Date >= DateSerial(2021, 2, 3) Then
xPath = ThisWorkbook.Path
xName = ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=xPath & "\" & xName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="12345"
End If
End Sub

Với DateSerial(2021, 2, 3) là ngày mai: 03/02/2021

File được lưu lại với tên cũ và mật khẩu là 12345

Nếu không dùng vba có công thức nào không bạn?

 

[Maika8008]

Cám ơn bạn đã giúp đở! Mình thì k rành về vba lắm?

Bài đã được tự động gộp: 4/2/21

Nếu không dùng vba có công thức nào không bạn?

Theo tôi biết là không.

 

[batman1]

....................

 

[Quang_Hải]

Ví dụ : mình muốn khoá pass file theo thời gian đã cài trước đó, mình cho là ngày 05/02/2021 là tới thời hạn khoá file lại, nhập pass mới cho mở, giống như những phần mền tới kỳ phải gian hạn lại, không biết ễcl có làm được vậy ? Nhờ ae GPE chỉ giúp

Tại sao phải khóa? Đất nước này sẽ đi về đâu nếu ai cũng khóa, cũng giấu như mèo

 

[Phuocam]

Tại sao phải khóa? Đất nước này sẽ đi về đâu nếu ai cũng khóa, cũng giấu như mèo

Mèo giấu cái gì?

 

[tigertiger]

Thực ra khóa cũng có ích và chỉ phòng người ngay, giống như các cụ xưa khóa cổng vườn rào - bằng dây chuối buộc là đủ
Nên khóa kiểu này cũng đôi khi có ích và chỉ có ích cho chính người sử dụng thôi

 

[nguyenngocvu011]

Thực ra khóa cũng có ích và chỉ phòng người ngay, giống như các cụ xưa khóa cổng vườn rào - bằng dây chuối buộc là đủ
Nên khóa kiểu này cũng đôi khi có ích và chỉ có ích cho chính người sử dụng thôi

Bạn nói đúng rồi?

Bài đã được tự động gộp: 4/2/21

Tại sao phải khóa? Đất nước này sẽ đi về đâu nếu ai cũng khóa, cũng giấu như mèo

Mình đề phòng thôi bạn?

Bài đã được tự động gộp: 4/2/21

Theo tôi biết là không.

Cám ơn bạn đã hổ trợ mình

 

[VetMini]

Mèo giấu cái gì?

Giấu mèo chứ không phải mèo giấu.
(mèo ở đây có 2 chân)

Thực ra khóa cũng có ích và chỉ phòng người ngay, giống như các cụ xưa khóa cổng vườn rào - bằng dây chuối buộc là đủ
Nên khóa kiểu này cũng đôi khi có ích và chỉ có ích cho chính người sử dụng thôi

Vấn đề là đưa cho các cụ cái khoá xịn. Cụ khoá xong để chìa ở đâu quên mất

Bài này vấn đề không nằm ở chỗ khoá hay không khoá mà ở chỗ về sau này nó rắc rối ra sao.
Cái khó không nằm ở chỗ code mà nằm ở quy trình.

 

[nguyenngocvu011]

Giấu mèo chứ không phải mèo giấu.
(mèo ở đây có 2 chân)


Vấn đề là đưa cho các cụ cái khoá xịn. Cụ khoá xong để chìa ở đâu quên mất

Bài này vấn đề không nằm ở chỗ khoá hay không khoá mà ở chỗ về sau này nó rắc rối ra sao.
Cái khó không nằm ở chỗ code mà nằm ở quy trình.

Cám ơn bạn đã góp ý