Question

如果行的所有条目都为空，我正在运行一个宏来删除空行。但我有代码，因为工作表受密码保护，会显示一条消息，说明要删除密码并取消保护工作表。我需要在所有阶段锁定工作表，但还需要删除空行。如果有人可以帮我输入这部分代码，那么这个问题就克服了！我目前的代码是：

heets("Media Plan").Select Cells.Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUp

非常感谢！

Answer 1

您应该做的是取消保护工作表，删除空行，然后重新打开保护。

Sheets("Media Plan").Select
 ActiveSheet.unprotect Password:="password"
    Cells.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
 ActiveSheet.protect Password:="password"

Excel VBA删除受密码保护的工作表上的空白行

1 个答案: