RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
ooo iya, dah bisa Mis Jan, heemjadi tau kelebihan dan kelemahan dari masing-masing file yang sudah dibahasthank's Mis Jan PRAZTMATH T From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Jan Raisin Sent: 30 September 2013 10:01 To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka oia.. Jan salah lagi.. maaf ya.. ini akibat script ini: sPwd = Format(dt, "ddd") & sChr & Format(dt, "dd-mm-") jadi akibatnya nama hari hanya diambil 3 huruf saja untuk password hari ini adalah Sen#30-09-2013 silakan dibongkar dan diperbaiki kesalahan yang ada xixixi ^_^ oia.. solusi terbaik adalah yang dijelaskan oleh mr Kid dan pak De Premor, Jan sendiri akan lebih memilih solusi beliau berdua. penyebabnya sudah dijelaskan secara detail oleh Mr Kid dan Jan pada email sebelumnya. Salam -Miss Jan Raisin- Pada 30 September 2013 09.53, Mr. Kid mailto:mr.nm...@gmail.com> > menulis: Bisa kok. Format password untuk formnya: ddd diikuti @untuk senin kayanya lalu dd-mm- Wassalam, Kid. <><>
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
oia.. Jan salah lagi.. maaf ya.. ini akibat script ini: sPwd = Format(dt, "ddd") & sChr & Format(dt, "dd-mm-") jadi akibatnya nama hari hanya diambil 3 huruf saja untuk password hari ini adalah Sen#30-09-2013 silakan dibongkar dan diperbaiki kesalahan yang ada xixixi ^_^ oia.. solusi terbaik adalah yang dijelaskan oleh mr Kid dan pak De Premor, Jan sendiri akan lebih memilih solusi beliau berdua. penyebabnya sudah dijelaskan secara detail oleh Mr Kid dan Jan pada email sebelumnya. Salam -Miss Jan Raisin- Pada 30 September 2013 09.53, Mr. Kid menulis: > ** > > > Bisa kok. > Format password untuk formnya: > ddd diikuti @untuk senin kayanya lalu dd-mm- > > Wassalam, > Kid. > > >
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
Bisa kok. Format password untuk formnya: ddd diikuti @untuk senin kayanya lalu dd-mm- Wassalam, Kid.
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
dear Prazt,
solusi yang optimal dan terbaik adalah yang sesuai dengan saran dari mr Kid
dan pak De Premor..
maaf, sebelumnya Jan tidak membaca satu per satu email dalam thread ini
jadi ada hal-hal yang terlewat dari pengamatan Jan.
apa yang disampaikan oleh mr Kid adalah benar adanya, bahwa sheet harus
dalam keadaan terproteksi saat ditutup agar isinya tidak dapat diubah
manakala vba dibongkar paksa oleh user.
jadi.. dalam kasus ini Jan juga memilih solusi dari pak De dan mr Kid.
Salam,
-MJR-
Pada 28 September 2013 23.25, De Premor menulis:
> **
>
>
> Code revisi sudah dikirim beberapa hari lalu, tapi sepertinya tidak
> selamat sampai tujuan
> berikut dikirimkan ulang, semoga kali ini masuk
>
> Difile terlampir disertakan juga untuk enkripsi tanggal sederhana
>
> Pada 28/09/2013 18:29, Mr. Kid menulis:
>
>
> 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&")
>
>
> application.screenupdating = false
> sheets("SheetPassword").visible = xlsheetvisible
>
> sheets("SheetPassword").unprotect "cekripnyaPakD"
> TmpPass = sheets("SheetPassword").range("a1").value
>
> dtCur =date
> NewPass = vhari( weekday( dtCur ) -1 ) & format$( dtCur,"DD-MM-"
> )
>
> for each Sht in worksheets
> Sht.unprotect TmpPass
> Sht.protect NewPass
> next
>
> sheets("SheetPassword").range("a1") = dtcur 'NewPass
> sheets("SheetPassword").range("a1").font.colorindex= _
> sheets("SheetPassword").range("a1").interior.colorindex
>
> sheets("SheetPassword").enableselection=unlockedcells
> sheets("SheetPassword").protect "cekripnyaPakD"
> sheets("SheetPassword").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.
>
>
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
oh begitu bunyinya.
berarti errornya yang muncul adalah berbunyi tidak bisa unprotect (karena
password untuk unprotect berbeda dengan yang sudah terpasang di sheet)
Wassalam,
Kid.
2013/9/26 PRAZT
> **
>
>
> 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-")
>
> End With
>
> PasswordKu = pwd
>
> End Function
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
>
> Dim sht As Worksheet
>
> For Each sht In ActiveWorkbook.Worksheets
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu
>
> End If
>
> Next
>
> End Sub
>
> ** **
>
> '=code ini di tulis di object workbook==
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> ProtectSheets False
>
> End Sub
>
> Private Sub Workbook_Open()****
>
> ProtectSheets True****
>
> End Sub
>
> '===
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
> ** **
>
>
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_
>
> Coba gunakan PasswordKu_ daripada PasswordKu
>
> Wassalam,
>
> Kid.
>
> ** **
>
> ** **
>
> 2013/9/26 PRAZT
>
>
>
> @_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
>
>
>
> 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-")
>
>
> 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
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
Udah saya ganti dari sht.Unprotect PasswordKu menjadi sht.Protect
PasswordKu sehingga bisa berjalan normal, makasih Mas Zain n Mr.Kid, terus
gmn pendapat mas Zain tentang pendapat Mr.Kid tadi apakah lebih baik di
kasih pemaksaan ke user untuk mengenablekan security macro atau pakai sheet
penyimpan password seperti yang Mr.Kid bilang tadi?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 16:55
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
mas Prast,
silahkan dicoba file terlampir.
thanks
-zainul-
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 4:45 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid
Kumplitannya begini dari mas Zain
'=
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya adalah
sht.Protect PasswordKu
End If
Next
End Sub
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26 September 2013 16:29
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Bukankah function yang dibuat mas Zain bernama PasswordKu_
Coba gunakan PasswordKu_ daripada PasswordKu
Wassalam,
Kid.
2013/9/26 PRAZT mailto:praztm...@gmail.com> >
@_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
dengan memaksa user harus mengenabelkan security macro (tapi masih
menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ?
@_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...
Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
kuning berikut :
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
PasswordKu
End If
Next
End Sub
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 26 September 2013 15:45
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer yang
Macro Security didisable atau belum dienablekan oleh user, maka semua sheet
dalam keadaan unprotected alias bisa diubah isinya.
Wassalam,
Kid.
2013/9/26 zainul_ulum[at]yahoo[dot]com mailto:zainul_u...@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-")
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 Su
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-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya adalah
sht.Protect PasswordKu
End If
Next
End Sub
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 26 September 2013 16:29
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Bukankah function yang dibuat mas Zain bernama PasswordKu_
Coba gunakan PasswordKu_ daripada PasswordKu
Wassalam,
Kid.
2013/9/26 PRAZT mailto:praztm...@gmail.com> >
@_Iya M.Kid, jadi user harus enable security macronya, tapi saya akali
dengan memaksa user harus mengenabelkan security macro (tapi masih
menggunakan VBA sih) ato mungkin Mr.Kid ada solusi untuk hal ini ?
@_Mas Zainul, bisa tuh coba untuk hari ini dan besok hasilnya gmn...tapi
mungkin tidak itu terjadi seperti yang dikatakan Mr.Kid...
Terus pas saat di buka file tersebut terjadi eror pada bagian per tanda
kuning berikut :
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu apakah mungkin maksudnya adalah sht.Protect
PasswordKu
End If
Next
End Sub
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 26 September 2013 15:45
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Dengan cara yang dipakai mas Prazt ini, jika file dibuka pada komputer yang
Macro Security didisable atau belum dienablekan oleh user, maka semua sheet
dalam keadaan unprotected alias bisa diubah isinya.
Wassalam,
Kid.
2013/9/26 zainul_ulum[at]yahoo[dot]com mailto:zainul_u...@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-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'===
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron
PRAZTMATH T
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba di
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
> **
>
>
> @_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
>
>
>
> 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-")
>
>
> 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-, 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-")
> 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" &
>
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
@_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 mailto:zainul_u...@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-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'===
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron
PRAZTMATH T
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
O ya maap kelebihan y di dd-mm-, 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-")
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-"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
atau master yang lain...
PRAZTMATH T
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
jawabannya
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
Oke mas Zain.
Di website milis di posting :
http://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/28024
Jangan lupa menambahkan bagian untuk save workbook-nya sebelum End Sub
setiap event yang ada cekrip ubah password nya
Wassalam,
Kid.
2013/9/26 zainul_ulum[at]yahoo[dot]com
> **
>
>
> berarti saya kurang lengkap baca emailnya PakD
>
> terimakasih, saya baca-baca lagi emailnya PakD.
>
> ** **
>
> wasssalam
>
> -zainul-
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Thursday, September 26, 2013 4:07 PM
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
> ** **
>
>
>
> Kan idenya sudah ada tadi pagi
>
> lalu sudah dikembangkan oleh PakD
>
> Yang dibutuhkan dari pengembangan PakD adalah proses save sebelum end sub
> di event workbook open
>
> Bila perlu, saat akan close juga dilakukan hal yang sama, siapa tahu tadi
> dibuka jam 23:00 dan ditutup jam 03:00 (sudah ganti hari).
>
> :)
>
> Konsepnya sederhana saja, yaitu :
> 1. File yang tersimpan selalu dalam keadaan terproteksi setiap sheetnya.**
> **
>
> 2. Ada nilai password atau nilai petunjuk yang bisa digunakan untuk
> menyusun password disuatu tempat yang tidak hilang dan tidak bisa dijangkau
> user.
>
> 3. Saat buka atau tutup file, selalu unprotect dengan password yang
> tersimpan atau susun password dengan petunjuk yang tersimpan (nomor 2) lalu
> proteksi dengan susunan password baru disertai menyimpan nilai password
> baru tersebut atau nilei petunjuk penyusunannya untuk mengubah nilai nomor 2
>
>
> tempat menyimpannya ndak mesti di cell yang ada di worksheet seperti yang
> dicontohkan PakD. Bisa diletakkan dimana-mana, cukup dikreasikan dengan
> kreatifitas yang ada. Paling bagus kalau yang disimpan adalah petunjuk
> penyusunan password nya (semacam hash data gitu). Untungnya, contoh yang
> disimpan di sheet sudah disediakan PakD (ty PakD). Misal disimpan di
> userform atau di textfile, atau di registri windows kali (ops..)
>
> ** **
>
> hehehe...
>
> kira-kira gitu kali ya
>
> ** **
>
> met berkreasi
>
> Wassalam,
> Kid.
>
> ** **
>
>
>
> ** **
>
> ** **
>
> 2013/9/26 zainul_ulum[at]yahoo[dot]com
>
>
>
> betul sekali Mr. Kid****
>
> atau ada ide yang lain?****
>
> ****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Thursday, September 26, 2013 3:45 PM
> *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
>
>
>
> 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-")
>
>
> 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@yahoogrou
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
berarti saya kurang lengkap baca emailnya PakD
terimakasih, saya baca-baca lagi emailnya PakD.
wasssalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Thursday, September 26, 2013 4:07 PM
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Kan idenya sudah ada tadi pagi
lalu sudah dikembangkan oleh PakD
Yang dibutuhkan dari pengembangan PakD adalah proses save sebelum end sub di
event workbook open
Bila perlu, saat akan close juga dilakukan hal yang sama, siapa tahu tadi
dibuka jam 23:00 dan ditutup jam 03:00 (sudah ganti hari).
:)
Konsepnya sederhana saja, yaitu :
1. File yang tersimpan selalu dalam keadaan terproteksi setiap sheetnya.
2. Ada nilai password atau nilai petunjuk yang bisa digunakan untuk menyusun
password disuatu tempat yang tidak hilang dan tidak bisa dijangkau user.
3. Saat buka atau tutup file, selalu unprotect dengan password yang
tersimpan atau susun password dengan petunjuk yang tersimpan (nomor 2) lalu
proteksi dengan susunan password baru disertai menyimpan nilai password baru
tersebut atau nilei petunjuk penyusunannya untuk mengubah nilai nomor 2
tempat menyimpannya ndak mesti di cell yang ada di worksheet seperti yang
dicontohkan PakD. Bisa diletakkan dimana-mana, cukup dikreasikan dengan
kreatifitas yang ada. Paling bagus kalau yang disimpan adalah petunjuk
penyusunan password nya (semacam hash data gitu). Untungnya, contoh yang
disimpan di sheet sudah disediakan PakD (ty PakD). Misal disimpan di
userform atau di textfile, atau di registri windows kali (ops..)
hehehe...
kira-kira gitu kali ya
met berkreasi
Wassalam,
Kid.
2013/9/26 zainul_ulum[at]yahoo[dot]com
betul sekali Mr. Kid
atau ada ide yang lain?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Thursday, September 26, 2013 3:45 PM
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
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-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'===
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
O ya maap kelebihan y di dd-mm-, 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-")
Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka
password sebelum saya merubah kode
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
Kan idenya sudah ada tadi pagi
lalu sudah dikembangkan oleh PakD
Yang dibutuhkan dari pengembangan PakD adalah proses save sebelum end sub
di event workbook open
Bila perlu, saat akan close juga dilakukan hal yang sama, siapa tahu tadi
dibuka jam 23:00 dan ditutup jam 03:00 (sudah ganti hari).
:)
Konsepnya sederhana saja, yaitu :
1. File yang tersimpan selalu dalam keadaan terproteksi setiap sheetnya.
2. Ada nilai password atau nilai petunjuk yang bisa digunakan untuk
menyusun password disuatu tempat yang tidak hilang dan tidak bisa dijangkau
user.
3. Saat buka atau tutup file, selalu unprotect dengan password yang
tersimpan atau susun password dengan petunjuk yang tersimpan (nomor 2) lalu
proteksi dengan susunan password baru disertai menyimpan nilai password
baru tersebut atau nilei petunjuk penyusunannya untuk mengubah nilai nomor 2
tempat menyimpannya ndak mesti di cell yang ada di worksheet seperti yang
dicontohkan PakD. Bisa diletakkan dimana-mana, cukup dikreasikan dengan
kreatifitas yang ada. Paling bagus kalau yang disimpan adalah petunjuk
penyusunan password nya (semacam hash data gitu). Untungnya, contoh yang
disimpan di sheet sudah disediakan PakD (ty PakD). Misal disimpan di
userform atau di textfile, atau di registri windows kali (ops..)
hehehe...
kira-kira gitu kali ya
met berkreasi
Wassalam,
Kid.
2013/9/26 zainul_ulum[at]yahoo[dot]com
> **
>
>
> betul sekali Mr. Kid
>
> atau ada ide yang lain?
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Thursday, September 26, 2013 3:45 PM
> *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
>
>
>
> 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-")
>
>
> 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-, tapi coba buka sheet 3 di file yang
> terakhir tadi, passwordnya tidak bisa dibuka den
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
betul sekali Mr. Kid
atau ada ide yang lain?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Thursday, September 26, 2013 3:45 PM
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
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-")
End With
PasswordKu = pwd
End Function
Sub ProtectSheets(ByVal bolProtect As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If bolProtect Then
sht.Protect PasswordKu
Else
sht.Unprotect PasswordKu
End If
Next
End Sub
'===
'=code ini di tulis di object workbook==
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ProtectSheets False
End Sub
Private Sub Workbook_Open()
ProtectSheets True
End Sub
'===
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Berarti harus di unprotect semua dulu mas Zainul?, tapi nanti kalau berganti
hari kira-kira passwordnya ikutan berganti undak ya?ok Mr. Zainul, Suwun
dah membantu+koreksi, Syukron Katsiron
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
O ya maap kelebihan y di dd-mm-, 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-")
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-"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid
atau master yang lain...
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
jawabannya sama dengan Pak HK.
terimakasih koreksinya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")
Salam,
HK
From: PRAZT
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@yahoog
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
> **
>
>
> 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-")
>
> 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-, 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-")
> 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-"). 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-y")
>
> Salam,
> HK
>
>
>
>
> From: PRAZT
> 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”,
> jad
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
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-")
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-, 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-")
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-"). 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-y")
Salam,
HK
From: PRAZT
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_u...@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 fun
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> [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT Sent: Thursday, September 26, 2013 2:12 PM To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka O ya maap kelebihan y di dd-mm-, 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-") 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-"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid atau master yang lain... PRAZTMATH ™ From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com Sent: 26 September 2013 13:34 To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka jawabannya sama dengan Pak HK. terimakasih koreksinya… From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi Sent: Thursday, September 26, 2013 12:33 PM To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka Ikutan njawab. Barangkali karena kelbihan sau "y". pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-y") Salam, HK _ From: PRAZT mailto:praztm...@gmail.com> > To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Sent: Thursday, 26 September 2013, 12:23 Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment] Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan dibuka lagi kok passwordnya masih “Kamis$26-09-13”(tanpa tanda petik) yang seharusnya “Kamis$26-09-2013”, jadi pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect dulu...mohon penjelasa mas Zainul. From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com Sent: 26 September 2013 10:47 To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment] terlampir file yang sudah saya coba... -----Original Message- From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_u...@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> [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT Sent: Thursday, September 26, 2013 9:47 AM To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka Malah tidak jalan mas zainul From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com Sent: 26 September 2013 08:44 To: belajar-excel@yahoogroups.com <mailto:be
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-, 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-")
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-"). 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-y")
Salam,
HK
_____
From: PRAZT
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_u...@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")
'men
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
O ya maap kelebihan y di dd-mm-, 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-")
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-"). 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>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-y")
Salam,
HK
_
From: PRAZT mailto:praztm...@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
dibuka lagi kok passwordnya masih
“Kamis$26-09-13”(tanpa tanda petik) yang seharusnya “Kamis$26-09-2013”, jadi
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
terlampir file yang sudah saya coba...
-Original Message-
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_u...@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>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya…
‘===
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function ‘================
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
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-y")
Salam,
HK
_
From: PRAZT
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_u...@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 ™
<><>
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-y")
Salam,
HK
From: PRAZT
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 terlampirterus 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_u...@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 ™
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_u...@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>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya.
'===
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
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
password-protectsheet.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
Untuk hari ini passwordnya:
Kamis$26-09-13
sdh OK.
Salam,
HK
From: zainul_ulum[at]yahoo[dot]com
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 10:47
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_u...@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 ™
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_u...@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]
Assalammualaikum...
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
password-protectsheet.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
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]
Assalammualaikum...
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
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>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
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 passwordnyaSelasa#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
Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
mungkin bisa dibuat satu sheet penyimpanan password yang diset very
hidden (jadi yang bisa menampilkannya hanya VBA), dimana setiap kali
selesai ngeset password, passwordnya disimpan disitu, yang mana
kemudian dari situ setiap kali akan mengganti password
(meng-Unprotect) tinggal ambil saja dari sheet tersebut, kemudian
ganti dengan pass baru selanjut password baru di simpan lagi kesitu.
Dim TmpPass as string, NewPass as string, Sht as
worksheet, vhari as Variant
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
application.screenupdating = false
sheets("SheetPassword").visible = xlsheetvisible
TmpPass = sheets("SheetPassword").range("ZZ999")
NewPass = vhari( weekday( date ) -1 ) & format$(
date,"DD-MM-" )
for each Sht in worksheets
Sht.unprotect TmpPass
Sht.protect NewPass
next
sheets("SheetPassword").range("ZZ999") = NewPass
sheets("SheetPassword").visible = xlsheetveryhidden
application.screenupdating
= true
Rgds,
[dp]
On 26-09-2013 8:51, Mr. Kid wrote:
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-" )
sht.protect vhari( weekday( date ) -1 )
& format$( date,"DD-MM-" )
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
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
RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka
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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
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-" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-" )
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 mailto:praztm...@gmail.com> >
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 passwordnyaSelasa#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
<><><><>
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-" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-" )
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
> 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 passwordnyaSelasa#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 ™
>
> ** **
>
<><><>
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]
Assalammualaikum...
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
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] Assalammualaikum... 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
