Salam.. Miss, boleh tnya lg gmn caranya jika yg kita inginkan sheet yg Di hide n unhide dgn userform yg berpasword..? Sm seperti file yg Miss lampirkan tp yg kasus kali ini sheet hide n unhide Terima Kasih
Salam Agam Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: [email protected] Sender: [email protected] Date: Mon, 15 Jul 2013 03:33:45 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Mohon bimbingan Kode VBA Mantab... Alhamdulillah sdh work.. Terima Kasih Miss.. Salam Agam Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: Jan Raisin <[email protected]> Sender: [email protected] Date: Mon, 15 Jul 2013 09:20:13 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Mohon bimbingan Kode VBA mungkin seperti file terlampir salam, -Miss Jan Raisin- - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke [email protected] bukan dikirim japri ke email pribadi member milis; - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153; - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu bisa on line setiap saat; - Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمِين يَا رَبَّ الْعَالَمِيْن Pada 14 Juli 2013 01.54, <[email protected]> menulis: > Dear Master Be-Exl Dan sahabat > > Saya ingin bertanya tambahan Skript untuk unhide pasword column > Columns("AP:BE") jika ia mengklik lapsopir, maka ia akan meminta password > untuk menampilkan column Columns("AP:BE") yg akan di unhide.. > Apakah memungkinkan ada script tambahan uNtuk pertanyaan yg saya ajukan > tersebut..? > > Sub lapsopir() > Sheets("JULI").Protect Password:="mypassword", userinterfaceonly:=True > Columns("BF:EM").Select > Selection.EntireColumn.Hidden = True > Columns("D:AI").Select > Selection.EntireColumn.Hidden = True > Columns("AP:BE").Select > Selection.EntireColumn.Hidden = False > End Sub > > Demikian pertanyaan yg dpt saya ajukan. > Sebelumnya terima kasih.. > > Salam > > > Agam >
