]] XL-mania [[ protect macro

 

dear pakar excel,

saya mencoba membuat password excel dengan cara login yg sederhana menggunakan VBA macro excel. akan tetapi jika file tersebut dibuka di komputer lain (yang setting macro nya disable) login/password macro tersebut jadi tidak berfungsi. mohon jika rekan" mempunyai solusi tolng dikoreksi rumus macro saya ini, mungkin ada yg kurang yg saya tidak tahu.

terimakasih,

tedy

contoh file terlampir dengan VBA code nya.

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
If TextBox1 = "1x1" Then
   Unload UserForm1
   Application.Visible = True
   Else
   MsgBox "Maaf, password yang anda masukkan tidak valid" & vbNewLine & _
   "Silahkan klik www.rumahkubawakue.com untuk informasi lebih lanjut", vbCritical, "Invalid password"
   With TextBox1
   .Value = ""
   .SetFocus
   End With
End If
End Sub

Private Sub CommandButton2_Click()
Application.ActiveWorkbook.Close savechanges = True
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 41

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Merry Christmas. May God bless you and your family...             |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___