[belajar-excel] Digest Number 2560

Milis Belajar Microsoft Excel Group

8 New Messages

Digest #2560

1a

Re: Filter Listbox (multipage) by "Joyokusumo Naba" respati007

2.1

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "PRAZT" praztmath

2.2

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

2.3

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "PRAZT" praztmath

2.4

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

2.5

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

3a

Pivot table by "Kurniawan Tufail" kurniawan_tufail@ymail.com

3b

Re: Pivot table by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Filter Listbox (multipage)

Thu Sep 26, 2013 2:30 am (PDT) . Posted by:

"Joyokusumo Naba" respati007

ok terima kasih Mr.Kid sudah bisa di atasi, karena saya kurang teliti saja.

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, September 26, 2013 5:37 AM
Subject: Re: [belajar-excel] Filter Listbox (multipage)

 
Coba diteliti ulang setiap listbox mengambil dari range yang sesuai atau belum.

Kemudian, setiap penambahan item ke listbox selalu diletakkan pada blok IF terdalam.

Wassalam,Kid.
2013/9/25 Joyokusumo Naba <respati007@yahoo.com>
 
>Dear Para Master,,
>
>Saya Sudah mencoba untuk kasus Membuat Filter dengan menggunakan ListBox..
>Saya Menggunakan MultiPage, pada Page 1 saya berhasil dengan Filter Listbox
>Tapi Pada Page 2 saya tidak berhasil membuat Filter Listbox nya mohon pencerahan para Master, File terlampir untuk di pelajari.
>
>Terima Kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2.1

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:45 am (PDT) . Posted by:

"PRAZT" praztmath

Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid

Kumplitannya begini dari mas Zain

'=================================

Function PasswordKu()

Dim pwd As String, i As Integer

Dim arrSymbol As Variant

arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction

i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With

PasswordKu = pwd

End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya adalah
sht.Protect PasswordKu

End If

Next

End Sub

'=====code ini di tulis di object workbook==============

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ProtectSheets False

End Sub

Private Sub Workbook_Open()

ProtectSheets True

End Sub

'===========================

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 26 September 2013 16:29
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Bukankah function yang dibuat mas Zain bernama PasswordKu_

Coba gunakan PasswordKu_ daripada PasswordKu

Wassalam,

Kid.

2013/9/26 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >

@_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
dengan memaksa user harus mengenabelkan security macro (tapi masih
menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ?

@_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...

Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
kuning berikut :

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
PasswordKu

End If

Next

End Sub

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 26 September 2013 15:45
To: BeExcel

Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer yang
Macro Security didisable atau belum dienablekan oleh user, maka semua sheet
dalam keadaan unprotected alias bisa diubah isinya.

Wassalam,

Kid.

2013/9/26 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com
<mailto:zainul_ulum@yahoo.com> >

Passwordnya sepertinya sih nggak berubah kalo ganti hari.
tetapi bisa dicoba dengan urutan sbb:
1. Sebelum Workbook ditutup unprotect semua sheet
2. Jika suatu saat workbook dibuka, protect semua worksheet dengan password
baru

'=================================

Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With
PasswordKu = pwd
End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'=======================
'=====code ini di tulis di object workbook==============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub

Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===========================

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT

Sent: Thursday, September 26, 2013 2:30 PM

To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?....ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron....

PRAZTMATH T

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang
terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi
bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
atau master yang lain...

PRAZTMATH T

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")

Salam,
HK

________________________________________

From: PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
dibuka lagi kok passwordnya masih
"Kamis$26-09-13"(tanpa tanda petik) yang seharusnya "Kamis$26-09-2013", jadi
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com
<mailto:zainul_ulum@yahoo.com> ]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> '
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah

coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd

menjadi

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan

wassalam
-zainul-

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

mungkin yang dimaksud seperti ini ya.
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '============================================

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |

pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")

'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...

PRAZTMATH T

Reply to sender . Reply to group . Reply via Web Post . All Messages (29) . Top ^

2.2

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:54 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 4:45 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid

Kumplitannya begini dari mas Zain

'=================================

Function PasswordKu()

Dim pwd As String, i As Integer

Dim arrSymbol As Variant

arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction

i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With

PasswordKu = pwd

End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya adalah
sht.Protect PasswordKu

End If

Next

End Sub

'=====code ini di tulis di object workbook==============

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ProtectSheets False

