Xin code đặt mật khẩu mở file khi đến ngày chỉ định

[saobekhonglac]

Chào anh/chị.

Anh/chị cho mình hỏi trong VBA mình có cách nào đặt mật khẩu mở file khi đến ngày nào đó không. Ví dụ mình viết code đến ngày 20/05/2017 thì khi mở file excel sẽ yêu cầu nhập mật khẩu. Những ngày trước 20/05 thì mở bình thường.

Cám ơn anh/chị. Chúc anh/chị tuần mới vui vẻ.

 

[Ai_Ma_Biet]

Cái này chắc không viết được đâu bạn ơi.

 

[saobekhonglac]

Cái này chắc không viết được đâu bạn ơi.

Mình cũng nghĩ như vậy, nhưng gửi thử xem biết đâu có hi vọng.hihi

 

[quanluu]

Mình cũng nghĩ như vậy, nhưng gửi thử xem biết đâu có hi vọng.hihi

Được bạn nhé. VIết code cho sự kiện workbook.open.

Private Sub Workbook_Open()
    If Date = DateSerial(2017, 5, 20) Then
        MsgBox ("nhap mk")
    End If
End Sub

 

[saobekhonglac]

Được bạn nhé. VIết code cho sự kiện workbook.open.

Private Sub Workbook_Open()
    If Date = DateSerial(2017, 5, 20) Then
        MsgBox ("nhap mk")
    End If
End Sub

Mình làm thử vẫn không được bạn ơi, Bạn xem lại giúp mình được không. Mình làm ngày 14/05 nhưng khi mở file vẫn bình thường, không có kêu điền pass.

 

[quanluu]

Mình làm thử vẫn không được bạn ơi, Bạn xem lại giúp mình được không. Mình làm ngày 14/05 nhưng khi mở file vẫn bình thường, không có kêu điền pass.

Hôm nay là ngay bao nhiêu bạn?

 

[saobekhonglac]

Hôm nay là ngay bao nhiêu bạn?

Ngày 15, nhưng mình sửa lại ngày 20 trong code bạn thành 14 rồi mà

 

[quanluu]

Ngày 15, nhưng mình sửa lại ngày 20 trong code bạn thành 14 rồi mà

bạn thay dấu = bằng dấu >

 

[saobekhonglac]

bạn thay dấu = bằng dấu >

Hình như bạn chưa hiểu ý mình, nếu sửa lại thì khi mở file nó hiện hộp thoại có số pass chứ không phải yêu cầu nhập pass. Mình cần khi mở file lên nếu ngày hiện tại lơn hơn ngày mình cho phép thì sẽ bắt nhập password để mở file chứ không phải thông báo như vậy (nhập đúng pass thì mới mở được file và xem nội dung bên trong).

 

[quanluu]

Hình như bạn chưa hiểu ý mình, nếu sửa lại thì khi mở file nó hiện hộp thoại có số pass chứ không phải yêu cầu nhập pass. Mình cần khi mở file lên nếu ngày hiện tại lơn hơn ngày mình cho phép thì sẽ bắt nhập password để mở file chứ không phải thông báo như vậy (nhập đúng pass thì mới mở được file và xem nội dung bên trong).

pas: abc

Private Sub Workbook_Open()
    Dim pw As String
    If Date > DateSerial(2017, 5, 14) Then
        pw = InputBox("Nhap pass")
        If pw <> "abc" Then
            ThisWorkbook.Close
        End If
    End If
End Sub

 

[befaint]

Hình như bạn chưa hiểu ý mình, nếu sửa lại thì khi mở file nó hiện hộp thoại có số pass chứ không phải yêu cầu nhập pass. Mình cần khi mở file lên nếu ngày hiện tại lơn hơn ngày mình cho phép thì sẽ bắt nhập password để mở file chứ không phải thông báo như vậy (nhập đúng pass thì mới mở được file và xem nội dung bên trong).

Bài #1 nêu yêu cầu:
Anh/chị cho mình hỏi trong VBA mình có cách nào đặt mật khẩu mở file khi đến ngày nào đó không?
Bài #4 trả lời:
Được bạn nhé. Viết code cho sự kiện workbook.open.

Private Sub Workbook_Open()
   If Date = DateSerial(2017, 5, 20) Then
       MsgBox ("nhap mk")
   End If
End Sub

Trả lời đúng trọng tâm câu hỏi và còn thêm đoạn code minh họa cụ thể.
Vậy sao lại còn khúc màu đỏ?

 

[huuthang_bd]

Làm chơi

 

[Kiều Mạnh]

thử vậy xem ...Nếu ngày đó mất điện thì sao ta ...

Sub ZXCV()
If Date = #5/15/2017# Then
    MsgBox "OK"
End If
End Sub