Sharework book with working all VBA code

[Jagat Pavasia]

hi, dear sir,
I have many VBA code in my worksheet, now i want to share my workbook for 2 Computer. So, the both computer can work on workbook at the same time.
but when i share it, some of VBA code stopped working, any other idea to share workbook with VBA code ?


Please suggest me. My VBA code is Something like below.

Private Sub Worksheet_Change(ByVal Target As Range)
'   Code goes in the Worksheet specific module
    Dim rng As Range
    '   Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")
        Set rng = Target.Parent.Range("b:b,f:f,m:m")
        '   Only look at single cell changes
            If Target.Count > 1 Then Exit Sub
        '   Only look at that range
            If Intersect(Target, rng) Is Nothing Then Exit Sub
        '   Action if Condition(s) are met (do your thing here...)
            If Target.Value = "**" Then Target.Value = Format(Date, "mm/dd/yyyy")
            
    End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = True
End Sub

Sub ClearAllFilter()
'
' ClearAllFilter Macro
'

'
    ActiveSheet.Unprotect
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFiltering:=True
    
End Sub

Private Sub SpinButton1_SpinDown()
On Error Resume Next
Range("b6").Value = Range("b6").Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
Range("b6").Value = Range("b6").Value + 1
End Sub

Sub GhatJama()
'
' GhatJama Macro
'

'
    ActiveSheet.Unprotect
    On Error Resume Next
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$5:$R$9000").AutoFilter Field:=6, Criteria1:="<>"
    ActiveSheet.Range("$A$5:$R$9000").AutoFilter Field:=13, Criteria1:="="
    On Error GoTo 0
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFiltering:=True
        
End Sub

 

[jasonb75]

some of VBA code stopped working

Your question is too vague, unless you specify which parts are and are not working you're unlikely to get much of an answer.

Is the problem on one computer or both? If only one then either events are set to false or security is preventing the code from running?

If the problem is on both then a more detailed explanation will be needed, but before explaining more please read and try the following.

There are a number of things that you can not do in a shared workbook, this is not limited to vba, but manual process as well. The link below tells you the things that you can not do in a shared workbook. Scroll to the bottom of the page then open the dropdown for 'Unsupported Features'

About the shared workbook feature - Microsoft Support

Shared Workbooks is an older feature that has been replaced by co-authoring. This article explains the older feature, but we recommend using co-authoring instead.

support.office.com

If there is something in your code that you can not find in that list, then try to carry out the task without using vba? If you are not able to complete the task then it is unsupported in shared workbooks, if you are able to do it then we would need to know what that task is and what is happening when you try to run the code, if nothing happens, or the wrong thing happens?

If the code crashes, then which line is causing the problem?