返回列表 上一主題 發帖

有關保護工作表代碼無法將工作表隱藏的項目隱藏

henry860608

帖子
18 
主題
6 
精華
0 
積分
73 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2025-3-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2025-3-7 10:58 | 顯示全部帖子

有關保護工作表代碼無法將工作表隱藏的項目隱藏

當執行checklocksheet時，無法將工作表設定儲存格格式為隱藏的項目隱藏，原本電腦為win10-excel2019都沒有問題，到win11-excel365商務版時就會跑完程式碼卻還是可以看到已經儲存格格式為鎖定及隱藏的儲存格
  1. Private Sub checklocksheet()
  2. Dim strPassword As String
  3.     strPassword = "123456789"
  4.     Sheets("工作表1").Select
  5.     ActiveSheet.Protect Password:=strPassword, _
  6.         DrawingObjects:=True, _
  7.         Scenarios:=True, _
  8.         AllowFormattingCells:=True, _
  9.         AllowFormattingColumns:=True, _
  10.         AllowFormattingRows:=True, _
  11.         AllowInsertingColumns:=True, _
  12.         AllowInsertingRows:=True, _
  13.         AllowInsertingHyperlinks:=True, _
  14.         AllowDeletingColumns:=True, _
  15.         AllowDeletingRows:=True, _
  16.         AllowSorting:=True, _
  17.         AllowFiltering:=True, _
  18.         AllowUsingPivotTables:=True
  19.     Sheets("工作表2").Select
  20.     ActiveSheet.Protect Password:=strPassword, _
  21.         DrawingObjects:=True, _
  22.         Scenarios:=True, _
  23.         AllowFormattingCells:=True, _
  24.         AllowFormattingColumns:=True, _
  25.         AllowFormattingRows:=True, _
  26.         AllowInsertingColumns:=True, _
  27.         AllowInsertingRows:=True, _
  28.         AllowInsertingHyperlinks:=True, _
  29.         AllowDeletingColumns:=True, _
  30.         AllowDeletingRows:=True, _
  31.         AllowSorting:=True, _
  32.         AllowFiltering:=True, _
  33.         AllowUsingPivotTables:=True
  34. End Sub
複製代碼
收藏 分享

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題