MS ACCESS MAILING LIST: Re: [belajar-access] TransferSpreadsheet acExport utk worksheet yg ter-protect

Friday, March 25, 2011

Re: [belajar-access] TransferSpreadsheet acExport utk worksheet yg ter-protect

Tengkyu mas...
Maksud saya excelnya sdh terprotect, gimana caranya proses export ke excel tsb tetap bisa .... btw coding yg mas kasih itu ditulis di Vba accessnya atau
di vba excelnya mas...?
Regards
Hendra

From: "hasimnurhsm@yahoo.com" <hasimnurhsm@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Fri, March 25, 2011 4:00:17 PM
Subject: Re: [belajar-access] TransferSpreadsheet acExport utk worksheet yg ter-protect

waduh mas. hendra mungkin cara saya agak ribet nich...tp siapa tahu para suhu ada yang lebih simple..caranya sbb:

pertama pake rumus export biasa spt ini:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Bkup_Ctrl", "G:\Stuff.xls", True

kedua secara program kita buka lagi file excelnya, baru kita kasih protect/password sheetnya spt ini:

Dim oxl As Object
Dim oexcel As Object
Dim sfullpath As String
Dim spath As String

Set oxl = CreateObject("excel.application")
sfullpath = "G:\Stuff.xls"
    With oxl
        .Visible = False
        .Workbooks.Open (sfullpath)
        For I = 1 To .Sheets.Count
            nmsheet = .Sheets(I).Name
            .Sheets(nmsheet).Protect ("cobaaja")
        Next I
    End With

    oxl.Save
    oxl.Quit

silahkan disesuaikan dengan kebutuhan mas. h
endra

salam

Nurhasim Hasan

--- On Mon, 21/3/11, Hendra Agestha Hamid <the_agestha@yahoo.com> wrote:

From: Hendra Agestha Hamid <the_agestha@yahoo.com>
Subject: [belajar-access] TransferSpreadsheet acExport utk worksheet yg ter-protect
To: belajar-access@yahoogroups.com
Received: Monday, 21 March, 2011, 8:58 PM

Dear warga milis,...

Bagaimana caranya kita melakukan TransferSpreadsheet acExport tapi worksheet di excel tsb kita set terprotect dgn sebuah password..?

Terima kasih
Regards
Hendra