我们日常办公使用Excel表格，单元格内容是可以任意编辑的。如果我们需要对数据进行保护，使数据不被修改，可以使用表格的锁定单元格功能。今天，小编就教各位表格中锁定单元格功能的小技巧！
首先，打开需要操作的Excel表格，按组合键“Ctrl+A”全选单元格，单击鼠标右键，选择【设置单元格格式】：
然后，在弹出的单元格格式面板中，切换到【保护】】页面，取消勾选【锁定】选项，然后按【确定】键：
接着，选定需要锁定的单元格，单击鼠标右键，选中【设置单元格格式】选项：
在弹出的单元格格式面板，切换到【保护】页面，选择勾选【锁定】选项，按【确定】键：
最后，返回Excel表格，切换到【审阅】页面，选择【保护工作表】选项。在弹出面板中按【确定】即可：
我们对锁定的单元格进行编辑时，就会出现单元格受保护的提示，保证我们的单元格内容不被修改：
那么，在Excel表格技巧中，使用表格锁定单元格功能的操作方法，是不是非常简单呢，你学会了吗？

在Excel表格中，有一个特别的功能，就是可以把不想编辑的内容进行锁定，然后把可以编辑的单元格设置为活动状态。
这个功能在一些操作当中很有用，特别是为使一些固定格式或者内容不想被误操作修改的时候。
那么如何应用vba代码来设置可编辑区域呢？
下面用一个例子来讲解一下关于单元格区域可编辑状态设置和修改、删除等一些基本操作。
AllowEditRange
想要实现这个功能，需要用到一个对象：AllowEditRange
此对象包含三个方法：
ChangePassword‘修改保护密码
Delete'删除对象
Unprotect'解除保护
举例
例子中，我们将用到这三个方法，分别对单元格区域进行设置操作。
分别做了五个按钮，设置可编辑区域、修改密码、删除编辑区域、设置表保护、取消表保护
整个操作过程中，实现了对表内任意选择单元格进行可编辑设置，取消和删除功能。
例如，当我们需要对姓名一列进行可编辑设置的时候，就选择姓名列单元格，然后单击"设置可编辑区域"按钮，输入一个密码，这个密码是当你对姓名进行输入的时候，需要密认证，确认密码正确才可以进行编辑。
如此，就可以防止没有权限的人修改工作表内容。
同时，也可以设置部门、职位等其它项为可编辑区域。
也可以设置不同的密码，那么这样的就对不同信息条目进行了分别管理，只有相应权限的操作人员，才可以对表格进行修改录入操作。
代码
其代码运用并不多，所以学习起来，也不是十分困难，掌握基本一些的功能就能实现。
Private Sub ChangePassWord()    '修改密码    Dim w As Worksheet    Dim Ps As String    Set w = Application.ActiveSheet    Ps = InputBox("输入密码", "密码", "")    If VBA.Len(Ps) = 0 Then Exit Sub    'Add添加一个可编辑区域'Title区域名称'Range 区域地址范围'Password 密码w.Protection.AllowEditRanges.Add _    Title:="EditRange" & w.Protection.AllowEditRanges.Count, _    Range:=Selection, _    Password:=Ps        With Selection            .Interior.Color = RGB(152, 59, 50)            .Borders.LineStyle = 1        End WithEnd Sub
注意：代码中这个对象并不是我们开始介绍的AllowEditRange对象，而是AllowEditRanges对象。
是一个AllowEditRange对象集合，它里面包含了多个可编辑区域对象的集合，也就是说它是多个AllowEditRange对象的集合。
通过下面的例子就明白了。
删除可编辑区域
Private Sub DelAllowEditRanges() Dim sR As AllowEditRange'定义对象 For Each sR In Activesheet.Protection.AllowEditRanges'遍历集合中的对象    With sR        .Range.ClearFormats'清除单元格格式        .Delete'分别删除可编辑区域对象    End With Next sREnd Sub
上面这个过程将删除所有当前工作表中的可编辑区域，并清除格式。
当然了，这段代码并不会对表格内容清除。
如果要清除内容在With里面添加.Range.Clear即可。
欢迎关注、收藏

