Passwordnya hk (huruf kecil), terakhir ada tambahan VBA untuk menampilkan sheet
sekaligus.
Salam,
Hendrik Karnadi
________________________________
From: Joe Dien <shiman...@ymail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 6 July 2012, 16:47
Subject: Bls: Bls: [belajar-excel] Pembatasan user akses
Dear Mas Hendrik,
Makronya sudah saya masukan... tetapi knapa tetap tidak bsa kbuka ya......
Fswrdnya : kk
mohon bantuannya ya.....
Joedien
"Keep Smiling n Spirit"
===============================================
MODs NOTE:
Posting ini telah diedit oleh mods, karena:
- Footer dari milis tidak dihilangkan
- Quoted Mail (posting sebelumnya) tidak diedit
harusnya diambill 1 max 2 terakhir saja
- Lampiran terlalu besar (670KB), Peraturan membatasi
max 250KB
(harap disusulkan setelah diurus agar manjadi max 250KB)
Kesimpulan: Pak Joe BELUM PERNAH membaca Peraturan milis
/komunitas di mana Pak Joe ikut bergabung...
===============================================
________________________________
Dari: hendrik karnadi <hendrikkarn...@yahoo.com>
Dikirim: Jumat, 6 Juli 2012 16:38
Ini lampirannya.
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarn...@yahoo.com>
Sent: Friday, 6 July 2012, 16:27
Ini cara buka kembali semua sheet sekaligus (passwordnya hk, sama dengan
password VBAnya)
Sub Buka_SemuaCabang()
Dim sh As Worksheet
Dim Pwd As String
Pwd = InputBox("Masukkan Password Anda", "PASSWORD")
If Pwd <> "hk" Then
MsgBox "Maaf, Anda tidak berwenang"
Else
For Each sh In Worksheets
If sh.Name <> "Daftar Cabang" Then
sh.Visible = xlSheetVeryUnHidden
sh.Visible = xlSheetVisible
End If
Next
End If
End Sub
Salam,
Hendrik Karnadi
