Please help
I want a multi editing share workbook, but sharing my way of doing hasn't worked
Sub Bagikan()
FolderKOLEKTOR
Stg = HostLap
Sheets("WSHT").Name = "Pinjaman"
Range("D24").Select
Sheets("Pinjaman").Move
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=Stg & "Kolektor\Pinjaman.xlsx", _
accessMode:=xlShared
End If
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
I want a multi editing share workbook, but sharing my way of doing hasn't worked
Sub Bagikan()
FolderKOLEKTOR
Stg = HostLap
Sheets("WSHT").Name = "Pinjaman"
Range("D24").Select
Sheets("Pinjaman").Move
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=Stg & "Kolektor\Pinjaman.xlsx", _
accessMode:=xlShared
End If
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub