Banyak berbagai cara alternatif untuk mengunci folder di Windows, seperti menggunakan aplikasi pengunci folder seperti (folder lock, folder security, folder guard, dll), menggunakan comand prompt, atau merubah access permision pada file atau folder yang ingin dikunci.

Pada artkel kali ini saya ingin sharing cara alternatif yang saya dapat dari internet, yaitu cara mengunci folder atau lebih jelasnya mengubah hak akses user/admin dalam mengakses folder dengan menggunakan perintah CACLS pada command prompt yang dikemas dalam VB Script.

Berikut cara-caranya:

Cara ini menggunakan perintah dari command prompt CACLS, dimana fungsinya untuk merubah hak akses user/ACL:

Perintah untuk mengunci folder:

    cacls tes_folder /p everyone:n

Perintah untuk membuka kunci:

    cacls tes_folder /p everyone:f

Coba anda ketikkan pada command prompt untuk mencobanya

Maka apabila folder dieksekusi akan tampil pesan berikut

Karena cara di atas menggunakan perintah command prompt, jadi cara di atas dapat berjalan pada semua keluarga Windows (Windows 1998, 2000, ME, XP, Vista, Seven, dll).

Berikut adalah VB Script agar penguncian folder dapat dilakukan dengan mudah 🙂

    Untuk mengunci:

    FileName = BrowseFolder(“MY COMPUTER”, False)
    If Not FileName = “” Then CreateObject(“WScript.Shell”).Run “CACLS “”” & FileName & “”” /P everyone:N”

    Function BrowseFolder(myStartLocation, blnSimpleDialog)
    Set objShell = CreateObject(“Shell.Application”)

    If UCase(myStartLocation) = “MY COMPUTER” Then
    Set objFolder = objShell.Namespace(&H11&)
    strPath = objFolder.Self.Path
    Else: strPath = myStartLocation
    End If

    Set objFolder = objShell.BrowseForFolder(0, “Select a folder:”, &H10&, strPath)

    If objFolder Is Nothing Then BrowseFolder = “” : Exit Function

    BrowseFolder = objFolder.Self.Path
    End Function

    Untuk membuka kunci:

    FileName = BrowseFolder(“MY COMPUTER”, False)
    If Not FileName = “” Then CreateObject(“WScript.Shell”).Run “CACLS “”” & FileName & “”” /P everyone:F”

    Function BrowseFolder(myStartLocation, blnSimpleDialog)
    Set objShell = CreateObject(“Shell.Application”)

    If UCase(myStartLocation) = “MY COMPUTER” Then
    Set objFolder = objShell.Namespace(&H11&)
    strPath = objFolder.Self.Path
    Else: strPath = myStartLocation
    End If

    Set objFolder = objShell.BrowseForFolder(0, “Select a folder:”, &H10&, strPath)

    If objFolder Is Nothing Then BrowseFolder = “” : Exit Function

    BrowseFolder = objFolder.Self.Path
    End Function

Copy paste pada notepad, dan simpan dalam format nama_file.vbs dan pilihan Save as type: All Files, kemudian coba anda jalankan.

    Note:
    Untuk berjaga-jaga, letakkan file script ini pada folder yang aman, dan anda rubah attributes file tersebut menjadi hidden. 🙂