数据表格中往往有部分数据是不能够对外展示的。
当某些列的数据不可以对外展示，但为了后续操作方便又不愿意删除时，你该怎么办？
是的，可以对表格进行加密。在Excel审阅里有一个保护工作的菜单选项。
它的解释是：通过限制其他用户的编辑能力来防止他们进行不必要的修改。
举个例子：我将D列隐藏后，点击保护工作表，然后将设置列格式取消勾选，输入密码。那么在没有密码的情况便不可以进行取消隐藏操作。
缺点：每次取消保护后，都需要重新进行保护工作表操作。
对于缺点的解决方法，利用VBA的Workbook_BeforeClose在点击关闭时让Excel自动加密。同样的，也可以利用Workbook_Open在表格打开时自动取消加密。
那么如果在加入Workbook_Open代码后，所有的电脑都可以自动取消加密，岂不是没有意义去保护工作表了。
所以，这里要介绍一下Environ(“Computername”)获取电脑设备名称。指定电脑设备打开时自动取消加密，这样就方便极了，也避免了忘记加密的尴尬。
Private Sub Workbook_Open()
Dim str As String
str = Environ("Computername")
If str = "DESKTOP-R4T82VD" Then
ActiveSheet.Unprotect Password:="123"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=False, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True, _
Password:="123"
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub