Suwun Mr.Kid Tadi difile lampiran udah saya kasih kode berikut
rivate Function PasswordKu() As String
Dim NoHari As Integer
NoHari = Application.WorksheetFunction.Weekday(Now)
PasswordKu = Choose(NoHari, "Minggu", "Senin", "Selasa", "Rabu",
"Kamis", "Jumat", "Sabtu")
End Function
Sub Auto_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect PasswordKu
Next ws
End Sub
Sub Auto_Close()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect PasswordKu
Next ws
End Sub
Dan jika dibuka pada hari ini Kamis, 26 September 2013 pasword sheetnya
masih nama hari saja yaitu "Kamis"(tanpa tanda petik)....ok sekarang saya
coba kode yang MK berikan...
PRAZTMATH T
From: [email protected] [mailto:[email protected]]
On Behalf Of Mr. Kid
Sent: 26 September 2013 08:51
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Wa'alaikumussalam Wr. Wb.
Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.worksheets
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"DD-MM-YYYY" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/26 PRAZT <[email protected] <mailto:[email protected]> >
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
<<image004.png>>
<<image005.png>>
<<image006.gif>>
<<image007.png>>
