[belajar-excel] Digest Number 2561

Milis Belajar Microsoft Excel Group

15 New Messages

Digest #2561

1

BelajarVBA : seri terakhir mengenal Range, CurrentRegion by "Mr. Kid" nmkid.family@ymail.com

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 [1 A by "Mr. Kid" nmkid.family@ymail.com

2.3

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "De Premor" de.premor

2.4

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "hendrik karnadi" hendrikkarnadi

2.5

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

2.6

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

2.7

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

2.8

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "hendrik karnadi" hendrikkarnadi

2.9

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

2.10

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Jan Raisin"

3

Msgbox vba by "Andy Ajhis Ramadhan" andy_ajhis37

4a

Bls: [belajar-excel] Menghitung Rombongan Belajar Siswa by "ISMI YATI" dik_is

5a

excel perhitungan pph pasal 21 by "Ahmad Syaifullah Lubis" syaifullah

5b

Re: excel perhitungan pph pasal 21 by "Jan Raisin"

Messages

1

BelajarVBA : seri terakhir mengenal Range, CurrentRegion

Thu Sep 26, 2013 7:25 am (PDT) . Posted by:

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

Dear BeExceller,

Pemabahsan tentang range ditutup tentang CurrentRegion.
Linknya disini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-06-range-ke-range.html>
.

:)

met jalan-jalan

Wassalam,
Kid.

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

2.1

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 5:17 pm (PDT) . Posted by:

"PRAZT" praztmath

Assalamu'alaikum....
Selamat pagi Mr.Kid dan beExceller yang lain...
Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
berikut dan coba buka file lampiran ;

'=================================
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


Dengan bunyi eror seperti ini


PRAZTMATH T

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


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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
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 < <mailto:zainul_ulum@yahoo.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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> praztmath@gmail.com>
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:zainul_ulum@yahoo.com>
zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: ' <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
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 (39) . Top ^

2.2

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

Thu Sep 26, 2013 5:56 pm (PDT) . Posted by:

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

Wakakaka...

Dah kalo gitu setelah baris2 dim blabla
Kasih kode :
On error resume next

Selesai. Gak akan ada error lagi.

:D

Wassalam,
Kid.
On Sep 27, 2013 7:17 AM, "PRAZT" <praztmath@gmail.com> wrote:

> Assalamu'alaikum....****
>
> Selamat pagi Mr.Kid dan beExceller yang lain...****
>
> Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai
> sht.Unprotect PasswordKu itu kalau pas di tutup ada errornya tapi untuk
> hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada
> baris blok kuning berikut dan coba buka file lampiran ;****
>
> ** **
>
> '=================================****
>
> 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****
>
> ** **
>
> ** **
>
> Dengan bunyi eror seperti ini****
>
> ** **
>
> ********
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ** **
>
> ****
>
> 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 errorresume
> 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 : kidganteng) 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 maksudyaadalah
> 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 maksudyaadalah
> 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 komputeryang Macro Security
> didisable atau belum dienablekan oleh user, maka semua sheet dalam keadaanunprotected 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 denganpassword
> 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:
>
> ...

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

2.3

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

Thu Sep 26, 2013 6:10 pm (PDT) . Posted by:

"De Premor" de.premor

Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan
menjadi *ddd%dd-mm-yyyy* yang bikin eksyel bingung,
biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi
*ddd"%"dd-mm-yyyy*
Kalau dibahasakan ke rumus menjadi

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

Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam,
trus lembur sampai pagi baru saya close filenya, kira-kira apa yang
terjadi ya ?

