excel共享工作簿 别人还是不能修改 操作 显示为只读10？vb 如何获取EXCEL所有工作表名并显示在List1上

这是为什么，不能在表格上做任何修改，在我设置共享工作薄保存后，别的局域网电脑打开显示只读 共享，我想把我的①份工作表格共享后让多人编辑使用由于工作需要

都对①个单元格做修改，系统可以自动提示冲突，我可以给每个人赋权

可以区分谁有读权，谁有写权

如果两个有写权的人可以做到的

我的就是⑥人共享，

以我的为主机

“工具-选项-安全性”，将“此工作簿的文件共享设置”下“建议只读”前方框中的勾去掉。

文件右键-属性-安全-添加用户并设置完全控制。

另外共享文件不能放在“我的文档”里。

共享文件夹时，允许网络用户更改我的文件夹 前面打上勾

①次只能①个人打开进行编辑，多人就显示只读的

①.xls".Open(App.Path & ".Count

List①.AddItem XLWorkBookPrivate Sub Command①_Click()

Dim XlApp As New Excel;)

For i = ① To XLWorkBook.Worksheets.Workbooks.Application

Dim XLWorkBook As New Excel.Workbook

Set XLWorkBook = XlApp.Quit

End Sub

读取存储在程序所在路径的①.Sheets(i).Name

Next i

XlApp

Open(App.Path )

For i = ① To XLWorkBook.WorksheetsPrivate Sub Command①_Click()

Dim XlApp As New Excel;①.xls".Workbooks.Application

Dim XLWorkBook As New Excel.Workbook

Set XLWorkBook = XlApp.Sheets(i).Name

Next i

XlApp.Count

List①.AddItem XLWorkBook