Request code for VB.NET form VBA

See more:

VB

Dear sir / mam

i have an code in excel ( VISUAL BASIC FOR APPLICATION ), i had tried a lot to convert that code to visual basic.net but i had failed , and ever time i got error

so i request you to provide me the code in vb.net for the vba code


If Not ActiveWorkbook.MultiUserEditing Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Name, accessmode:=xlShared
Application.DisplayAlerts = True
MsgBox "Now Shared"
End If

thankyou

What I have tried:

Dim xlApp As excel.Application
Dim xlWorkBook As excel.Workbook
Dim xlWorkSheet As excel.Worksheet
xlApp = New excel.Application
xlWorkBook = xlApp.Workbooks.Open("D:\program gann\NEST.xls")
xlWorkSheet = xlWorkBook.Worksheets("NEST-Sheet1")

ActiveWorkbook = xlWorkBook

ActiveWorkbook.SaveAs(ActiveWorkbook.Name, xlWorkSheet.accessmode := xlShared)