On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu'alaikum....
>
> Selamat pagi Mr.Kid dan beExceller yang lain...
>
> Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai
> sht.UnprotectPasswordKu itu kalau pas di tutup ada errornya tapi untuk
> hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada
> baris blok kuning berikut dan coba buka file lampiran ;
>
> '=================================
>
> FunctionPasswordKu()
>
> Dimpwd As String, i As Integer
>
> DimarrSymbol As Variant
>
> arrSymbol= Array("!", "@", "#", "$", "%", "^", "&")
>
> WithApplication.WorksheetFunction
>
> i = .Weekday(Now, 2)
>
> pwd= .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
>
> EndWith
>
> PasswordKu= pwd
>
> EndFunction
>
> Dengan bunyi eror seperti ini
>
> PRAZTMATH ^(TM)
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama
> hari dan tanggal dibuka
>
> Maaf,
>
> saya ndak mudeng dasar penggantian dari sht.UnprotectPasswordKumenjadi
> sht.ProtectPasswordKuitu 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.UnprotectPasswordKuadalah
> tidak bisa buka proteksi sheet ?
>
> Itukanartinya 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.UnprotectPasswordKudiubah menjadi sht.ProtectPasswordKu
>
> , lalu blok yang bunyi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.UnprotectPasswordKu 'di sini terjadi galat, mungkinkah maksudya
> adalah sht.ProtectPasswordKu
>
> EndIf
>
> akan menjadi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.ProtectPasswordKu
>
> EndIf
>
> lalu, apa gunanya blok IF tersebut ?
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.com<mailto:praztmath@gmail.com>>
>
> Udah saya ganti dari sht.UnprotectPasswordKu menjadi
> sht.ProtectPasswordKu 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>[mailto: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<mailto:belajar-excel@yahoogroups.com>
> *Subject**:* RE: [belajar-excel] paswword sheet berganti sesuai
> nama hari dan tanggal dibuka [1 Attachment]
>
> mas Prast,
>
> silahkandicoba 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.UnprotectPasswordKu di sini terjadi galat, mungkinkah maksudya
> adalah sht.ProtectPasswordKu
>
> 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
>
> Bukankahfunction yang dibuat mas Zain bernama PasswordKu_
>
> Cobagunakan 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...
>
> Teruspas 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.ProtectPasswordKu
>
> Else
>
> sht.UnprotectPasswordKu apakah mungkin maksudnya adalah
> sht.ProtectPasswordKu
>
> 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
>
> Dengancara 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>>
>
> Passwordnyasepertinya 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
>
> Berartiharus 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 ^(TM)
>
> 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 ^(TM)
>
> 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 ^(TM)
>
>
>

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

2.4

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 7:02 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Nah, kalau error bagian passswordnya kemudian kita "bypass" berarti kan passwordnya ga berlaku.
Bukan begitu Mr. Kid ?

Salam,
HK

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 27 September 2013, 7:56
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka


 
Wakakaka...
Dah kalo gitu setelah baris2 dim blabla
Kasih kode :
On error resume next
Selesai. Gak akan ada error lagi.
:D
Wassalam,
Kid.

On Sep 27, 2013 7:17 AM, "PRAZT" <praztmath@gmail.com> wrote:

Assalamu’alaikum....
>Selamat pagi Mr.Kid dan beExceller yang lain...
>Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.UnprotectPasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning berikut dan coba buka file lampiran ;
> 
>'=================================
>FunctionPasswordKu()
>Dimpwd As String, i As Integer
>DimarrSymbol As Variant
>arrSymbol= Array("!", "@", "#", "$", "%", "^", "&")
>WithApplication.WorksheetFunction
>i = .Weekday(Now, 2)
>pwd= .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy")
>EndWith
>PasswordKu= pwd
>EndFunction
> 
> 
>Dengan bunyi eror seperti ini
> 
> 
>PRAZTMATH â„¢
> 
>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
>Sent: 26 September 2013 17:15
>To: BeExcel
>Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
> 
> 
>Maaf,
>saya ndak mudeng dasar penggantian dari sht.UnprotectPasswordKumenjadi sht.ProtectPasswordKuitu 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.UnprotectPasswordKuadalah tidak bisa buka proteksi sheet ?
>Itukanartinya 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.UnprotectPasswordKudiubah menjadi sht.ProtectPasswordKu
>, lalu blok yang bunyi :
>If bolProtect Then
>sht.Protect PasswordKu
>Else
>sht.UnprotectPasswordKu   'di sini terjadi galat, mungkinkah maksudya adalah sht.ProtectPasswordKu
>EndIf
> 
>akan menjadi :
>If bolProtect Then
>sht.Protect PasswordKu
>Else
>sht.ProtectPasswordKu
>EndIf
> 
>lalu, apa gunanya blok IF tersebut ?
>Wassalam,
>Kid.
> 
>2013/9/26 PRAZT <praztmath@gmail.com>
> 
>>Udah saya ganti dari sht.UnprotectPasswordKu   menjadi  sht.ProtectPasswordKu 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,
>>silahkandicoba 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.UnprotectPasswordKu   di sini terjadi galat, mungkinkah maksudya adalah sht.ProtectPasswordKu
>>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
>> 
>> 
>>Bukankahfunction yang dibuat mas Zain bernama PasswordKu_
>>Cobagunakan 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...
>>>Teruspas 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.ProtectPasswordKu
>>>Else
>>>sht.UnprotectPasswordKu     apakah mungkin maksudnya adalah sht.ProtectPasswordKu
>>>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
>>> 
>>> 
>>>Dengancara 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>
>>> 
>>>>Passwordnyasepertinya 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
>>>>Berartiharus 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: ...

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

2.5

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 7:36 pm (PDT) . Posted by:

"PRAZT" praztmath

Malah paswordnya agal jalan Mr.Kid

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 27 September 2013 07:57
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Wakakaka...

Dah kalo gitu setelah baris2 dim blabla
Kasih kode :
On error resume next

Selesai. Gak akan ada error lagi.

:D

Wassalam,
Kid.

On Sep 27, 2013 7:17 AM, "PRAZT" <praztmath@gmail.com
<mailto:praztmath@gmail.com> > wrote:

Assalamu'alaikum....

Selamat pagi Mr.Kid dan beExceller yang lain...

Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
berikut dan coba buka file lampiran ;

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

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

Dengan bunyi eror seperti ini

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 Mr. Kid
Sent: 26 September 2013 17:15
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

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 <mailto: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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55

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]

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
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 < <mailto:zainul_ulum@yahoo.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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT

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

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To:

