Excel VBA：如果工作表受到保护，则无法使用特殊单元格

Question

I have a piece of Excel VBA code that works OK if the worksheet is unprotected but does not when protected. I have read the previous similar queries but do not think they apply in this case - the suggested fixes were not applicable or required repeated unprotecting/reprotecting the worksheet which I would like to avoid if possible.

My code looks like this:

Dim NonEmptyCells As Range
Dim Cell As Range

On Error Goto Fin
Set NonEmptyCells = Range("D3:H6").SpecialCells(xlCellTypeBlanks)

For Each Cell In NonEmptyCells 

    '   do stuff with cell

Next Cell

Fin:
On Error GoTo 0

The use of 'On Error' is to avoid the loop when there are zero empty cells found.

The Range(D3:H6) has cell formatting set so the cells are not locked and not hidden.

When the worksheet is not protected the specialcells line correctly returns the range of blank cells, however when protected special cells always errors as if no empty cells are found.

All help appreciated.

Answer 1

You could use Userinterfaceonly when protection is set. Macro's will work, sheet will be protected against changes done by user him/her self.

In the ThisWorkbook-module-section:

Private Sub Workbook_Open()
Worksheets("Sheet1").Protect Password:="yourPassword", UserInterFaceOnly:=True
End Sub

adjust your password and sheetname, (make sure the workbook-open is event has run when running your macro ie reopening it)