1004尝试将字符串写入活动工作表上的单元格时出错

Question

以下简单测试函数始终生成1004错误消息：

Function MyTesting() As String
  On Error GoTo myErrorHandler
  ActiveSheet.Unprotect
  ActiveSheet.Range("A2").Value = "Testing"
  MyTesting = "Done"
  Exit Function

myErrorHandler:
  MyTesting = Err.Number
End Function

我已将函数调用放在单元格＆＃34; A1＆＃34;使用.xlsm扩展名启用了宏的工作簿的空工作表。只有细胞＆＃34; A1＆＃34;被设置为＆＃34;受保护＆＃34;并且工作表不受保护。我还浏览了文件 - ＆gt;选项并将所有内容设置为Excel允许的开放/危险！

使用断点我已确认它是：

  ActiveSheet.Range("A2").Value = "Testing"

导致myErrorHandler被调用。我也尝试了许多不同的变体，都有同样的问题，包括：

  Range("A2") = "Testing"
  Cells(2,1).Value = "Testing"
  ActiveSheet.Cells(2,1) = "Testing"

任何人都可以提出进一步的建议，我可以尝试，停止得到这个1004错误吗？