...

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

2.6

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 7:39 pm (PDT) . Posted by:

"PRAZT" praztmath

Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai lembur
bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa berganti
kemarin (sebelum ada tambahan " pada baris pwd = .Text(Now, "[$-421]ddd""" &
arrSymbol(i - 1) & """dd-mm-yyyy")

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of De Premor
Sent: 27 September 2013 08:07
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan
menjadi ddd%dd-mm-yyyy yang bikin eksyel bingung,
biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi
ddd"%"dd-mm-yyyy
Kalau dibahasakan ke rumus menjadi

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

Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam,
trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi
ya ?

On 27-09-2013 7:16, PRAZT wrote:

Assalamu'alaikum....

Selamat pagi Mr.Kid dan beExceller yang lain...

Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
berikut dan coba buka file lampiran ;

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

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

Dengan bunyi eror seperti ini

PRAZTMATH T

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

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 <mailto: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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55

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]

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
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 < <mailto:zainul_ulum@yahoo.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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT

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

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> praztmath@gmail.com>
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:zainul_ulum@yahoo.com>
zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: ' <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
[mailto: <mailto:belajar-excel@yahoogroups.com>
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 (39) . Top ^

2.7

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 7:40 pm (PDT) . Posted by:

"PRAZT" praztmath

Iya Mr. HK, passwordnya jadi kagak berlaku....

PRAZTMATH â„¢

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 27 September 2013 09:02
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

Nah, kalau error bagian passswordnya kemudian kita "bypass" berarti kan passwordnya ga berlaku.

Bukan begitu Mr. Kid ?

Salam,

HK

_____

From: Mr. Kid <mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 7:56
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

Wakakaka...

Dah kalo gitu setelah baris2 dim blabla
Kasih kode :
On error resume next

Selesai. Gak akan ada error lagi.

:D

Wassalam,
Kid.

On Sep 27, 2013 7:17 AM, "PRAZT" <praztmath@gmail.com <mailto:praztmath@gmail.com> > wrote:

Assalamu’alaikum....

Selamat pagi Mr.Kid dan beExceller yang lain...

Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning berikut dan coba buka file lampiran ;

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

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

Dengan bunyi eror seperti ini

PRAZTMATH â„¢

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 17:15
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

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 <mailto: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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55

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]

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:zainul_ulum@yahoo.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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of PRAZT

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

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To:

...

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

2.8

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 9:14 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Saya barusan coba ketik Password:
Jum'at%27-09-2013 dan Jumat%27-09-2013 koq ga jalan ya ?

Salam,
HK

________________________________
From: PRAZT <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 27 September 2013, 9:39
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka


 
Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai lembur bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa berganti kemarin (sebelum ada tambahan “ pada baris pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")
 
PRAZTMATH â„¢
 
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of De Premor
Sent: 27 September 2013 08:07
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
 
Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan menjadi ddd%dd-mm-yyyy yang bikin eksyel bingung,
biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi ddd"%"dd-mm-yyyy
Kalau dibahasakan ke rumus menjadi

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

Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam, trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi ya ?
On 27-09-2013 7:16, PRAZT wrote:
Assalamu’alaikum....
>Selamat pagi Mr.Kid dan beExceller yang lain...
>Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning berikut dan coba buka file lampiran ;
> 
>'=================================
>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
> 
> 
>Dengan bunyi eror seperti ini
> 
> 
>PRAZTMATH â„¢
> 
>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
>Sent: 26 September 2013 17:15
>To: BeExcel
>Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
> 
> 
>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] 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 â„¢
>>>>
>>>>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 (39) . Top ^