在Excel表格中，有一个特别的功能，就是可以把不想编辑的内容进行锁定，然后把可以编辑的单元格设置为活动状态。
这个功能在一些操作当中很有用，特别是为使一些固定格式或者内容不想被误操作修改的时候。
那么如何应用vba代码来设置可编辑区域呢？
下面用一个例子来讲解一下关于单元格区域可编辑状态设置和修改、删除等一些基本操作。
AllowEditRange
想要实现这个功能，需要用到一个对象：AllowEditRange
此对象包含三个方法：
ChangePassword‘修改保护密码
Delete'删除对象
Unprotect'解除保护
举例
例子中，我们将用到这三个方法，分别对单元格区域进行设置操作。
分别做了五个按钮，设置可编辑区域、修改密码、删除编辑区域、设置表保护、取消表保护
整个操作过程中，实现了对表内任意选择单元格进行可编辑设置，取消和删除功能。
例如，当我们需要对姓名一列进行可编辑设置的时候，就选择姓名列单元格，然后单击"设置可编辑区域"按钮，输入一个密码，这个密码是当你对姓名进行输入的时候，需要密认证，确认密码正确才可以进行编辑。
如此，就可以防止没有权限的人修改工作表内容。
同时，也可以设置部门、职位等其它项为可编辑区域。
也可以设置不同的密码，那么这样的就对不同信息条目进行了分别管理，只有相应权限的操作人员，才可以对表格进行修改录入操作。
代码
其代码运用并不多，所以学习起来，也不是十分困难，掌握基本一些的功能就能实现。
Private Sub ChangePassWord()    '修改密码    Dim w As Worksheet    Dim Ps As String    Set w = Application.ActiveSheet    Ps = InputBox("输入密码", "密码", "")    If VBA.Len(Ps) = 0 Then Exit Sub    'Add添加一个可编辑区域'Title区域名称'Range 区域地址范围'Password 密码w.Protection.AllowEditRanges.Add _    Title:="EditRange" & w.Protection.AllowEditRanges.Count, _    Range:=Selection, _    Password:=Ps        With Selection            .Interior.Color = RGB(152, 59, 50)            .Borders.LineStyle = 1        End WithEnd Sub
注意：代码中这个对象并不是我们开始介绍的AllowEditRange对象，而是AllowEditRanges对象。
是一个AllowEditRange对象集合，它里面包含了多个可编辑区域对象的集合，也就是说它是多个AllowEditRange对象的集合。
通过下面的例子就明白了。
删除可编辑区域
Private Sub DelAllowEditRanges() Dim sR As AllowEditRange'定义对象 For Each sR In Activesheet.Protection.AllowEditRanges'遍历集合中的对象    With sR        .Range.ClearFormats'清除单元格格式        .Delete'分别删除可编辑区域对象    End With Next sREnd Sub
上面这个过程将删除所有当前工作表中的可编辑区域，并清除格式。
当然了，这段代码并不会对表格内容清除。
如果要清除内容在With里面添加.Range.Clear即可。
欢迎关注、收藏

Excel表格边框的设置，对于制作一个漂亮的工作表，十分有用。
由于审美的差异，我们通常做的表格都是以黑色边框白底为主，或者说，有些人根本不知道除了黑白表格还有带颜色的。
如何设置表格边框属性呢，下面介绍一下，边框线型设置也就是Border样式。
比如粗细，单线还是双线，点还是点线结合，等等。
不同线的形状在应用中可以加强或减弱某些内容的突出显示或隐藏效果。
也是对表格视觉效果上的处理，进行一个最优化的组合。
最好学过一些简单的图形图象设计方面的知识，更加有用。
下图分别为单元格上、下、左、右设置不同的线型，举了一个例子。
线条样式
样式用LineStyle属性来设置
例如：
range("A1").Borders.LineStyle = xlContinuous'实线
把A1单元格边框设置为实线，其它如颜色和粗细均为默认值。
可参考边框线条样式表来设置不同的样式效果。
边框粗细
range("A1").Borders.Weight = xlHairline '细线
边框的组细用Weight属性设置。
参数可查看下图进行对比设置。
代码
函数调用方式
代码写到一个OLEobject按钮里面了，也可以放到任何触发的事件里面进行调用。
Private Sub CommandButton1_Click()Me.UsedRange.Clear'清除表里的内容setBordersStyle'调用设置边框过程End Sub
边框设置过程(设置边框上下边框)
Private Sub setBordersStyle()    Dim b As Border    Dim r As Range    Set r = Me.Range("A2:F2")    r.ClearFormats    Set b = r.Borders(xlEdgeTop)        With b            .Color = RGB(255, 0, 0)          '  .LineStyle = xlSolid            .LineStyle = xlDot          '            r.Value = "上线框_点划"            r.Columns.AutoFit        End With    Set b = r.Offset(1, 0).Borders(xlEdgeBottom)        With b            .Color = RGB(0, 0, 0)            .LineStyle = xlDouble            .Weight = xlThick            .TintAndShade = 0.1            r.Offset(1, 0).Value = "下边框_双线"        End WithEnd Sub
总体来说比较简单，但是通常在工具栏里也可以找到相应设置。
对于想要灵活应用的朋友，掌握这些知识也是必不可少在学习的内容。
所以，整理一下，分享出来。
喜欢就马上收藏转发吧，期待你的关注。