Mohon maaf emailnya berantakan, saran dari Mr. Kid sudah saya coba tapi tetep gak berhasil, kalau dicoba tersendiri dengan ukuran file yang kecil kode tersebut bisa jalan dan berhasil ketika workbook dibuka dalam kondisi macro di disabled maka file dapat tershared. namung jika saya pakai untuk file yang ukurannya besar tidak berhasil. dari pengamatan saya proses Saving berjalan terputus tidak sampai mentok. Ukuran file yang saya buat 3,5 byte. mohon pemecahanya bersama-sama!
Pada 28 Oktober 2014 16.51, 'Mr. Kid' [email protected] [belajar-excel] < [email protected]> menulis: > > > hehehe... > kok bisa ya bentuk emailnya jadi susah dibaca. > > ya wislah coba baris tentang save as tidak usah menyertakan file > formatnya. Misal : > thisworkbook.saveas namafilenya, accessmode:=xlshared 'save jadi nama > tertentu dalam namafilenya dengan mode ter-share > > thisworkbook bisa diubah menjadi activeworkbook jika memang sedang dalam > keadaan aktif. > > Wassalam, > Kid. > > > > > > > > 2014-10-26 15:02 GMT+11:00 Walsoyo [email protected] [belajar-excel] < > [email protected]>: > >> >> >> 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" 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 >> > > >
