作者：乔山办公网日期：
返回目录：excel表格制作
工具/原材料
excel2016版、电脑。
1、打开电脑找到并点击excel2016版的软件；
2、打开excel2016软件后，为了更百好的举例先编辑好度任意的表格和文字内容；
3、编辑好文字和表格以后，此时先选中“表一”的所有表格内容；
4、选中好表格一专的内容以后，在工具栏的上方找到并点击”视图“的命令；
5、点击视图的命令以后，在下方找到并点击“冻结窗口”下拉选项的属“冻结拆分窗格”即可完成。
打开你的excel表格，把要锁定的工作表区域选定或者你选中整个工作表，如图；
点击excel表格复工具栏的“开始”菜制单，选择“格式”下面的小三角形，如图知；
在下拉菜单中选中“锁定工作表”，然后点“设置单元格”，如图；
进入设置单元格界道面，点“保护”菜单，在“锁定”和“隐蔽”前的的方框上打勾，点确定，操作如图；
点击excel表格工具栏的“开始”菜单，选择“格式”下面的小三角形，选择“保护工作表”，如图；
进入设置保护工作表，输入密码，把所有选项全打勾，再确定，重新输入一样的密码，点确定退出就可以了，如图；
你是要拆分成工作簿啊，还是拆分到同一个工作簿的不同表？
下面这段代码，将按照代码所在表D列数据进行拆分，D列相同的放到一个工作簿中，工作簿名称为该7a686964616fe59b9ee7ad94338单元格值。
Sub 拆分() 'D列相同的保存到一个工作簿
Dim I As Long, J As Long, S As String
Dim Str As String, xlbook As Workbook
Dim N As Long, R As Long, M As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = 1 To Range("D65536").End(xlUp).Row
Str = Range("D" & I).Text
If InStr(S, Str) = 0 And Str <> "" Then
S = S & Str & " "
N = N + 1
Workbooks.Add xlWBATWorksheet
Rows(I).Copy ActiveSheet.Rows(N)
R = Range("D:D").Find(Range("D" & I)).Row
M = R
Do
R = Range("D:D").FindNext(Range("D" & R)).Row
If R = M Then Exit Do
N = N + 1
Rows(R).Copy ActiveSheet.Rows(N)
Loop
ActiveWorkbook.SaveAs "D:\" & Str & ".XLS" '保存
ActiveWorkbook.Close
N = 0
Str = ""
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "完成！"
End Sub
这个你可以选择保护共作表啊,你修改不了里面的内容.自己自己解除密码才可以在“工具”→保护→保护工作表.然后输入个密码。这样都怎么拉都不变。别人也修改不了你的东西