excel - 创建受保护的副本时使用密码隐藏不同范围的列

Question

我必须从主 excel 创建一个受保护的工作表。但是现在，在与第 3 方用户共享受保护工作表之前，我必须在生成的受保护工作表中隐藏几列 [第 1 列 (A)、第 2 列 (B) 以及第 43 - 92 列（AQ 到 CN）中的所有内容]应该启用密码。那就是人们不应该能够取消隐藏列。因此，当我从他们那里收到带有更新的文件时，我应该能够使用密码取消隐藏这些工作表。如何确保在生成受保护的工作表时隐藏上述列的密码？我的尝试如下。

If Sheet2.Cells(1, i).Value = "Exclusions" Then 
    Sheet2.Columns(i).Hidden = True 
End If

对所有列标题重复上述操作。这是非常耗时且冗长的。

接下来是我在网上找到的东西，但对我不起作用，因为我在 Sub 中创建了一个 Sub。

Sub HideCols() 
    For i = 1 To ActiveSheet.UsedRange.Columns.Count 
        If Lcase (Cells(2, i).Value) = "Exclusions" Then Columns(i).Hidden = True 
    Next 
End Sub

标签： excelvba