End Sub

Private Sub Workbook_Open()

ProtectSheets True

End Sub

'===========================

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 26 September 2013 16:29
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Bukankah function yang dibuat mas Zain bernama PasswordKu_

Coba gunakan PasswordKu_ daripada PasswordKu

Wassalam,

Kid.

2013/9/26 PRAZT <praztmath@gmail.com>

@_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
dengan memaksa user harus mengenabelkan security macro (tapi masih
menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ?

@_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...

Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
kuning berikut :

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
PasswordKu

End If

Next

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 26 September 2013 15:45
To: BeExcel

Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer yang
Macro Security didisable atau belum dienablekan oleh user, maka semua sheet
dalam keadaan unprotected alias bisa diubah isinya.

Wassalam,

Kid.

2013/9/26 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>

Passwordnya sepertinya sih nggak berubah kalo ganti hari.
tetapi bisa dicoba dengan urutan sbb:
1. Sebelum Workbook ditutup unprotect semua sheet
2. Jika suatu saat workbook dibuka, protect semua worksheet dengan password
baru

'=================================

Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With
PasswordKu = pwd
End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'=======================
'=====code ini di tulis di object workbook==============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub

Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===========================

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT

Sent: Thursday, September 26, 2013 2:30 PM

To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?....ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron....

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang
terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi
bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
atau master yang lain...

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")

Salam,
HK

________________________________________

From: PRAZT <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
dibuka lagi kok passwordnya masih
"Kamis$26-09-13"(tanpa tanda petik) yang seharusnya "Kamis$26-09-2013", jadi
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah

coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd

menjadi

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan

wassalam
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

mungkin yang dimaksud seperti ini ya.
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '============================================

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |

pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")

'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...

PRAZTMATH T

Reply to sender . Reply to group . Reply via Web Post . All Messages (29) . Top ^

2.3

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A

Thu Sep 26, 2013 3:04 am (PDT) . Posted by:

"PRAZT" praztmath

Udah saya ganti dari sht.Unprotect PasswordKu menjadi sht.Protect
PasswordKu sehingga bisa berjalan normal, makasih Mas Zain n Mr.Kid, terus
gmn pendapat mas Zain tentang pendapat Mr.Kid tadi apakah lebih baik di
kasih pemaksaan ke user untuk mengenablekan security macro atau pakai sheet
penyimpan password seperti yang Mr.Kid bilang tadi?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 4:45 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid

Kumplitannya begini dari mas Zain

'=================================

Function PasswordKu()

Dim pwd As String, i As Integer

Dim arrSymbol As Variant

arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction

i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With

PasswordKu = pwd

End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya adalah
sht.Protect PasswordKu

End If

Next

End Sub

'=====code ini di tulis di object workbook==============

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ProtectSheets False

End Sub

Private Sub Workbook_Open()

ProtectSheets True

End Sub

'===========================

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26 September 2013 16:29
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Bukankah function yang dibuat mas Zain bernama PasswordKu_

Coba gunakan PasswordKu_ daripada PasswordKu

Wassalam,

Kid.

2013/9/26 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >

@_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
dengan memaksa user harus mengenabelkan security macro (tapi masih
menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ?

@_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...

Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
kuning berikut :

Sub ProtectSheets(ByVal bolProtect As Boolean)

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
PasswordKu

End If

Next

End Sub

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 26 September 2013 15:45
To: BeExcel

Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer yang
Macro Security didisable atau belum dienablekan oleh user, maka semua sheet
dalam keadaan unprotected alias bisa diubah isinya.

Wassalam,

Kid.

2013/9/26 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com
<mailto:zainul_ulum@yahoo.com> >

Passwordnya sepertinya sih nggak berubah kalo ganti hari.
tetapi bisa dicoba dengan urutan sbb:
1. Sebelum Workbook ditutup unprotect semua sheet
2. Jika suatu saat workbook dibuka, protect semua worksheet dengan password
baru

'=================================

Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")

End With
PasswordKu = pwd
End Function

Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'=======================
'=====code ini di tulis di object workbook==============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub

Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===========================

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT

Sent: Thursday, September 26, 2013 2:30 PM

To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?....ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron....

PRAZTMATH T

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang
terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi
bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" &
arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
atau master yang lain...

PRAZTMATH T

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")

Salam,
HK

________________________________________

From: PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
dibuka lagi kok passwordnya masih
"Kamis$26-09-13"(tanpa tanda petik) yang seharusnya "Kamis$26-09-2013", jadi
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com
<mailto:zainul_ulum@yahoo.com> ]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> '
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah

coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd

menjadi

pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan

wassalam
-zainul-

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

mungkin yang dimaksud seperti ini ya.
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")

With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '============================================

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |

pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")

'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]

Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...

PRAZTMATH T

Reply to sender . Reply to group . Reply via Web Post . All Messages (29) . Top ^

2.4

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 3:05 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

oh begitu bunyinya.
berarti errornya yang muncul adalah berbunyi tidak bisa unprotect (karena
password untuk unprotect berbeda dengan yang sudah terpasang di sheet)

Wassalam,
Kid.

2013/9/26 PRAZT <praztmath@gmail.com>

> **
>
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid****
>
> Kumplitannya begini dari mas Zain****
>
> '=================================****
>
> Function PasswordKu()****
>
> Dim pwd As String, i As Integer****
>
> Dim arrSymbol As Variant****
>
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")****
>
> With Application.WorksheetFunction****
>
> i = .Weekday(Now, 2)****
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")****
>
> End With****
>
> PasswordKu = pwd****
>
> End Function****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)****
>
> Dim sht As Worksheet****
>
> For Each sht In ActiveWorkbook.Worksheets****
>
> If bolProtect Then****
>
> sht.Protect PasswordKu****
>
> Else****
>
> sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu****
>
> End If****
>
> Next****
>
> End Sub****
>
> ** **
>
> '=====code ini di tulis di object workbook==============****
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)****
>
> ProtectSheets False****
>
> End Sub****
>
> Private Sub Workbook_Open()****
>
> ProtectSheets True****
>
> End Sub****
>
> '===========================****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ** **
>
> ****
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_****
>
> Coba gunakan PasswordKu_ daripada PasswordKu****
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> ** **
>
> 2013/9/26 PRAZT <praztmath@gmail.com>****
>
> ****
>
> @_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
> dengan memaksa user harus mengenabelkan security macro (tapi masih
> menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ? ****
>
> @_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
> mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...****
>
> Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
> kuning berikut :****
>
> ****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)****
>
> Dim sht As Worksheet****
>
> For Each sht In ActiveWorkbook.Worksheets****
>
> If bolProtect Then****
>
> sht.Protect PasswordKu****
>
> Else****
>
> sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
> PasswordKu****
>
> End If****
>
> Next****
>
> End Sub****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 15:45
> *To:* BeExcel****
>
>
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ****
>
> ****
>
> Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer
> yang Macro Security didisable atau belum dienablekan oleh user, maka semua
> sheet dalam keadaan unprotected alias bisa diubah isinya.****
>
> Wassalam,****
>
> Kid.****
>
> ****
>
> 2013/9/26 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>****
>
> ****
>
> Passwordnya sepertinya sih nggak berubah kalo ganti hari.
> tetapi bisa dicoba dengan urutan sbb:
> 1. Sebelum Workbook ditutup unprotect semua sheet
> 2. Jika suatu saat workbook dibuka, protect semua worksheet dengan
> password baru
>
> '=================================****
>
>
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
> With Application.WorksheetFunction
> i = .Weekday(Now, 2)****
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")****
>
>
> End With
> PasswordKu = pwd
> End Function****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.Worksheets
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu
> End If
> Next
> End Sub
> '=======================
> '=====code ini di tulis di object workbook==============
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> ProtectSheets False
> End Sub
>
> Private Sub Workbook_Open()
> ProtectSheets True
> End Sub
> '===========================****
>
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT****
>
> Sent: Thursday, September 26, 2013 2:30 PM****
>
>
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka****
>
> Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau
> berganti hari kira-kira passwordnya ikutan berganti undak ya?....ok Mr.
> Zainul, Suwun dah membantu+koreksi, Syukron Katsiron....****
>
> PRAZTMATH �
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang
> terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi
> bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
> Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
> password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" &
> arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" &
> arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
> atau master yang lain...****
>
> PRAZTMATH �
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> Ikutan njawab.
> Barangkali karena kelbihan sau "y".
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")
>
> Salam,
> HK****
>
> ________________________________________****
>
>
> From: PRAZT <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> Sent: Thursday, 26 September 2013, 12:23
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
>
> Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
> dibuka lagi kok passwordnya masih
> �Kamis$26-09-13�(tanpa tanda petik) yang seharusnya �Kamis$26-09-2013�,
> jadi pada intinya password tidak bisa berubah sebelum paswordnya di
> Unprotect dulu...mohon penjelasa mas Zainul.
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 10:47
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
>
> terlampir file yang sudah saya coba...
>
> -----Original Message-----
> From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
> Sent: Thursday, September 26, 2013 10:35 AM
> To: 'belajar-excel@yahoogroups.com'
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> maaf sekali kalo nggak bisa,
> seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
> masalah
>
> coba diganti
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
> di depan dd
>
> menjadi
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
> dihilangkan
>
> wassalam
> -zainul-
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> Malah tidak jalan mas zainul
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> mungkin yang dimaksud seperti ini ya�
> �===================
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
>
> With Application.WorksheetFunction
> i = .Weekday(Now, 2)
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
> PasswordKu = pwd End Function �============================================
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> coba code berikut:
> Function PasswordKu_()
> Dim pwd As String
> With Application.WorksheetFunction
> 'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
> diberi symbol |
>
> pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
>
> 'mengganti symbol | dengan misal $
> pwd = .Substitute(pwd, "|", "$")
> End With
> PasswordKu_=pwd
> End Function
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 8:03 AM
> To: group excel
> Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
> Assalammu�alaikum...
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
> alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
> berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
> tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
> adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
> buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
> Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ;
> Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
> Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
> Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
> mentok pada kesulitan. Wassalam...
>
> PRAZTMATH �****
>
> ****
>
> ** **
>
> ****
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (29) . Top ^

