15 New Messages
Digest #2567
2.2
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com
4a
memindahkan data dari sheetsatu ke sheet yang lain dengan kriteria t by "Kurniawan Tufail" kurniawan_tufail@ymail.com
Messages
Sun Sep 29, 2013 7:32 pm (PDT) . Posted by:
"Jan Raisin"
Hai Neza,
untuk kasus ini, bisa diselesaikan dengan menggunakan looping For Each -
Next
logika programnya adalah seperti ini:
1. lakukan pengujian apakah nama user dengan kriteria cel G9
2. jika nama user cocok dengan kriteria maka lakukan pengujian kedua,
apakah tanggal transaksi sama dengan kriteria cel H5
3. jika nama user dan tanggal cocok maka ambil nilai 2 kolom di sebelah
kanan nama user >>> setara dengan formula Index
, setelah itu keluar dari program >>> setara dengan formula Match dengan
match type = 0
4. jika tidak ada yang sama lakukan pengujian pada baris berikutnya
script yang Jan gunakan dan terdapat pada command button 3 sbb:
Private Sub CommandButton3_Click()
Dim rgUser As Range, celUser As Range
Dim sUser As String
Dim dtTime As Date
sUser = Range("g9").Value
dtTime = Range("h5")
Set rgUser = Range("a5:a13")
For Each celUser In rgUser
With celUser
If .Value = sUser Then
If .Offset(, 1).Value = dtTime Then
Range("h9").Value = .Offset(, 2).Value
Exit Sub
End If
End If
End With
Next celUser
End Sub
file solusi terlampir
sedikit menyinggung tentang array di VBA:
cara mendeklarasikannya sama seperti cara deklarasi variabel, yang
membedakan adalah tanda () di akhir nama variabel
dim JanCantik as long >>> ini adalah variabel
dim JanCantik() as long >>> ini adalah array, karena ada tanda () di akhir
nama variabel, cara deklarasi ini biasa dilakukan saat di awal belum
diketahui ukuran dimensi array
cara deklarasi di atas menunjukkan bahwa JanCantik() adalah array, tetapi
belum diketahui dimensinya
untuk menentukan dimensi maka harus dilakukan dengan cara ReDim
redim JanCantik(1 to 2, 1 to 5)
yang artinya bahwa JanCantik adalah array 2 dimensi dengan 2 baris dan 5
kolom (jika diterapkan di worksheet)
cara lain deklarasi array jika sudah diketahui ukuran dan dimensinya adalah
dgn cara berikut:
dim JanCantik(1 to 2, 1 to5) as long
salah satu diskusi panjang tentang array dalam VBA bisa ditemukan dalam
thread yang dimulai oleh pak Hendrik Karnadi di link
ini<http://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/27261>
cmiiw,
-Miss Jan Raisin-
Pada 29 September 2013 21.39, neza ibaneza <nezaibaneza@yahoo.co.id>menulis:
> **
>
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya...
>
> file terlampir
>
> best regards
> Neza
>
>
>
untuk kasus ini, bisa diselesaikan dengan menggunakan looping For Each -
Next
logika programnya adalah seperti ini:
1. lakukan pengujian apakah nama user dengan kriteria cel G9
2. jika nama user cocok dengan kriteria maka lakukan pengujian kedua,
apakah tanggal transaksi sama dengan kriteria cel H5
3. jika nama user dan tanggal cocok maka ambil nilai 2 kolom di sebelah
kanan nama user >>> setara dengan formula Index
, setelah itu keluar dari program >>> setara dengan formula Match dengan
match type = 0
4. jika tidak ada yang sama lakukan pengujian pada baris berikutnya
script yang Jan gunakan dan terdapat pada command button 3 sbb:
Private Sub CommandButton3_
Dim rgUser As Range, celUser As Range
Dim sUser As String
Dim dtTime As Date
sUser = Range("
dtTime = Range("
Set rgUser = Range("
For Each celUser In rgUser
With celUser
If .Value = sUser Then
If .Offset(, 1).Value = dtTime Then
Range("
Exit Sub
End If
End If
End With
Next celUser
End Sub
file solusi terlampir
sedikit menyinggung tentang array di VBA:
cara mendeklarasikannya sama seperti cara deklarasi variabel, yang
membedakan adalah tanda () di akhir nama variabel
dim JanCantik as long >>> ini adalah variabel
dim JanCantik() as long >>> ini adalah array, karena ada tanda () di akhir
nama variabel, cara deklarasi ini biasa dilakukan saat di awal belum
diketahui ukuran dimensi array
cara deklarasi di atas menunjukkan bahwa JanCantik() adalah array, tetapi
belum diketahui dimensinya
untuk menentukan dimensi maka harus dilakukan dengan cara ReDim
redim JanCantik(1 to 2, 1 to 5)
yang artinya bahwa JanCantik adalah array 2 dimensi dengan 2 baris dan 5
kolom (jika diterapkan di worksheet)
cara lain deklarasi array jika sudah diketahui ukuran dan dimensinya adalah
dgn cara berikut:
dim JanCantik(1 to 2, 1 to5) as long
salah satu diskusi panjang tentang array dalam VBA bisa ditemukan dalam
thread yang dimulai oleh pak Hendrik Karnadi di link
ini<http://groups.
cmiiw,
-Miss Jan Raisin-
Pada 29 September 2013 21.39, neza ibaneza <nezaibaneza@
> **
>
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya.
>
> file terlampir
>
> best regards
> Neza
>
>
>
Sun Sep 29, 2013 7:38 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Neza,
Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot
table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA)
bisa dimanfaatkan.
Wassalam,
Kid.
2013/9/29 neza ibaneza <nezaibaneza@yahoo.co.id>
> **
>
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya...
>
> file terlampir
>
> best regards
> Neza
>
>
>
Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot
table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA)
bisa dimanfaatkan.
Wassalam,
Kid.
2013/9/29 neza ibaneza <nezaibaneza@
> **
>
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya.
>
> file terlampir
>
> best regards
> Neza
>
>
>
Sun Sep 29, 2013 7:48 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
Assalamualaikum..
terima kasih banyak master Jan cantik
saya lagi belajar VBA terus... kedepannya mungkin banyak pertanyaan tentang VBA
salam
Neza
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 30 September 2013 9:32
Judul: Re: [belajar-excel] formula array di VBA [1 Attachment]
Hai Neza,
untuk kasus ini, bisa diselesaikan dengan menggunakan looping For Each - Next
logika programnya adalah seperti ini:
1. lakukan pengujian apakah nama user dengan kriteria cel G9
2. jika nama user cocok dengan kriteria maka lakukan pengujian kedua, apakah tanggal transaksi sama dengan kriteria cel H5
3. jika nama user dan tanggal cocok maka ambil nilai 2 kolom di sebelah kanan nama user >>> setara dengan formula Index
, setelah itu keluar dari program >>> setara dengan formula Match dengan match type = 0
4. jika tidak ada yang sama lakukan pengujian pada baris berikutnya
script yang Jan gunakan dan terdapat pada command button 3 sbb:
Private Sub CommandButton3_Click()
Dim rgUser As Range, celUser As Range
Dim sUser As String
Dim dtTime As Date
sUser = Range("g9").Value
dtTime = Range("h5")
Set rgUser = Range("a5:a13")
For Each celUser In rgUser
With celUser
If .Value = sUser Then
If .Offset(, 1).Value = dtTime Then
Range("h9").Value = .Offset(, 2).Value
Exit Sub
End If
End If
End With
Next celUser
End Sub
file solusi terlampir
sedikit menyinggung tentang array di VBA:
cara mendeklarasikannya sama seperti cara deklarasi variabel, yang membedakan adalah tanda () di akhir nama variabel
dim JanCantik as long >>> ini adalah variabel
dim JanCantik() as long >>> ini adalah array, karena ada tanda () di akhir nama variabel, cara deklarasi ini biasa dilakukan saat di awal belum diketahui ukuran dimensi array
cara deklarasi di atas menunjukkan bahwa JanCantik() adalah array, tetapi belum diketahui dimensinya
untuk menentukan dimensi maka harus dilakukan dengan cara ReDim
redim JanCantik(1 to 2, 1 to 5)
yang artinya bahwa JanCantik adalah array 2 dimensi dengan 2 baris dan 5 kolom (jika diterapkan di worksheet)
cara lain deklarasi array jika sudah diketahui ukuran dan dimensinya adalah dgn cara berikut:
dim JanCantik(1 to 2, 1 to5) as long
salah satu diskusi panjang tentang array dalam VBA bisa ditemukan dalam thread yang dimulai oleh pak Hendrik Karnadi di link ini
cmiiw,
-Miss Jan Raisin-
Pada 29 September 2013 21.39, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
>
>Assalamualaikum
>Salam B-Excel,
>Dear All Master,
>
>
>
>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>
>
>mohon pencerahannya...
>
>
>file terlampir
>
>
>best regards
>Neza
>
>
>
terima kasih banyak master Jan cantik
saya lagi belajar VBA terus... kedepannya mungkin banyak pertanyaan tentang VBA
salam
Neza
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Senin, 30 September 2013 9:32
Judul: Re: [belajar-excel] formula array di VBA [1 Attachment]
Hai Neza,
untuk kasus ini, bisa diselesaikan dengan menggunakan looping For Each - Next
logika programnya adalah seperti ini:
1. lakukan pengujian apakah nama user dengan kriteria cel G9
2. jika nama user cocok dengan kriteria maka lakukan pengujian kedua, apakah tanggal transaksi sama dengan kriteria cel H5
3. jika nama user dan tanggal cocok maka ambil nilai 2 kolom di sebelah kanan nama user >>> setara dengan formula Index
, setelah itu keluar dari program >>> setara dengan formula Match dengan match type = 0
4. jika tidak ada yang sama lakukan pengujian pada baris berikutnya
script yang Jan gunakan dan terdapat pada command button 3 sbb:
Private Sub CommandButton3_
Dim rgUser As Range, celUser As Range
Dim sUser As String
Dim dtTime As Date
sUser = Range("
dtTime = Range("
Set rgUser = Range("
For Each celUser In rgUser
With celUser
If .Value = sUser Then
If .Offset(, 1).Value = dtTime Then
Range("
Exit Sub
End If
End If
End With
Next celUser
End Sub
file solusi terlampir
sedikit menyinggung tentang array di VBA:
cara mendeklarasikannya sama seperti cara deklarasi variabel, yang membedakan adalah tanda () di akhir nama variabel
dim JanCantik as long >>> ini adalah variabel
dim JanCantik() as long >>> ini adalah array, karena ada tanda () di akhir nama variabel, cara deklarasi ini biasa dilakukan saat di awal belum diketahui ukuran dimensi array
cara deklarasi di atas menunjukkan bahwa JanCantik() adalah array, tetapi belum diketahui dimensinya
untuk menentukan dimensi maka harus dilakukan dengan cara ReDim
redim JanCantik(1 to 2, 1 to 5)
yang artinya bahwa JanCantik adalah array 2 dimensi dengan 2 baris dan 5 kolom (jika diterapkan di worksheet)
cara lain deklarasi array jika sudah diketahui ukuran dan dimensinya adalah dgn cara berikut:
dim JanCantik(1 to 2, 1 to5) as long
salah satu diskusi panjang tentang array dalam VBA bisa ditemukan dalam thread yang dimulai oleh pak Hendrik Karnadi di link ini
cmiiw,
-Miss Jan Raisin-
Pada 29 September 2013 21.39, neza ibaneza <nezaibaneza@
>
>Assalamualaikum
>Salam B-Excel,
>Dear All Master,
>
>
>
>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>
>
>mohon pencerahannya.
>
>
>file terlampir
>
>
>best regards
>Neza
>
>
>
Sun Sep 29, 2013 11:00 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
assalamualaikum Mr. KID
fitur advanced filter baru bagi saya...
apa bisa dikasih link sampelnya..
salam
Neza
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 30 September 2013 9:38
Judul: Re: [belajar-excel] formula array di VBA
Hai Neza,
Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA) bisa dimanfaatkan.
Wassalam,
Kid.
2013/9/29 neza ibaneza <nezaibaneza@yahoo.co.id>
>
>Assalamualaikum
>Salam B-Excel,
>Dear All Master,
>
>
>
>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>
>
>mohon pencerahannya...
>
>
>file terlampir
>
>
>best regards
>Neza
>
fitur advanced filter baru bagi saya...
apa bisa dikasih link sampelnya..
salam
Neza
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Senin, 30 September 2013 9:38
Judul: Re: [belajar-excel] formula array di VBA
Hai Neza,
Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA) bisa dimanfaatkan.
Wassalam,
Kid.
2013/9/29 neza ibaneza <nezaibaneza@
>
>Assalamualaikum
>Salam B-Excel,
>Dear All Master,
>
>
>
>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>
>
>mohon pencerahannya.
>
>
>file terlampir
>
>
>best regards
>Neza
>
Mon Sep 30, 2013 12:27 am (PDT) . Posted by:
"Jan Raisin"
hai Neza,
salah satu contoh penggunaan Advanced Filter bisa dilihat pada link berikut
ini<http://mugi.or.id/blogs/arhiez/archive/2008/12/07/manajemen-data-pada-microsoft-excel-2007-menyaring-data-dengan-advanced-filter.aspx>
Salam,
-Miss Jan Raisin-
Pada 30 September 2013 11.40, neza ibaneza <nezaibaneza@yahoo.co.id>menulis:
> **
>
>
> assalamualaikum Mr. KID
> fitur advanced filter baru bagi saya...
> apa bisa dikasih link sampelnya..
>
> salam
> Neza
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Senin, 30 September 2013 9:38
>
> *Judul:* Re: [belajar-excel] formula array di VBA
>
>
>
> Hai Neza,
>
> Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya
> pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan
> VBA) bisa dimanfaatkan.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/29 neza ibaneza <nezaibaneza@yahoo.co.id>
>
> **
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya...
>
> file terlampir
>
> best regards
> Neza
>
>
salah satu contoh penggunaan Advanced Filter bisa dilihat pada link berikut
ini<http://mugi.
Salam,
-Miss Jan Raisin-
Pada 30 September 2013 11.40, neza ibaneza <nezaibaneza@
> **
>
>
> assalamualaikum Mr. KID
> fitur advanced filter baru bagi saya...
> apa bisa dikasih link sampelnya..
>
> salam
> Neza
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* BeExcel <belajar-excel@
> *Dikirim:* Senin, 30 September 2013 9:38
>
> *Judul:* Re: [belajar-excel] formula array di VBA
>
>
>
> Hai Neza,
>
> Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya
> pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan
> VBA) bisa dimanfaatkan.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/29 neza ibaneza <nezaibaneza@
>
> **
>
> Assalamualaikum
> Salam B-Excel,
> Dear All Master,
>
> saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti
> kode dim untuk array dan cara penulisannya dalam vba.
>
> mohon pencerahannya.
>
> file terlampir
>
> best regards
> Neza
>
>
Mon Sep 30, 2013 1:27 am (PDT) . Posted by:
"neza ibaneza" nezaibaneza
terima kasih banyak nih Miss Jan cantik...
Salam
Neza
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 30 September 2013 14:27
Judul: Re: [belajar-excel] formula array di VBA
hai Neza,
salah satu contoh penggunaan Advanced Filter bisa dilihat pada link berikut ini
Salam,
-Miss Jan Raisin-
Pada 30 September 2013 11.40, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
>
>assalamualaikum Mr. KID
>fitur advanced filter baru bagi saya...
>apa bisa dikasih link sampelnya..
>
>
>salam
>Neza
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: BeExcel <belajar-excel@yahoogroups.com>
>Dikirim: Senin, 30 September 2013 9:38
>
>Judul: Re: [belajar-excel] formula array di VBA
>
>
>
>
>
>
>
>Hai Neza,
>
>Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA) bisa dimanfaatkan.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/9/29 neza ibaneza <nezaibaneza@yahoo.co.id>
>
>
>>
>>Assalamualaikum
>>Salam B-Excel,
>>Dear All Master,
>>
>>
>>
>>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>>
>>
>>mohon pencerahannya...
>>
>>
>>file terlampir
>>
>>
>>best regards
>>Neza
>>
Salam
Neza
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Senin, 30 September 2013 14:27
Judul: Re: [belajar-excel] formula array di VBA
hai Neza,
salah satu contoh penggunaan Advanced Filter bisa dilihat pada link berikut ini
Salam,
-Miss Jan Raisin-
Pada 30 September 2013 11.40, neza ibaneza <nezaibaneza@
>
>assalamualaikum Mr. KID
>fitur advanced filter baru bagi saya...
>apa bisa dikasih link sampelnya..
>
>
>salam
>Neza
>
>
>
>________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: BeExcel <belajar-excel@
>Dikirim: Senin, 30 September 2013 9:38
>
>Judul: Re: [belajar-excel] formula array di VBA
>
>
>
>
>
>
>
>Hai Neza,
>
>Andaikan boleh tidak harus dengan formula (apalagi array), sepertinya pivot table (tanpa VBA) maupun fitur advanced filter (bisa diotomasi dengan VBA) bisa dimanfaatkan.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/9/29 neza ibaneza <nezaibaneza@
>
>
>>
>>Assalamuala
>>Salam B-Excel,
>>Dear All Master,
>>
>>
>>
>>saya lagi coba buat kode VBA formula array, tetapi saya tidak mengerti kode dim untuk array dan cara penulisannya dalam vba.
>>
>>
>>mohon pencerahannya.
>>
>>
>>file terlampir
>>
>>
>>best regards
>>Neza
>>
Sun Sep 29, 2013 7:46 pm (PDT) . Posted by:
"PRAZT" praztmath
Kok filenya tidak bisa dibuka dengan password hari ini ya Miss Jan
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+
PRAZTMATH T
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: 27 September 2013 14:39
To: belajar-excel@
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:
============
Private Sub Workbook_BeforeClos
Dim sht As Worksheet
Application.
Sheet1.Visible = xlSheetVisible
For Each sht In Worksheets
If sht.Name <> "Menu" Then
sht.Unprotect sPwd
sht.Visible = xlSheetVeryHidden
End If
Next sht
ThisWorkbook.
Application.
End Sub
Private Sub Workbook_Open(
Application.
frmLogIn.Show
End Sub
============
Private Sub cmdCancel_Click(
Unload Me
Application.
Application.
End Sub
Private Sub cmdOK_Click(
Call Pwd
End Sub
============
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"
If frmLogIn.txtPwd.
Unload frmLogIn
Application.
For Each sht In Worksheets
If sht.Visible = xlSheetVeryHidden Then
sht.Visible = xlSheetVisible
sht.Protect sPwd
End If
Next sht
Worksheets("
Else
Application.
Application.
End If
End Sub
file terlampir
-Miss Jan Raisin-
Pada 27 September 2013 11.14, hendrik karnadi <hendrikkarnadi@
<mailto:hendrikkarnadi@
Saya barusan coba ketik Password:
Jum'at%27-
Salam,
HK
_____
From: PRAZT <praztmath@gmail.
To: belajar-excel@
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]
arrSymbol(i - 1) & ""
PRAZTMATH T
From: belajar-excel@
[mailto:belajar-excel@
] On Behalf Of De Premor
Sent: 27 September 2013 08:07
To: belajar-excel@
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"%"
Kalau dibahasakan ke rumus menjadi
pwd = .Text(Now, "[$-421]
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'
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.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
Dengan bunyi eror seperti ini
PRAZTMATH T
From: belajar-excel@
[mailto:belajar-excel@
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.
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@
[mailto: <mailto:belajar-excel@
belajar-excel@
Sent: 26 September 2013 16:55
To: belajar-excel@
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@
[ <mailto:belajar-excel@
mailto:belajar-excel@
Sent: Thursday, September 26, 2013 4:45 PM
To: belajar-excel@
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.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(
Dim sht As Worksheet
For Each sht In ActiveWorkbook.
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_BeforeClos
ProtectSheets False
End Sub
Private Sub Workbook_Open(
ProtectSheets True
End Sub
'=======
From: <mailto:belajar-excel@
[ <mailto:belajar-excel@
mailto:belajar-excel@
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.
@_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(
Dim sht As Worksheet
For Each sht In ActiveWorkbook.
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@
[mailto: <mailto:belajar-excel@
belajar-excel@
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[
zainul_ulum@
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.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(
Dim sht As Worksheet
For Each sht In ActiveWorkbook.
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_BeforeClos
ProtectSheets False
End Sub
Private Sub Workbook_Open(
ProtectSheets True
End Sub
'=======
From: <mailto:belajar-excel@
[mailto: <mailto:belajar-excel@
belajar-excel@
Sent: Thursday, September 26, 2013 2:30 PM
To: <mailto:belajar-excel@
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@
[mailto: <mailto:belajar-excel@
belajar-excel@
Sent: 26 September 2013 14:21
To: <mailto:belajar-excel@
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@
[mailto: <mailto:belajar-excel@
belajar-excel@
Sent: Thursday, September 26, 2013 2:12 PM
To: <mailto:belajar-excel@
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-
bisanya Kamis$26-09-
pwd = .Text(Now, "[$-421]
Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-
password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]
arrSymbol(i - 1) & "dd-mm-
arrSymbol(i - 1) & "dd-mm-