RE: ]] XL-mania [[ password userform

 

Mas Agus,

Apakah seperti ini yang dimaksud, semoga membantu,

 

Pada Ok Button silahkan coba script dibawah :

Private Sub CommandButton3_Click()

    Dim PASS As String

   

    PASS = "BETUL"

    If TextBox1.Value = PASS Then

        CheckBox10.Enabled = True

        CheckBox6.Enabled = True

        CheckBox14.Enabled = True

       

    Else

        CheckBox10.Enabled = False

        CheckBox6.Enabled = False

        CheckBox14.Enabled = False

    End If

End Sub

 

Dan secara default pada saat load form si sub UserForm_Initialize tambahkan juga script yang dihighlight merah :

 

Private Sub UserForm_Initialize()

    Dim ctl As control

    On Error Resume Next

    For Each Sh In Sheets

        For Each ctl In UserForm2.Controls

            If TypeName(ctl) = "CheckBox" Then

                If ctl.Caption = Sh.Name And Sh.Visible = xlSheetVisible Then

                    ctl = True

                    CheckBox10.Enabled = False

                    CheckBox6.Enabled = False

                    CheckBox14.Enabled = False

                End If

            End If

        Next

    Next

End Sub

 

Selamat berimprovisasi

 

Rgds

 

Yasman David

Mencoba berbagi

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of agus k
Sent: Friday, July 05, 2013 1:42 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ password userform

 

 

password Userform

dear master master xl mania

 

Sebelumnya saya mohon maaf, mohon bantuannya.

 

 

the incredible man 

*** WORLEYPARSONS GROUP NOTICE *** "This email is confidential. If you are not the intended recipient, you must not disclose or use the information contained in it. If you have received this email in error, please notify us immediately by return email and delete the email and any attachments. Any personal views or opinions expressed by the writer may not necessarily reflect the views or opinions of any company in the WorleyParsons Group of Companies."

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 38

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| 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

.

__,_._,___