Macam mana nak buat password MS Excel (protect VBA code)

[Heart^BeE]

good info...aku hr2 gak pkai excel but tau yg asas jek..

kire tak advance cam sky ler...

 

[steveorlando79]

ok bro sky yg asterik dah dpt, tapi yg copy paste tu, masih masalah lah takut bocor passowrd................

 

[harraz asyraaf]

selain dgn menggunakan kaler font n kaler background yg sama, ni satu lagi cara yg simple.

Right click kat cell yg awk guna utk letak password tu
Pilih Format Cell.
kat tab Number, pilih Custom.
Pastu dalam textbox Type: sebelah kanan, tulis ;;;
Click OK.

Langkah kedua, Right Click > Format Cell > Click tab Protection
Check kan checkbox Hidden, kosongkan Locked
Click OK

Langkah ketiga,
Menubar atas tu, Tools > Protection > Protect Sheet
Check kan yg mane sesuai mengikut citarasa, dan masukkan password.

Bila sheet tu dh dlm mode protected, Text box kat Formula Bar kat atas tu tak akan menampakkan nilai yg terdapat dalam cell tersebut. Selamat mencoba

bro...kalau nak unlock balik protected xcl doc tp lupa pasword plak mcmne?:-?

 

[sky]

Terima kasih. Saya dah berjaya ikut semua arahan. Satu masalah yang saya nak mintak tolong ialah bila kita type kan password tu kat cell..... then kita copy kemudian paste dekat cell lain "New Excel File" masih boleh paste la bro, ada cara tak supaya tak boleh paste.....

Ok, First Unprotect kan dulu sheet tu.
Then Right click kat logo Excel kat atas sebelah kiri awak, bersebelah dgn menu File tu.. pilih View Code

Kat dalam ThisWorkbook (Code) paste kan code ni:

[COLOR="Navy"][SIZE="2"]Private Sub Workbook_Activate()

Dim oCtrl As Office.CommandBarControl


     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = False

     Next oCtrl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = False

     Next oCtrl

       

        Application.CellDragAndDrop = False



End Sub



Private Sub Workbook_Deactivate()

Dim oCtrl As Office.CommandBarControl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = True

     Next oCtrl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = True

     Next oCtrl

       

        Application.CellDragAndDrop = True



End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    With Application

        .CellDragAndDrop = False

        .CutCopyMode = False 'Clear clipboard

    End With

End Sub[/SIZE][/COLOR]

dan lastly, Save..

Banyak lagi cara dan alternatif lain contohnya dengan penggunaan Macro dlm excel. Ataupun password awk tu di link/retrieve ngan ODBC / MSAccess DB utk memastikan security yg lebih tahap dewa skit..

Tp ni salah satu cara yg simple.. dgn cara meng"disable"kan menu utk Cut, Copy ngan Paste. (Shortcut Ctrl+C X V pun tak function). Code ni bertindak pada keseluruhan workbook, bukan certain cell tu je. So kena buang dulu code tu baru leh guna function copy paste ni.

Sekadar membantu apa yg termampu..

 

[sky]

bro...kalau nak unlock balik protected xcl doc tp lupa pasword plak mcmne?:-?

rasanye yg ni kena guna 3rd party software la, utk crack password. cari kat google ade..
sesape tau cara2 lagi best story ler kat sini..

 

[steveorlando79]

Ok, First Unprotect kan dulu sheet tu.
Then Right click kat logo Excel kat atas sebelah kiri awak, bersebelah dgn menu File tu.. pilih View Code

Kat dalam ThisWorkbook (Code) paste kan code ni:

[COLOR="Navy"][SIZE="2"]Private Sub Workbook_Activate()

Dim oCtrl As Office.CommandBarControl


     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = False

     Next oCtrl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = False

     Next oCtrl

       

        Application.CellDragAndDrop = False



End Sub



Private Sub Workbook_Deactivate()

Dim oCtrl As Office.CommandBarControl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = True

     Next oCtrl



     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = True

     Next oCtrl

       

        Application.CellDragAndDrop = True



End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    With Application

        .CellDragAndDrop = False

        .CutCopyMode = False 'Clear clipboard

    End With

End Sub[/SIZE][/COLOR]

dan lastly, Save..

Banyak lagi cara dan alternatif lain contohnya dengan penggunaan Macro dlm excel. Ataupun password awk tu di link/retrieve ngan ODBC / MSAccess DB utk memastikan security yg lebih tahap dewa skit..

Tp ni salah satu cara yg simple.. dgn cara meng"disable"kan menu utk Cut, Copy ngan Paste. (Shortcut Ctrl+C X V pun tak function). Code ni bertindak pada keseluruhan workbook, bukan certain cell tu je. So kena buang dulu code tu baru leh guna function copy paste ni.

Sekadar membantu apa yg termampu..

alhamdulillah, cukup mantaplah bro terima kasih. kalau takde masalah saya nak gunakan benda ni untuk surat rasmi.........

 

[kptm]

klu nak jadi full skrin lak ????..
semua bar bagi tak nampak.

 

[moneymaker3000]

rasanye yg ni kena guna 3rd party software la, utk crack password. cari kat google ade..
sesape tau cara2 lagi best story ler kat sini..

ada tapi kene beli, tu yg tak best

 

[sky]

klu nak jadi full skrin lak ????..
semua bar bagi tak nampak.

Kat menu bar View > Full Screen

yg tu ke?

 

[sky]

ada tapi kene beli, tu yg tak best

yup, kalau ikut jalan yg lurus mmg kene beli..
tapi yg penting jgn cuai la bila buat perkara yg melibatkan password ni, jgn letak password yg kita rasa susah utk igt.. tp semuanya terpulang pada diri sendiri jg kan..