More Help with Save As macro

[Logan]

Seeing Franks response to Fernando's question about data
base , made think about my Save As macro.
Once the new file is created and saved, more than one
person may need to access and add data, at the same time.

Now to my question, is it possible to have the macro change
the new file to a shared workbook when it is saved?

Here is the macro as it stands.

Thanks

Sub Save_As()
Dim FName1, FName2, FName3, Fullname
FName1 = "CK0"
FName2 = Range("AU2").Value & "-"
FName3 = Range("J4").Value
Fullname = FName1 & FName2 & FName3
Application.DisplayAlerts = False
ChDir "C:\NewFile"
ActiveWorkbook.SaveAs Fullname, FileFormat _
:=xlNormal, CreateBackup:=False
MsgBox "Saved to " & CurDir & " - " & Fullname
End Sub

 

[Frank Kabel]

Hi
change the line
ActiveWorkbook.SaveAs Fullname, FileFormat _
:=xlNormal, CreateBackup:=False

to
ActiveWorkbook.SaveAs Fullname, FileFormat _
:=xlNormal, CreateBackup:=False, _
Accessmode:= xlShared

 

[Logan]

Thanks again Frank

-----Original Message-----
Hi
change the line
ActiveWorkbook.SaveAs Fullname, FileFormat _
:=xlNormal, CreateBackup:=False

to
ActiveWorkbook.SaveAs Fullname, FileFormat _
:=xlNormal, CreateBackup:=False, _
Accessmode:= xlShared


--
Regards
Frank Kabel
Frankfurt, Germany

.