Excel VBA delete blank rows on password protected sheet

Question

I am running a macro to delete empty rows if all entries of the row are blank. I have the code however, since the sheet is password protected, a message displays saying to remove the password and unprotect worksheet first. I need the sheet to be locked at all stages but also need to delete the empty rows. If anyone can help me enter this part of the code so this problem is overcome! The code I currently have is:

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

Many Thanks!

Answer 1

What you should do is unprotect the sheet, delete empty rows and then turn the protection back on.

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