Ceriwis

Ceriwis (https://forum.ceriwis.com/forum.php)
-   Shareware & Freeware (https://forum.ceriwis.com/forumdisplay.php?f=64)
-   -   Lock Folder Dengan Command Promt - Simple! Tanpa Program (https://forum.ceriwis.com/showthread.php?t=2469236)

BagiBagi 24th October 2012 12:57 PM
Lock Folder Dengan Command Promt - Simple! Tanpa Program
 
Assalamu'alaikum ceriwisser, met malam buat smuanya.

Hari ini ane mo ngeshare cara lock folder dengan perintah command promt atau tanpa menggunakan program.

Ok, langsung saja, oh sblmnya maap klo tercium bau REPOST!



BACA DULU SEBELUM BERTINDAK


[/quote]
Quote:





DIKARENAKAN BANYAK TERDAPAT MASALAH PADA USER XP MAKA TS SARANKAN SEBAIKNYA TIPS INI DICOBA DULU PADA FOLDER YANG DIANGGAP TIDAK PENTING ATAU FOLDER KOSONG. TS AKAN COBA MEMBANTU SEMAMPUNYA TP SEGALA RESIKO DI TANGAN ANDA MASING2 :D . TRIMKASIH ATAS PERTHATIANNYA.





SOLUSI TAMBAHAN


[/spoiler]
Spoiler for open this:
Spoiler for open this:
for Solusi Tambahan:





Spoiler for open this:
Spoiler for open this:
for Solusi pake Q-Dir by uminx:





Spoiler for open this:
Quote:






Originally Posted by uminx
http://static.kaskus.co.id/images/buttons/viewpost.gif


work gan:loveindonesia tapi pas di unlock g bisa....:mewek:..



folder g bisa d buka d explorer bawaan...tp pake Q-Dir bisa dibuka tuh folder..



note:

pake Q-Dir tetep bs full control gan...



taro pekiwan gan..mgkn bisa jd solusi smentara...
Quote:





BUAT YG ADA MSLH DENGAN UNLOCKNYA, DAN SUPAYA DATA PENTINGNYA BISA DISELAMATKAN LAGI, COBA PAKE SOFTWARE Q-DIR UNTUK MENYELAMATKANNYA. SEMOGA MEMBANTU.
Quote:





ATAU BISA PAKE CARA INI: KLIK KANAN PADA FOLDER YG TERKUNCI >> PILIH PROPERTIES >> PILIH SECURITY >> PILIH EDIT >> DAN CENTANG FULL CONTROL >> APPLY DAN OK. CARA INI JUGA BS BUAT NGELOCKNYA, JD ALTERNATIF TANPA PAKE PRINTAH CMD.















PERINTAH CMD
Quote:
Spoiler for open this:
Spoiler for open this:
for Perintah CMD:





Spoiler for open this:
Quote:





Perintah untuk lock: cacls ABC /p everyone:n

*ABC = name folder yang mau dilock



Perintah untuk unlock: cacls ABC /p everyone:f















HOW 2 USE
Quote:
Spoiler for open this:
Spoiler for open this:
for How 2 Use:





Spoiler for open this:
Quote:





1. Buka dulu Command Promt (Start Menu>All Programs>Accessories>Command Promt)

2. Kalau folder yg mo dilock ada di drive C, maka ketikkan dulu perintah cd\ lalu ENTER

3. Kalau folder yg mo dilock ada di drive D, ketikkan perintah D: lalu ENTER

4. Ketikkan perintah locknya. Sbg contoh TS mo lock folder ABC yg ada di drive D, ketikkan printah locknya:

cacls ABC /p everyone:n lalu tekan ENTER, Are you sure ?, kalau mo lock pilih Y, kalau g mo lock pilih N.
Quote:
Spoiler for open this:
Spoiler for open this:
for RESULT:






http://cdn-u.kaskus.co.id/39/2wvyfpa5.png



* Lambang gembok yg ada di folder sbg bukti bahwa folder sudah terkunci









5. Untuk unlocknya (membuka folder yg dilock tadi) tinggal ketikkan perintah unlocknya:

cacls ABC /p everyone:f lalu tekan ENTER, Are you sure ?, kalau mo unlock pilih Y, kalau g mo unlock pilih N.


Spoiler for open this:
Spoiler for open this:
for RESULT:






http://cdn-u.kaskus.co.id/39/hnrfyuv4.png

* Folder tanpa lambang gembok sbg bukti bahwa folder sudah tidak terkunci









__________________________



6. Kalau mo lock folder yg ada d dlm folder, maka tinggal tambahkan saja perintah locknya dengan nama folder yg ada d dlm folder tersebut.

Sbg contoh TS mo lock folder 123 yg ada d dlm folder ABC, mk perintah di command promtnya:

cacls ABC\123 /p everyone:n lalu tekan ENTER, Are you sure ?, kalau mo lock pilih Y, kalau ga mo lock pilih N.


Spoiler for open this:
Spoiler for open this:
Spoiler for open this:
Spoiler for open this:
for Support:





Spoiler for open this:
Quote:





1. TESTED by Me on Windows 7 Ultimate x86. Untuk windows laen mnkin juga bisa karna ini perintah Command Promt

2. Bisa juga untuk lock di Flash Disk atau Hardisk Portable















PERTANYAAN!
Quote:
Spoiler for open this:
Spoiler for open this:
for Masalah & Solusi:





Spoiler for open this:
Quote:
Quote:
Spoiler for open this:
Spoiler for open this:
for Masalah dan Solusi:







Spoiler for open this:
Quote:






Originally Posted by extremecore
http://static.kaskus.co.id/images/buttons/viewpost.gif


kalo pake spasi jadi gini :kabur:



http://cdn-u.kaskus.co.id/40/x656cyn4.jpg
Quote:






Originally Posted by kadalidup
http://static.kaskus.co.id/images/buttons/viewpost.gif


kalo nama folder nya pake spasi kok ga bisa ya gan ? :tanya:












Sorry gan, ni tutz nya. Klo yg foldernya pake space jangan lupa ditambahkan tanda bintang (*) sbg pengganti space. contoh: mo kunci nama folder "Folder Rahasia" mk printahnya "cacls Folder*Rahasia /p everyone:n"



Klo yg pake vbscript sih ya ga da msalah. Smg mmbantu...!















WAJIB BUAT ceriwisser
Quote:
Spoiler for open this:
Spoiler for open this:
for JANGAN DIBUKA:






1. RATE ***** :rate5

2. Yang belum iso, jgn lupa abu2nya sbg bntuk trima kasih :ngakak:

3. Yang sudah iso jgn sungkan2 ama melonnya :ganteng: :melonndan: :ganteng:

4. TS tidak menerima :cabendan: :cabendan: :cabendan:











SUMBANGAN VBScript by NGOBUS


Spoiler for open this:
Spoiler for open this:
for VBScript by Ngobus:







Spoiler for open this:
Quote:






Originally Posted by ngobus
http://static.kaskus.co.id/images/buttons/viewpost.gif


:2good:

tengkiyu masbro.. ane dah coba mantap..

yar lbh mudah + praktis lg ane jadiin dlm bentuk VBScript..



sexan ane ser aj yach sapatau ada yg suka..



Lock


Code:

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

UnLock


Code:

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

tinggal copas ke notepad.. save trus ganti ekstensinya jd .vbs
[quote]





TS MENGUCAPKAN TERIMA KASIH BANYAK SUDAH MAMPIR DI THREAD ANE YANG GA BERMUTU INI...!!!


[spoiler=open this] for THREAD TS LAINNYA:




1. PERBANDINGAN 12 SOFTWARE COPY FILE (COPY CEPAT)

2. KUNCI FOLDER CUKUP DENGAN CLICK KANAN















</div>


All times are GMT +7. The time now is 12:41 PM.