RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

[zainul_ulum[at]yahoo[dot]com]

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 ™