matur nuwun mbak siti atas penjelasannya sing o.k. maaf baru bisa balas sekarang.mbak file yang dikirim sama mbak siti untuk password unprotect sheet nya ( Capung ) kok nggak bisa masuk ya ?salamyudha
--- Pada Ming, 1/11/09, siti Vi <[email protected]> menulis: Dari: siti Vi <[email protected]> Judul: Re: [belajar-excel] hidden sheet Kepada: [email protected] Tanggal: Minggu, 1 November, 2009, 10:38 PM (1) hide / unhide sheet '===module umum=== Public Const pswd As String = ' "xxx" (=terserah anda) Sub Hide_Sheet() With Sheets("kode" ) .Visible = 2 .Protect pswd End With End Sub Sub Unhide_Sheet( ) If Sheets("kode" ).Visible = -1 Then MsgBox "Sheet tsb sudah Ditampilkan !!", 48, "--Lhoo??--" Else UserForm1.Show End If End Sub '===module userform1=== Const cpt As String = "Login to sheet 'KODE'" Private Sub cmd_Cancel_Click( ) Unload Me End Sub Private Sub cmd_OK_Click( ) If Len(TextBox1) = 0 Then MsgBox "anda belum memasukkan password !", 48, cpt Exit Sub ElseIf Not TextBox1 = pswd Then MsgBox "password salah !", 48, cpt TextBox1 = "" Exit Sub Else With Sheets("kode" ) .Visible = -1 .Protect pswd MsgBox "ok, selamat bekerja!", 64, cpt .Activate End With Unload Me End If End Sub (2) menuju (tepatnya mengaktifkan) sheet kalau workbook sudah terlanjur bermakro; gunakan prosedur sub blablabla() Sheet("NamaSheet" ).Activate ' atau Sheet(nomorindex_ Sheet).Activate ' atau (NamaCodeSheet) .Activate ' atau (expressi yg menghasilkan object sheet dlm workbook tsb).Activate end sub ----- Original Message ----- From: Sandra Yudha To: belajar excel Sent: Monday, November 02, 2009 12:04AM Subject: [belajar-excel] hidden sheet '----- aku punya persoalan tentang bagaimana menghidden sheet, aku sudah lihat diposting lama dan disana banyak sekali caranya ( akhirnya aku pakai adalah yang menyembunyikan sheet melalui VBA yakni xlsheetveryhidden ) cuma yang aku mau sekarang bagaimana mengeluarkan dan menyembunyikan kembali sheet tersebut tanpa masuk ke jendela VBA ( tinggal klik lalu sheet yang tersembunyi keluar , tapi jangan lupa dikasih password untuk membuka sheet tsb) oh ya sebelumnya biasanya kalau aku mau menuju sheet tertentu menggunakan hiperlink, tapi untuk kasus ini hiperlink tak berfungsi salam yudha Selalu bersama teman-teman di Yahoo! Messenger. Tambahkan mereka dari email atau jaringan sosial Anda sekarang! http://id.messenger.yahoo.com/invite/