2.9

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Fri Sep 27, 2013 12:30 am (PDT) . Posted by:

"PRAZT" praztmath

Coba file terlampir Mr.HK

PRAZTMATH â„¢

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 27 September 2013 11:14
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

Saya barusan coba ketik Password:

Jum'at%27-09-2013 dan Jumat%27-09-2013 koq ga jalan ya ?

Salam,

HK

_____

From: PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 9:39
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai lembur bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa berganti kemarin (sebelum ada tambahan “ pada baris pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")

PRAZTMATH â„¢

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of De Premor
Sent: 27 September 2013 08:07
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan menjadi ddd%dd-mm-yyyy yang bikin eksyel bingung,
biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi ddd"%"dd-mm-yyyy
Kalau dibahasakan ke rumus menjadi

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

Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam, trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi ya ?

On 27-09-2013 7:16, PRAZT wrote:

Assalamu’alaikum....

Selamat pagi Mr.Kid dan beExceller yang lain...

Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak, hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning berikut dan coba buka file lampiran ;

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

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

Dengan bunyi eror seperti ini

PRAZTMATH â„¢

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

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 <mailto: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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55

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]

mas Prast,

silahkan dicoba file terlampir.

thanks

-zainul-

From: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:zainul_ulum@yahoo.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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of PRAZT

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

To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: <mailto:belajar-excel@yahoogroups.com> 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 < <mailto:praztmath@gmail.com> praztmath@gmail.com>
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:zainul_ulum@yahoo.com> zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: ' <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

Malah tidak jalan mas zainul

From: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: <mailto:belajar-excel@yahoogroups.com> 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: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [mailto: <mailto:belajar-excel@yahoogroups.com> 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 (39) . Top ^

2.10

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Fri Sep 27, 2013 12:46 am (PDT) . Posted by:

"Jan Raisin"

ikutan ya.. biar makin rame xixixi..

gak baca dari thread awal.. jadi mungkin solusinya akan berbeda..
masih bingung.. kenapa harus sheetnya yang diproteksi, kenapa tidak
langsung workbooknya

solusi dari Jan sbb: (siapa tau bisa jadi solusi alternatif)
1. pada saat VBA tidak aktif, yang tampil hanya sheet Menu sedangkan sheet
Data akan tersembunyi
2. saat VBA aktif, maka excel-nya menghilang dan yang muncul adalah form
untuk input password
3. jika password salah input, maka aplikasi Excel akan langsung di close
4. jika password benar maka sheet Data1, Data2, dan Data3 akan muncul dalam
keadaan terproteksi, sedangkan sheet Menu akan disembunyikan
5. saat workbook ditutup maka akan dilakukan proses unprotect sheet,
nenampilkan sheet Menu dan sembunyikan sheet lain, save workbook
6. password akan berubah setiap hari

hari pertama adalah minggu dan hari ke tujuh adalah Sabtu
kode untuk masing-masing hari adalah speseial karakter di atas angka 2
sampai dengan angka 8

untuk lebih amannya.. sebaiknya vba-nya juga dipassword

script-nya sbb:

============== ditulis pada ThisWorkbook =================

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet

Application.DisplayAlerts = False
Sheet1.Visible = xlSheetVisible
For Each sht In Worksheets
If sht.Name <> "Menu" Then
sht.Unprotect sPwd
sht.Visible = xlSheetVeryHidden
End If
Next sht
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
Application.Visible = False
frmLogIn.Show
End Sub

=============== ditulis pada Form Login ==================

Private Sub cmdCancel_Click()
Unload Me
Application.DisplayAlerts = False
Application.Quit
End Sub

Private Sub cmdOK_Click()
Call Pwd
End Sub

================= ditulis pada modul ====================

Public sPwd As String
Sub Pwd()
Dim iWeek As Integer
Dim sChr As String
Dim dt As Date
Dim sht As Worksheet

dt = Now()
iWeek = Weekday(dt)
Select Case iWeek
Case 1
sChr = "@"
Case 2
sChr = "#"
Case 3
sChr = "$"
Case 4
sChr = "%"
Case 5
sChr = "^"
Case 6
sChr = "&"
Case 7
sChr = "*"
End Select
sPwd = Format(dt, "ddd") & sChr & Format(dt, "dd-mm-yyyy")
If frmLogIn.txtPwd.Text = sPwd Then
Unload frmLogIn
Application.Visible = True
For Each sht In Worksheets
If sht.Visible = xlSheetVeryHidden Then
sht.Visible = xlSheetVisible
sht.Protect sPwd
End If
Next sht
Worksheets("Menu").Visible = xlSheetVeryHidden
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

file terlampir

-Miss Jan Raisin-

Pada 27 September 2013 11.14, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

> Saya barusan coba ketik Password:
> Jum'at%27-09-2013 dan Jumat%27-09-2013 koq ga jalan ya ?
>
> Salam,
> HK
>
> ------------------------------
> *From:* PRAZT <praztmath@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 27 September 2013, 9:39
>
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai
> lembur bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa
> berganti kemarin (sebelum ada tambahan " pada baris pwd = .Text(Now,
> "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")
>
> PRAZTMATH ™
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *De Premor
> *Sent:* 27 September 2013 08:07
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
> Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan
> menjadi *ddd%dd-mm-yyyy* yang bikin eksyel bingung,
> biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi *
> ddd"%"dd-mm-yyyy*
> Kalau dibahasakan ke rumus menjadi
>
> pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")
>
> Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam,
> trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi
> ya ?
> On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu'alaikum....
> Selamat pagi Mr.Kid dan beExceller yang lain...
> Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
> PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
> hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
> berikut dan coba buka file lampiran ;
>
> '=================================
> 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
>
>
> Dengan bunyi eror seperti ini
>
>
> PRAZTMATH ™
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>] *On
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> 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 (39) . Top ^