2.5

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 3:15 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Maaf,

saya ndak mudeng dasar penggantian dari sht.Unprotect PasswordKu
menjadi sht.Protect
PasswordKu itu apa ya ?
Apalagi sampai diputuskan bisa berjalan dengan normal.
Apa maksud normal ? tidak muncul error ?
kalau normal berarti tidak muncul error, berikan saja baris On error resume
next disetiap prosedur. Jamin, gak akan ada error yang pernah muncul dalam
setiap proses. Tapi, apa terus berarti si prosedur udah baik dan benar
kalau ndak muncul error ?

Bukankah errornya yang muncul saat pakai sht.Unprotect PasswordKu adalah
tidak bisa buka proteksi sheet ?
Itukan artinya sheet sudah terproteksi dengan password (misalnya : kid
ganteng) terus baris itu akan unprotect dengan hasil function PasswordKu
berisi teks 'kid cakep'
Nah kan gak bisa kalau sheet yang diproteksi pakai 'kid ganteng' akan di
unprotect (kuning) oleh 'kid cakep'

Kalau sht.Unprotect PasswordKu diubah menjadi sht.Protect PasswordKu
, lalu blok yang bunyi :

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Unprotect PasswordKu 'di sini terjadi galat, mungkinkah maksudya
adalah sht.Protect PasswordKu
End If

