Board logo

標題: 有關保護工作表代碼無法將工作表隱藏的項目隱藏 [打印本頁]
作者: henry860608    時間: 3 天前 10:58     標題: 有關保護工作表代碼無法將工作表隱藏的項目隱藏

當執行checklocksheet時，無法將工作表設定儲存格格式為隱藏的項目隱藏，原本電腦為win10-excel2019都沒有問題，到win11-excel365商務版時就會跑完程式碼卻還是可以看到已經儲存格格式為鎖定及隱藏的儲存格
[attach]38022[/attach]
  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
複製代碼
作者: catbears    時間: 3 天前 13:18

請問您是要把整欄隱藏還是單純公式隱藏呢？
如果是要將格子隱藏可參考這個
Range.Hidden



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)