3

Msgbox vba

Thu Sep 26, 2013 10:15 pm (PDT) . Posted by:

"Andy Ajhis Ramadhan" andy_ajhis37

Dear,
Be-Exceller

Bagaimana perumusan utk msgbox bila pesan yang mengandung "Enter" untuk mlanjutkan msgbox dibawahnya lagi.

Salam,
Andy

Sent from Yahoo! Mail on Android

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

4a

Bls: [belajar-excel] Menghitung Rombongan Belajar Siswa

Thu Sep 26, 2013 10:16 pm (PDT) . Posted by:

"ISMI YATI" dik_is

saya coba pakai rumus ini, kelasnya saya kasih sampai kelas VI (karena jenjang SD) 
tapi kok hasilnya salah ya pak. 
Mohon bantuannya... 

Ismi

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 6 September 2013 6:09
Judul: Re: [belajar-excel] Menghitung Rombongan Belajar Siswa


 
Hai Ismi,

Coba file terlampir.

Wassalam,
Kid.

2013/9/5 ISMI YATI <dik_is@yahoo.co.id>

> 
>Teman-teman groups,
>
>kami datang membawa permasalahan yang sampai
sekarang kami belum bisa memecahkannya, mohon bantuan dari teman-teman
untuk memecahkan masalah yang kami bawa.
>
>Keterangan :
>Tabel 1 adalah tabel sumber data yang kami punya.
>
>dari data di Tabel 1 tersebut, kami ingin mengisikan form di Tabel 2
>Kami menemukan kesulitan di rumusnya karena data siswanya teramat banyakkk semoga teman-teman bisa membantu kami dalam perumusannya jadi meringankan kerja kami.
>
>Mohon bantuan teman-teman dan terima kasih sebelum dan sesudahnya. 

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

5a

excel perhitungan pph pasal 21

Fri Sep 27, 2013 1:40 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear BeExceller,
adakah yang punya excel perhitungan pph pasal 21..
mohon bantuan sharingnya..
terima kasih
ASL

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

5b

Re: excel perhitungan pph pasal 21

Fri Sep 27, 2013 2:07 am (PDT) . Posted by:

"Jan Raisin"

dulu pernah ada yang sharing tentang PPh ps 21

coba cek di link
ini<http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Menghitung-PPh-21-bulanan-untuk-karyawan-tetap-td5714930.html>

Salam,

-Miss Jan Raisin-

Pada 27 September 2013 14.05, Ahmad Syaifullah Lubis <syaifullah@hotmail.com
> menulis:

> **
>
>
> Dear BeExceller,
> adakah yang punya excel perhitungan pph pasal 21..
> mohon bantuan sharingnya..
> terima kasih
> ASL
>
>
>

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

Visit Your Group

>

View All Topics

>

Create New Topic

>

10 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

>