akan menjadi :

If bolProtect Then

sht.Protect PasswordKu

Else

sht.Protect PasswordKu
End If

lalu, apa gunanya blok IF tersebut ?

Wassalam,
Kid.

2013/9/26 PRAZT <praztmath@gmail.com>

> **
>
>
> Udah saya ganti dari sht.Unprotect PasswordKu menjadi sht.Protect
> PasswordKu sehingga bisa berjalan normal, makasih Mas Zain n Mr.Kid,
> terus gmn pendapat mas Zain tentang pendapat Mr.Kid tadi apakah lebih baik
> di kasih pemaksaan ke user untuk mengenablekan security macro atau pakai
> sheet penyimpan password seperti yang Mr.Kid bilang tadi?****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *zainul_ulum[at]yahoo[dot]com
> *Sent:* 26 September 2013 16:55
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka [1 Attachment]****
>
> ** **
>
> mas Prast,****
>
> silahkan dicoba file terlampir.****
>
> ** **
>
> thanks****
>
> -zainul-****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>] *On
> Behalf Of *PRAZT
> *Sent:* Thursday, September 26, 2013 4:45 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ** **
>
> ****
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid****
>
> Kumplitannya begini dari mas Zain****
>
> '=================================****
>
> Function PasswordKu()****
>
> Dim pwd As String, i As Integer****
>
> Dim arrSymbol As Variant****
>
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")****
>
> With Application.WorksheetFunction****
>
> i = .Weekday(Now, 2)****
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")****
>
> End With****
>
> PasswordKu = pwd****
>
> End Function****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)****
>
> Dim sht As Worksheet****
>
> For Each sht In ActiveWorkbook.Worksheets****
>
> If bolProtect Then****
>
> sht.Protect PasswordKu****
>
> Else****
>
> sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu****
>
> End If****
>
> Next****
>
> End Sub****
>
> ****
>
> '=====code ini di tulis di object workbook==============****
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)****
>
> ProtectSheets False****
>
> End Sub****
>
> Private Sub Workbook_Open()****
>
> ProtectSheets True****
>
> End Sub****
>
> '===========================****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>] *On
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ****
>
> ****
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_****
>
> Coba gunakan PasswordKu_ daripada PasswordKu****
>
> Wassalam,****
>
> Kid.****
>
> ****
>
> ****
>
> 2013/9/26 PRAZT <praztmath@gmail.com>****
>
> ****
>
> @_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
> dengan memaksa user harus mengenabelkan security macro (tapi masih
> menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ? ****
>
> @_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
> mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...****
>
> Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
> kuning berikut :****
>
> ****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)****
>
> Dim sht As Worksheet****
>
> For Each sht In ActiveWorkbook.Worksheets****
>
> If bolProtect Then****
>
> sht.Protect PasswordKu****
>
> Else****
>
> sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
> PasswordKu****
>
> End If****
>
> Next****
>
> End Sub****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 15:45
> *To:* BeExcel****
>
>
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ****
>
> ****
>
> Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer
> yang Macro Security didisable atau belum dienablekan oleh user, maka semua
> sheet dalam keadaan unprotected alias bisa diubah isinya.****
>
> Wassalam,****
>
> Kid.****
>
> ****
>
> 2013/9/26 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>****
>
> ****
>
> Passwordnya sepertinya sih nggak berubah kalo ganti hari.
> tetapi bisa dicoba dengan urutan sbb:
> 1. Sebelum Workbook ditutup unprotect semua sheet
> 2. Jika suatu saat workbook dibuka, protect semua worksheet dengan
> password baru
>
> '=================================****
>
>
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
> With Application.WorksheetFunction
> i = .Weekday(Now, 2)****
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")****
>
>
> End With
> PasswordKu = pwd
> End Function****
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.Worksheets
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu
> End If
> Next
> End Sub
> '=======================
> '=====code ini di tulis di object workbook==============
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> ProtectSheets False
> End Sub
>
> Private Sub Workbook_Open()
> ProtectSheets True
> End Sub
> '===========================****
>
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT****
>
> Sent: Thursday, September 26, 2013 2:30 PM****
>
>
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka****
>
> Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau
> berganti hari kira-kira passwordnya ikutan berganti undak ya?....ok Mr.
> Zainul, Suwun dah membantu+koreksi, Syukron Katsiron....****
>
> PRAZTMATH �
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang
> terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi
> bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
> Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
> password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" &
> arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" &
> arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
> atau master yang lain...****
>
> PRAZTMATH �
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> Ikutan njawab.
> Barangkali karena kelbihan sau "y".
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")
>
> Salam,
> HK****
>
> ________________________________________****
>
>
> From: PRAZT <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> Sent: Thursday, 26 September 2013, 12:23
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
>
> Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
> dibuka lagi kok passwordnya masih
> �Kamis$26-09-13�(tanpa tanda petik) yang seharusnya �Kamis$26-09-2013�,
> jadi pada intinya password tidak bisa berubah sebelum paswordnya di
> Unprotect dulu...mohon penjelasa mas Zainul.
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 10:47
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
>
> terlampir file yang sudah saya coba...
>
> -----Original Message-----
> From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
> Sent: Thursday, September 26, 2013 10:35 AM
> To: 'belajar-excel@yahoogroups.com'
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> maaf sekali kalo nggak bisa,
> seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
> masalah
>
> coba diganti
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
> di depan dd
>
> menjadi
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
> dihilangkan
>
> wassalam
> -zainul-
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> Malah tidak jalan mas zainul
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> mungkin yang dimaksud seperti ini ya�
> �===================
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
>
> With Application.WorksheetFunction
> i = .Weekday(Now, 2)
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
> PasswordKu = pwd End Function �============================================
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> coba code berikut:
> Function PasswordKu_()
> Dim pwd As String
> With Application.WorksheetFunction
> 'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
> diberi symbol |
>
> pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
>
> 'mengganti symbol | dengan misal $
> pwd = .Substitute(pwd, "|", "$")
> End With
> PasswordKu_=pwd
> End Function
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 8:03 AM
> To: group excel
> Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka [1 Attachment]
>
> Assalammu�alaikum...
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
> alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
> berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
> tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
> adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
> buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
> Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ;
> Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
> Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
> Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
> mentok pada kesulitan. Wassalam...
>
> PRAZTMATH �****
>
> ****
>
> ****
>
> ** **
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (29) . Top ^

