Minggu, 26 Oktober 2014

[belajar-excel] Digest Number 3156

3 Messages

Digest #3156
1
2a
Re: mambuat macro nota by "toni Sulaeman"
3
Pencarian data diweb dgn suber excel????? by "Shenly" shenly_excelmania

Messages

Sun Oct 26, 2014 12:40 am (PDT) . Posted by:

"Walsoyo"

Mohon bantuan bagaimana agar kode VBA saya bisa jalan saat keluar dari workbook pada mode protect sharing workbook. permasalahan yang terjadi jika setelah kode penyimpanan FilesaveAs... kemudian dilanjutkan dengan Excel.Application.Quit. Workbook saya setelah dibuka kembali dalam kondisi macro di disabled ternyata shared workbook tidak protect. tolong dilengkapi kode saya agar shared workbook protect saat kondisi macro dinonaktifkan dan unsharing workbook saat macro enabled Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim relatifPath As String Dim sh As Worksheet Dim shtrans As Worksheet Application.EnableEvents = True Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.IgnoreRemoteRequests = False Application.EnableCancelKey = xlDisabled ThisWorkbook.VBProject.VBE.MainWindow.Visible = False Application.OnKey "%{F11}" If Not ActiveWorkbook.MultiUserEditing Then Set shtrans = ThisWorkbook.Sheets("TRANSAKSI") shtrans.Activate shtrans.Visible = -1 shtrans.Select For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TRANSAKSI&quot; Then sh.Visible = 2 End If Next sh Range("A1").Select Application.DisplayAlerts = False ActiveWorkbook.KeepChangeHistory = False ActiveWorkbook.ProtectSharing Sharingpassword:="pass"; relatifPath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name ActiveWorkbook.SaveAs Filename:=relatifPath, FileFormat:= _ xlExcel12, AccessMode:=xlShared Application.DisplayAlerts = True End if Excel.Application.Quit End Sub dan pada saat workbook dibuka macro tidak jalan Private Sub Workbook_Open() 'If ActiveWorkbook.MultiUserEditing Then Application.DisplayAlerts = False Application.DisplayAlerts = False ActiveWorkbook.UnprotectSharing Sharingpassword:="pass"; Application.DisplayAlerts = True Application.DisplayAlerts = True 'End If End Sub

Sun Oct 26, 2014 12:41 am (PDT) . Posted by:

"toni Sulaeman"

mohon batuan untuk dibuat macro, saat membuat nota terhubung ke transaksi



Sun Oct 26, 2014 2:14 am (PDT) . Posted by:

"Shenly" shenly_excelmania

halo master...mau tanya..gimna ya caranya membuat pencarian data diweb dengan sumebr datanya file excel yg kita buat???
kalo sederahananya sih vlookup tapi di web hehehhe
 Salam
Shenly ^^*
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com

berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar