Excel VBA 保护形状 - VBA

在 Excel 中，可以通过创建形状来增强工作表的功能和外观。但是，如果你想确保这些形状不会被误修改或误删除，就需要对它们进行保护。在 VBA 中，可以通过以下步骤来保护 Excel 中的形状。

步骤 1 - 创建形状

首先，请确保你已经创建了一个形状，这可以通过以下 VBA 代码实现：

Sub CreateShape()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 50)
    shp.Name = "MyShape"
End Sub

这个代码会在当前工作表中添加一个矩形形状，并将它命名为“MyShape”。

步骤 2 - 保护形状

接下来，需要将这个形状保护起来，以确保它不会被误修改或删除。以下是另一个 VBA 代码示例，可以将形状的保护属性设置为“True”：

Sub ProtectShape()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("MyShape")
    shp.Protect = True
End Sub

这个代码会将名为“MyShape”的形状的保护属性设置为“True”。

步骤 3 - 测试保护

现在，你可以测试这个保护了的形状，确保它不能被误修改或删除。你可以尝试在 VBA 代码中更改它的位置或大小，但会发现这些更改将被忽略。以下是测试代码的示例：

Sub TestShapeProtection()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("MyShape")
    shp.Left = shp.Left + 50   ' Try to move the shape
    shp.Height = shp.Height + 10   ' Try to resize the shape
End Sub

请注意，这些更改将无法应用于保护了的形状。

结论

现在，你已经知道如何使用 VBA 保护 Excel 中的形状。这个简单的操作可以确保你的形状不会被误修改或删除，从而保证了工作表的完整性和安全性。