[belajar-excel] Digest Number 2564

Milis Belajar Microsoft Excel Group

3 New Messages

Digest #2564

1.1

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

2.1

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

2.2

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

Messages

1.1

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

Sat Sep 28, 2013 12:14 am (PDT) . Posted by:

"PRAZT" praztmath

Bukan rame lsgi nich kl Mis Jan ikutan juga tapi jadi tambah heboh
hehehe....ok juga usul Mis Jan, bisa dicoba dibuka esok hari nih....thank's
Mis Jan atas solusinya, jadi lega nih.....

PRAZTMATH T

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

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
<mailto: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 <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 T

From: belajar-excel@yahoogroups.com <mailto: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 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 (43) . Top ^

2.1

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Sat Sep 28, 2013 12:15 am (PDT) . Posted by:

"PRAZT" praztmath

Masih lanjut Mr.Kid, solusi dari Mis Jan bagus tadi...sekali lagi makasih
MK, MJR, MHK,Pak De, bang Zain, dan master-master yang sudah banyak
membantu....kasus ini saya tutup dengan solusi dari Mis Jan...Wassalam..

PRAZTMATH T

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

hehehe....

masih juga dilanjutkan ya...

Pak HK,
bagaimana jika dicopasken script yang dipakai sampai gak jalan tersebut.

bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa tampak
penyebabnya.

Wassalam,

Kid.

2013/9/27 hendrik karnadi <hendrikkarnadi@yahoo.com
<mailto:hendrikkarnadi@yahoo.com> >

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 T

From: belajar-excel@yahoogroups.com <mailto: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 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 (43) . Top ^

2.2

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Sat Sep 28, 2013 4:29 am (PDT) . Posted by:

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

Oh iya, idenya menambahkan userform untuk load itu bagus. File digunakan
kerja berapa lama pun (sampai ganti hari) tetap oke (penggunaan variabel
sPwd yang pas penempatannya. Tapi, pertama kali si file dibuka, semua sheet
data tidak terprotect.

*Terlepas semua orang bisa membongkar password VBAProject ataupun password
worksheet ya...*
Jika filenya miss Jan dibuka lalu security macro dipilih Disable, maka
userform yang punya tugas untuk meng-quit si file tidak bekerja.
Jadinya, semua sheet data bisa terekspose oleh workbook lain dalam instansi
excel tersebut.

Misal, ada sebuah file ber-VBA yang dibuka bernama FileA yang tidak
diproteksi VBAProjectnya,
sedang file miss Jan yang diproteksi VBAProject-nya belum dibuka.

Ketika FileA dibuka dan di-enable macro, maka VBA dalam FileA bisa bekerja
dan VBAProject milik FileA bisa dilihat.
Kemudian file miss Jan dibuka dan security Macro tidak di-enable alias
tetap disable, maka userform di file miss Jan tidak berjalan alias sheet
yang tampil adalah sheet Menu. Jika ke VBE, maka VBAProject FileA bisa
dilihat isinya dan file miss Jan tidak bisa dilihat isi VBAProjectnya.

Kemudian di FileA di VBA-nya, diberi prosedur untuk meng-visible-kan semua
sheet, maka semua sheet dalam file miss Jan bisa diganti nilainya.

Sedangkan si FileA tadi itu bisa jadi sebuah file excel baru yang kemudian
diisi VBA dan disave sebagai Macro Enabled Workbook (.xlsm).

Tentu akan sedikit berbeda (karena ada pengabaian tentang *Terlepas semua
orang bisa membongkar password VBAProject ataupun password worksheet ya...*)
ketika semua sheet selalu dalam keadaan ter-protect saat tidak digunakan
(tertutup).

Script-nya PakDe sudah bisa melakukannya.
Cukup tambahkan saja proses Thisworkbook.Save tepat sebelum End Sub di
event WorkbookOpen.
Apalagi kalau yang disimpan dalam script PakDe adalah tanggalnya saja
(bukan passwordnya).
Kemudian, cell tersebut diatur supaya warna fontnya sama dengan warna latar
cell (supaya bisa diletakkan di cell A1 saja tapi ndak kelihatan).
Sheet yang menyimpan tanggal tersebut diprotect dengan password tertentu
yang berbeda dengan sheet lainnya.
Proses ganti password dalam workbook open selalu didahului buka proteksi
sheet penyimpan tanggal dan diakhiri dengan memproteksi sheet penyimpan
tanggal.
Dalam blok event workbook open diberi on error resume next dan ditutup
dengan err.clear dan on error goto 0 supaya pengaturan error selanjutnya
bisa diserahkan ke script yang ada didalam file selain workbook open.
VBAProject diproteksi.

kira-kira bunyi script pakDe jadi : (pinjem scriptnya pakde)

Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as Variant,
dtCur as date
on error resume next
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&&quot;)

application.screenupdating = false
sheets("SheetPassword&quot;).visible = xlsheetvisible

sheets("SheetPassword&quot;).unprotect "cekripnyaPakD"
TmpPass = sheets("SheetPassword&quot;).range("a1").value

dtCur =date
NewPass = vhari( weekday( dtCur ) -1 ) & format$( dtCur,"DD-MM-YYYY"
)

for each Sht in worksheets
Sht.unprotect TmpPass
Sht.protect NewPass
next

sheets("SheetPassword&quot;).range("a1") = dtcur 'NewPass
sheets("SheetPassword&quot;).range("a1").font.colorindex= _
sheets("SheetPassword&quot;).range("a1").interior.colorindex

sheets("SheetPassword&quot;).enableselection=unlockedcells
sheets("SheetPassword&quot;).protect "cekripnyaPakD"
sheets("SheetPassword&quot;).visible = xlsheetveryhidden
application.displayalerts=false
thisworkbook.save
application.displayalerts=true
application.screenupdating = true
err.clear
on error goto 0

tapi bisa jadi script diatas ada errornya, soale belum dicoba. Silakan
BeExceller yang pada suka VBA memperbaikinya. Eh atau malah PakDe yang
punya script yang mau memperbaikinya... suwun...

Wassalam,
Kid.

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

> **
>
>
> Masih lanjut Mr.Kid, solusi dari Mis Jan bagus tadi...sekali lagi makasih
> MK, MJR, MHK,Pak De, bang Zain, dan master-master yang sudah banyak
> membantu....kasus ini saya tutup dengan solusi dari Mis Jan...Wassalam..*
> ***
>
> ** **
>
> ********
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 28 September 2013 06:37
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka****
>
> ** **
>
> ****
>
> hehehe....****
>
> masih juga dilanjutkan ya...****
>
> Pak HK,
> bagaimana jika dicopasken script yang dipakai sampai gak jalan tersebut.**
> **
>
> bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa tampak
> penyebabnya.****
>
> Wassalam,****
>
> Kid.****
>
>
>
>
>
> ****
>
> ** **
>
> 2013/9/27 hendrik karnadi <hendrikkarnadi@yahoo.com>****
>
> 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 (43) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

9 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

>