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 han
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 terba
Bisa kok.
Format password untuk formnya:
ddd diikuti @untuk senin kayanya lalu dd-mm-
Wassalam,
Kid.
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
)
>
> ProtectSheets False
>
> End Sub
>
> Private Sub Workbook_Open()****
>
> ProtectSheets True****
>
> End Sub
>
> '===
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-
elajar-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
'==
==
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
.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
>
> Pri
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>
Subje
cel@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
. 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
> ** **
>
> *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
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
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@yahoo
rom: 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
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
alf 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&q
drik 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"
r 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, "[$-
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]y
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
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
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-
ot; & 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] pas
.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 dibu
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)
xcel@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 o
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.w
nul_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 mem
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 | denga
30 matches
Mail list logo
