數(shù)據(jù)表格中往往有部分?jǐn)?shù)據(jù)是不能夠?qū)ν庹故镜摹?/p>

當(dāng)某些列的數(shù)據(jù)不可以對外展示，但為了后續(xù)操作方便又不愿意刪除時，你該怎么辦？

是的，可以對表格進(jìn)行加密。在Excel審閱里有一個保護(hù)工作的菜單選項。

它的解釋是：通過限制其他用戶的編輯能力來防止他們進(jìn)行不必要的修改。

舉個例子：我將D列隱藏后，點(diǎn)擊保護(hù)工作表，然后將設(shè)置列格式取消勾選，輸入密碼。那么在沒有密碼的情況便不可以進(jìn)行取消隱藏操作。

缺點(diǎn)：每次取消保護(hù)后，都需要重新進(jìn)行保護(hù)工作表操作。

對于缺點(diǎn)的解決方法，利用VBA的Workbook_BeforeClose在點(diǎn)擊關(guān)閉時讓Excel自動加密。同樣的，也可以利用Workbook_Open在表格打開時自動取消加密。

那么如果在加入Workbook_Open代碼后，所有的電腦都可以自動取消加密，豈不是沒有意義去保護(hù)工作表了。

所以，這里要介紹一下Environ("Computername")獲取電腦設(shè)備名稱。指定電腦設(shè)備打開時自動取消加密，這樣就方便極了，也避免了忘記加密的尷尬。

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

總結(jié)

以上是生活随笔為你收集整理的识别电脑名称如何查看电脑名字的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。