Sheet Tidak Bisa di Visible

  1. 7 bulan yang lalu

    hello gan,
    mohon dibantu gan...klo terjadi seperti gambar terlampir gimana solusinya y gan ?
    saya pilih visible muncul alert seperti gambar
    mohon bantuan ya gan,
    terima kasih

  2. @Apriuz

    try

    Sub Visible_Sheet2()
    Sheet2.Visible = True
    End Sub

  3. Sudah test error juga gan. . ;(

  4. Caton

    26 Apr 2018 Terverifikasi Indonesia + 12.574 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Apriuz ...

    Coba tampilkan Immediate Windows (CONTROL G) pada VBA Editor, kemudian ketik:

    SheetObject.Visible = xlSheetVisible

    lalu tekan tombol Enter. Perhatikan, notasi SheetObject diganti dengan nama Sheet Object yang ingin ditampilkan, misalkan Sheet1, Sheet10, Sheet5 dan sebagainya. Contoh:

    Sheet2.Visible = xlSheetVisible

    atau

    ThisWorkbook.Sheets("Sheet2").Visible = True

    Demikian.

  5. Di sunting 7 bulan yang lalu oleh manweljs_

    mas @Caton

    bedanya apa itu mas antara
    Sheet2.Visible = True
    dengan
    Sheet2.Visible = xlSheetVisible

  6. Caton

    26 Apr 2018 Terverifikasi Indonesia + 12.574 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    Mas @manweljs_

    Gak ada bedanya... Konstanta xlSheetVisible bernilai -1, sedangkan TRUE defaultnya adalah -1 (aktualnya, nilai selain 0). Script kedua hanyalah contoh untuk mengakses Sheet Object melalui properti indeks Object Name saja... ;)

  7. Caton

    26 Apr 2018 Terverifikasi Indonesia + 12.574 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Apriuz ...

    Satu hal lagi yang yang saya ingat, jika Anda mencoba menyembunyikan sebuah Worksheet, sedangkan pada saat itu hanya ada 1 Worksheet saja yang terlihat, maka kesalahan tersebut akan ditampilkan. Misalkan pada Workbook ada 3 sheet, masing-masing Sheet1, Sheet2 dan Sheet3. Kemudian Anda menggunakan script berikut:

    For i = 1 To 3
        ThisWorkbook.Sheets(i).Visible = False
    Next

    maka pada saat variabel i bernilai 3, maka script ThisWorkbook.Sheets(i).Visible = False akan menghasilkan kesalahan tersebut. Kesalahan yang sama akan muncul jika Anda melakukannya secara manual (langsung). Misalkan hanya ada 1 Worksheet saja pada Workbook, lalu Anda coba sembunyikan Worksheet tersebut, maka Excel akan menampilkan pesan kesalahan berupa:

    Shoot077.png

    Mungkin demikian masalahnya.

  8. Semuanya saya sudah test, malah muncul error
    seperti dalam attech,
    ini worksheet tidak ada coding di dalamnya, tapi hide sheetnya protect
    bisa bantu solusi lain gan ?
    thanks ya sebelumnya

  9. @Apriuz

    saran saya coba lampirkan filenya pada diskusi pribadi dengan mas @Caton .

  10. baik . . @manweljs_ thanks ya
    salam kenal

  11. sama-sama @Apriuz
    salam kenal

  12. Caton

    26 Apr 2018 Terverifikasi Indonesia + 12.574 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Apriuz ...

    -image-

    Gambar di atas artinya objek yang dimaksud (dalam hal ini SheetObject) tidak ada. Mungkin mas @Apriuz tidak membaca dengan perlahan apa yang saya sampaikan di atas:

    Perhatikan, notasi SheetObject diganti dengan nama Sheet Object yang ingin ditampilkan, misalkan Sheet1, Sheet10, Sheet5 dan sebagainya.

    Jadi SheetObject itu hanya contoh nama objek Sheet saja. Aktualnya, sesuaikan dengan nama sheet yang akan ditampilkan atau disembunyikan. Coba deh baca kembali apa yang telah saya sampaikan di sini atau yang ini. Pada penjelasan pertama, saya berikan contoh mengeksekusi script langsung dengan Object Name, sedangkan contoh script kedua menggunakan indeks objek melalui nama sheet.

    ... ini worksheet tidak ada coding di dalamnya, tapi hide sheetnya protect ...

    Harusnya hal ini disampaikan sedari awal, jadi bisa dipahami masalahnya. Begini mas, jika proteksi hanya dilakukan terhadap Worksheet, maka Worksheet masih dapat disembunyikan atau ditampilkan melalui baris script. Namun jika struktur Workbook diproteksi seperti gambar berikut:

    Shoot078.png

    maka mas harus membuka terlebih dahulu proteksi Workbook tersebut baru bisa menyembunyikan atau menampilkan sebuah sheet. Misalkan saja:

    ThisWorkbook.Unprotect "1234"
    ThisWorkbook.Worksheets("Sheet1").Visible = True
    ThisWorkbook.Protect "1234", True

    atau eksekusi melalui Immediate Window dalam satu baris:

    ThisWorkbook.Unprotect "1234": Sheet1.Visible = True: ThisWorkbook.Protect "1234", True

    Demikian, semoga berhasil.

 

atau Mendaftar untuk ikut berdiskusi!