]] XL-mania [[ mengunci dan mengunci

Dear Miss Siti Vi, Mr Kid and all,

 

Setelah saya mendapat masukan dari miss Siti dan mr Kid beberapa kali, dan setelah saya pelajari ber-ulang2 kesalahan saya adalah:

 

1.       Sebelum sheet “Master”dicopy ada lebih dari satu shapes didalamnya (tertumpuk/tidak kelihatan, padahal tidak diperlukan), sehingga harus didelete lebih dulu shapes yang tidak diperlukan tersebut.

2.       Sebelum shapes dalam sheet copy an dihapus, terlebih dulu sheet tsb harus di unprotect, karena sheet “Master” pada saat dicopy dalam keadaan terprotect (hasil copyan terprotect).

3.       Setelah proses mengcopy selesai baru diprotect lagi.

4.       Begitu juga untuk sheet “Master” cells isian harus dikembalikan kosong.

 

Berikut ini adalah hasil VBA yang yang telah saya edit, mohon masukan apabila masih dapat disederhanakan.

 

===========================================================================================

Sub Button2_Click()

    Dim sNewSheet As String

    Dim lIndex As Long

    On Error Resume Next

    sNewSheet = Range("d6").Value

    If LenB(sNewSheet) = 0 Then

       MsgBox ("Masukan 'Nama' di Cell 'D6'")

    Else

       lIndex = Sheets(sNewSheet).Index

       If Err.Number <> 0 Then

          Err.Clear

          Sheets("Master").Select

          Sheets("Master").Copy After:=Sheets(Sheets.Count)         ' Dicopy saat sheet terprotect

          Sheets("Master (2)").Select

          Sheets("Master (2)").Name = sNewSheet

          ActiveSheet.Unprotect "Passkey"                                                 ' Di uncprotect sebelum menghapus Shapes

          ActiveSheet.Shapes("Striped Right Arrow 2").Delete

          ActiveSheet.EnableSelection = xlUnlockedCells                    ‘ Apa bisa dihapus? Belum saya coba

          ActiveSheet.Protect "Passkey"                                                       ' Dikembalikan terprotect

          Sheets("Master").Select                                                                   ' Form isian di Master dihapus setelah dicopy

          ActiveSheet.Unprotect "Passkey"

          Sheets("Master").Range("d6:n6, d7:f8, d9:d10, h7:h8, d11:n11, d14:e25").ClearContents

          ActiveSheet.EnableSelection = xlUnlockedCells                    ‘ Apa bisa dihapus? Belum saya coba

          ActiveSheet.Protect "Passkey"

       Else

          MsgBox ("Nama sudah ada")

       End If

    End If

    Sheets(sNewSheet).Select

End Sub

===========================================================================================

 

Terima kasih, dan maaf telah membuat problem yang harus berkali-kali saya posting ulang.

 

Best regards

Herry Sutjipto

 

 

From: Herry Sutjipto [mailto:herrysri@cv-aldira.co.id]
Sent: 16 Januari 2010 10:52
To: 'XL-mania@yahoogroups.com'
Subject: RE: ]] XL-mania [[ mengunci dan mengunci

 

Dear Mr Kid,

 

Yes! Good ……. Thanks

Terima kasih …. He he he saya nggak lihat tuh …… wah Mr Kid teliti sekali ….

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 16 Januari 2010 6:42
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ mengunci dan mengunci

 

 

Dear Mr. Herry Sutjipto

Kode sudah baik Pak, dan memang ada 2 object Striped Right Arrow disana. Hapus saja object Striped Right Arrow 2 pada sheet Master, maka semua berjalan normal sesuai keinginan.

Best Regards
Kid.

2010/1/13 Herry Sutjipto <herrysri@cv-aldira.co.id>

Dear Miss Siti Vi and all,

 

Iya mudah sekali ya untuk mencari namanya …… he he he …. Rupanya disitu toh letak ngumpet nama nya …..

Surat perintah miss Siti Vi sudah saya laksanakan …… tetapi VBA nya (terlampir)  bandel …..

Mungkin ada perintah Miss Siti yang salah saya artikan ……. he he he …..

Harap pencerahan ….

Terima kasih

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: 13 Januari 2010 0:51

To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ mengunci dan mengunci

 

 

mengapa menemukan nama kok menjadi sulit ??

setiap shape di sheet jika di-select, tentunya 'sih' menampilkan NAMANYA

di NameBox; mosok ndak kelihatan 'sih'..  ?

dlm keadaan worksheet di protected, seringnya object tsb tidak dapat diselect.

 

object itu 'sih' namanya : Striped Right Arrow 4

 

misalnya banyak pun; 'kan dapat di loop dengan

"for each object in objectscollection"

 

 

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

From: Herry Sutjipto

To: XL-mania@yahoogroups.com

Sent: Tuesday, January 12, 2010 4:09 PM

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

 

Dear Miss Siti Vi and all,

 

Perintahnya sih gampang, tapi menemukan/mencari nama “Gambar Tombol” nya yang sulit.

 

 

Dalam attachment terlampir saya kesulitan menemukan/mencari nama “Gambar Tombol” tersebut.

Bagaimana cara menemukan/mencari nya?

Thank’s

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: 12 Januari 2010 11:04
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ mengunci dan mengunci

 

ya tinggal nambah"in" perintah menghapus gambar tombol saja dong.

(sambil diperingkas dikittt...)

Sub CopySheet()
    Sheets("Template Sheet").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = InputBox("Silakan masukan Nama sheet yang akan Anda create", "Sheet Baru")
    ActiveSheet.Shapes("button 1").Delete
End Sub