Question

求一个方法或软件达到固定word/excel里面的部分内容，可以多人使用，但能生成唯一编号

如题，是否有什么方法或软件可以固定一个word或excel的表格里面的部分内容，供多人使用，并在word/excel固定位置生成唯一有序的编号，比如第一个使用的编号是001，那么第二个就是002，并且能通过网络来同步。

Answer 1

你要说清楚多人使用的情形是什么？简单点说，多人使用，有两种描述：
一种是：把这份EXCEl/WORD文件，放到大家都是读写权限的网络盘中，每次大家都是打开并使用这同一份EXCEl/WORD文件
另一种是：大家都有这份EXCEl/WORD文件的COPY档存放在电脑本地盘。
如果是第一种，实现起来较容易，但缺点是文件使用权限有干扰（即不能同时打开这份文件，否则编号容易出错）；如果是第二种，则情形稍微复杂些，但其优点是既能实现连续编号功能，同时又互不干扰。
以上两种情形都涉及使用VBA宏命令才能达成你想要的功能

追问

比如A B 两人分别使用同一个WORD/EXCEL文件，但是A先用，A生成一个编号01，B再用，就生成一个编号02，这个文件的编号可以遵循一定的规则，比如A,B的开始时间。

追答

Sub 文件另存并自动编号()
    '拷贝文件，并添加“文件自动编号”作为文件名的尾缀来重命名拷贝文件
    '以系统日期的“年月日时分秒”作为自动编号的流水序列号来区分其唯一性
    Dim OldFileName As String, QZ As String, SrNo As String, NewFileName As String, Bk As Workbook
    OldFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare))
    QZ = "CGDD" '设置固定的前缀，可改为你想要的前缀
    SrNo = Application.WorksheetFunction.Text(Date, "YYMMDD") & Application.WorksheetFunction.Text(Time, "hhmmss") '根据当前日期时间计算序列号
    NewFileName = ThisWorkbook.Path & "\" & OldFileName & "-" & QZ & SrNo & ".xlsx"
    Set Bk = Workbooks.Add
    ThisWorkbook.Activate
    Sheet1.Range("G1").Value = QZ & SrNo '将计算好的文件编号填写到相应的单元格，此处是填写在了G1单元格，可以将G1改为你想填写的单元格名称
    ThisWorkbook.Save
    Sheet1.Select
    Sheet1.Copy Before:=Bk.Sheets(1)
    Bk.SaveAs NewFileName
    Bk.Close
    Set Bk = Nothing
    ThisWorkbook.Activate
    MsgBox "文件 " & OldFileName & "-" & QZ & SrNo & ".xlsx" & " 已经创建，请在当前文件夹内查找，谢谢使用！"
End Sub

Answer 2

在EXCEL中将文件存为共享文件,将编号列的格式设置成禁止输入,只在编号列里设置公式,比如A列,在A1输入起始编号1,A2中输公式=A1+1,那共享修改后的编号就是固定的,但这个只能争对保存了数据的修改进行编号

Answer 3

可以做到的， 目前流行的Excel server软件就可以,该软件是广州的一个软件公司开发的，广泛的用于财务，生产，及其他管理， 你的功能软件里有， 通过百度搜索，可以免费下载试用版。

Answer 4

软件下载地址记得安装后关注，软件开发商等方面进行设置了权限管理系统教授在课堂教学中学习的基础知识第一☝️。团结起来的软件工程建设公司负责人说、软件工程建设情况是在全国范围内进行中正式启动、在一起的时候我们自己都在做那样的事莫过于在你面前永远都不会忘记你们在你身边的人都会有那么一个人。

Answer 5

你