3a

Pivot table

Thu Sep 26, 2013 3:03 am (PDT) . Posted by:

"Kurniawan Tufail" kurniawan_tufail@ymail.com

Dear exceler,,

Saya ingin bertanya, apakah di pivot tabel ada fasilitas penambahan kolom dengan value berdasakan formula yang kita inginkan (bukan hanya sum, count dll) seperti penambahan, pengurangan ataupun rumus kompleks lainnya (seperti menggunakan if)??

saya juga ingin bertanya, apakah bisa menggunakan satu field pada bagian value dengan 2 macam keluaran (satunya menggunakan count dan satunya menggunakan sum).

terimakasih sebelumnya kepada para suhu2 dsni,,

regrads,
kurniawan

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

3b

Re: Pivot table

Thu Sep 26, 2013 3:39 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Kurniawan,

1. Pivot table memiliki fitur bernama Calculated field (membuat field untuk
bagian values) yang bisa diisi oleh formula sederhana seperti IF yang tidak
kompleks seperti IF yang berdasar nilai bagian row label nya atau bagian
column labelnya. Jadi, IF bisa dipakai untuk relatif terhadap semua field
yang diletakkan dalam bagian Values. Selain IF, bisa penambahan pengurangan
dan sebagainya.

Selain itu, juga ada Calculated item (membuat item baru dari suatu field
yang diletakkan di bagian Row label atau Column Label). Beberapa batasan
akan berlaku disini, seperti tidak bisa digunakan untuk grouped field.

