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

我正在运行一个macros来删除空行，如果该行的所有条目都是空白的。 我有代码，但是，由于工作表是密码保护，会显示一条消息，说明先删除密码并取消保护工作表。 我需要在所有阶段locking工作表，但也需要删除空的行。 如果有人可以帮我input这部分代码，所以这个问题是克服的！ 我现在的代码是：

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"