Hot Fox: Re: ]] XL-mania [[ mengunci dan mengunci

quarta-feira, 6 de janeiro de 2010

Re: ]] XL-mania [[ mengunci dan mengunci

(1)

Private Sub CommandButton1_Click()
   '-- sitiVi / membuat sheet baru --
   Dim LembarBaru As Worksheet
   Dim NamaSheet As String

   NamaSheet = InputBox(Prompt:="Tuliskan Nama Sheet.", _
               Title:="Membuat Sheet Baru")
   If Len(NamaSheet) = 0 Then Exit Sub
   Set LembarBaru = Worksheets.Add
   LembarBaru.Name = NamaSheet
   LembarBaru.Move After:=Sheets(Sheets.Count)

End Sub

(2)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   ' siti Vi / me-LOCKED range tertentu berdasarkan kondisi teetentu
   With Target
   If .Cells.Count = 1 Then
      If .Address = "$B$5" Or .Address = "$B$6" Then
         If Range("A1").Value = 0 Or Range("A1").Value = "0" Then
            Me.Unprotect "VDA"
            Me.Cells.Locked = False
            Range("B5:B6").Locked = True
            Me.Protect "VDA"
         Else
            Me.Unprotect "VDA"
            Range("B5:B6").Locked = False
         End If
      Else
         Me.Unprotect "VDA"
         Me.Cells.Locked = False
      End If
   End If
   End With
End Sub

3 menyembunyikan mudule code

lihat di worksheet lampiran (sheet 2 / cell D26:D27 )

----- Original Message -----

From: Vidi Ardyanto

To: XL-mania@yahoogroups.com

Sent: Wednesday, January 06, 2010 4:21 PM

Subject: ]] XL-mania [[ mengunci dan mengunci

Temans,

Minta referensi code makro utk case2 berikut donk :

1. Membuat sheet baru dg menekan Command button.
kondisi : - sheet baru ada di workbook yg sama.
- nama sheet diinput oleh user
- posisi sheet baru diletakkan di paling kanan (move to end)
- command button ikut tercopy jg di sheet yg baru ( code jg bisa dijalanin di sheet yg baru )
- data inputan ( misal di range B4:B10 ) direset jadi kosong lagi
- Active cell ada di sheet baru cell B4
2. Mengunci cell tertentu pada kondisi tertentu.
kondisi : - misal if A1=0 ---> Range B5:B6 tidak bisa diinput
- ketika coba diinput keluar ceramah kyk gini misal " it is not necessary to be inputed, not applicable boss..."
- warna range dibikin jadi gray pada kondisi tsb
- kondisi berubah normal kembali ketika syarat tidak terpenuhi lg
3. Mengunci code yg kita bikin
kondisi : - ketika ada user mau coba lihat/mengedit codenya, dia harus punya password.

sementara ini dulu.. :D:D:D

cheers,

__._,_.___

Reply to sender | Reply to group

Messages in this topic (4)

Recent Activity:

New Members 72

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Resolusi 2010 XL-mania: terbitkan buku lagi... hehehe...          |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living