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 soyomak...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> 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
>
>