Satu hal yang perlu diingat adalah seluruh proses calculated field atau
calculated item adalah relatif terhadap hasil pivot table bukan terhadap
nilai di datasource.

Jadi, jika prosesnya berkaitan dengan kegiatan mikro atau record per
record, maka tambahkan kolom ke datasource. Di kolom tambahan di datasource
itu bisa digunakan seluruh potensi formula Excel. Termasuk jika harus
rekursif ke hasil pivot table (bukan sekedar circular reference ke hasil
pivot ya) [repotnya, butuh refresh table berulang untuk memastikan hasil
akhir]

2. setiap field yang tersedia dari data source, bisa digunakan berulang
dibagian values. Jadi, sebuah field bisa diletakkan ke bagian values
sebanyak yang disuka tapi dengan kegiatan sesuai kebutuhan. Misal field
nilai diletakkan dibagian values 3 kali (drag field bernama nilai sebanyak
3 kali ke bagian values). Yang pertama diagregat Sum, yang kedua di agregat
Count, yang ketiga diagregat Sum tapi show as values diset running total
base ke suati field di bagian row.

Setiap field dibagian Row dan Column juga bisa ditampilkan subtotal agregat
yang berbeda, misal subtotal Sum diikuti subtotal max dibawahnya, lalu
diikuti subtotal agregat average dibawahnya lagi, dsb. Coba jalan-jalan
kesini<http://excel-mr-kid.blogspot.com/2013/09/pivot-table-3-pivot-field.html>
.

Wassalam,
Kid.

2013/9/26 Kurniawan Tufail <kurniawan_tufail@ymail.com>

> **
>
>
> Dear exceler,,
>
> Saya ingin bertanya, apakah di pivot tabel ada fasilitas penambahan kolom
> dengan value berdasakan formula yang kita inginkan (bukan hanya sum, count
> dll) seperti penambahan, pengurangan ataupun rumus kompleks lainnya
> (seperti menggunakan if)??
>
> saya juga ingin bertanya, apakah bisa menggunakan satu field pada bagian
> value dengan 2 macam keluaran (satunya menggunakan count dan satunya
> menggunakan sum).
>
> terimakasih sebelumnya kepada para suhu2 dsni,,
>
> regrads,
> kurniawan
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

12 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>