Khóa 1 file dạng Bitmap

[ndu96081631]

Chúng ta thường hay dùng các chức năng có sẳn trong Windows như ẩn file hoặc các phần mềm đặt password nhầm ngăn chặn sự truy cập trái phép của ai đó vào file của mình
Chẳng hạn ta có 1 file ảnh (dạng Bitmap) và không muốn cho ai khác nhìn thấy dù mở file thì ngoài việc dùng các chương trình như đã nói ở trên, ta còn có 1 lựa chọn khác: Dùng code VBA để Lock file
Nguyên tắc:
chương trình sẽ phá vỡ Byte kết thúc của file, từ đó mà file không còn đúng định dạng chuẩn Bitmap nên các phần mềm xử lý ảnh sẽ không thể mở nó được
Chúng ta dùng UDF sau:

Function LockandUnlock(File As String, Optional Para As Boolean = False)
  Dim A, B$
  A = FreeFile
  Open File For Binary As #A
  B$ = Choose(1 - Para, Chr(0), "X")
  Put #A, 17, B$
  Close #A
End Function

Và đoạn code dưới đây để thí nghiệm:

Private Sub CommandButton1_Click()
  Dim FName As String, DK As Boolean
  On Error Resume Next
  With Application.FileDialog(3)
    .Filters.Clear
    .Filters.Add "Bitmap File", "*.bmp"
    .Show: .AllowMultiSelect = False
    FName = .SelectedItems(1)
  End With
  If UCase(Right(FName, 3)) = "BMP" Then
    DK = MsgBox("Do you want to Lock or Unlock selected file?" & _
    Chr(10) & "Press 'YES' button to Lock or 'NO' to Unlock.", 4) = 6
    Call LockandUnlock(FName, DK)
    MsgBox "File is " & Choose(1 - DK, "unlocked!", "locked!")
  End If
End Sub

Tiến hành thử nghiệm:
- Chạy code
- Chọn 1 file dạng bmp trong DialogBox
- Một MsgBox hiện lên... Chọn Yes để Lock file hoặc bấm No để Unlock
Kiểm tra:
- Hãy thử Lock 1 file bitmap nào đó rồi dùng Explorer duyệt file, mở nó lên xem có còn nhìn thấy gì không?
- Unlock file rồi mở file kiểm tra lần nữa
Lưu ý: Code chỉ có thể Lock những file ảnh thuộc định dạng bmp mà thôi
-----------------------
Xem file đính kèm dưới đây!
-----------------------
- Tôi sưu tầm code này từ http://www.caulacbovb.com và chỉnh sửa lại