Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 在保护模式下显示某些合并单元格的注释_Excel_Vba - Fatal编程技术网

Excel 在保护模式下显示某些合并单元格的注释

Excel 在保护模式下显示某些合并单元格的注释,excel,vba,Excel,Vba,我需要在某些未锁定的合并单元格中显示注释 我在网上找到了显示工作簿中所有注释的代码。这将不起作用,因为我的工作簿需要保护,这意味着宏将查看锁定的单元格并过早结束 Sub Show_Comment() On Error Resume Next For Each ws In ActiveWorkbook.Sheets Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments) For Each R

我需要在某些未锁定的合并单元格中显示注释

我在网上找到了显示工作簿中所有注释的代码。这将不起作用,因为我的工作簿需要保护,这意味着宏将查看锁定的单元格并过早结束

Sub Show_Comment()
On Error Resume Next
    For Each ws In ActiveWorkbook.Sheets
        Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments)
        For Each Rng In allCommentRng
            Rng.Comment.Visible = True
        Next
    Next
On Error GoTo 0
End Sub
我需要知道如何指定具有注释的合并范围。第一个合并范围是“C7:C8-E7:E8”。如果我知道如何做一个范围,我会想出我们如何做其他

单元格外观的图片以及按钮:


这不适用于学校。

如果在运行宏之前取消对工作表的保护,然后在以下情况下重新保护工作表,如何:

Sub Show_Comment()
On Error Resume Next
For Each ws In ActiveWorkbook.Sheets
    ws.unprotect
    Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments)
    For Each Rng In allCommentRng
        Rng.Comment.Visible = True
    Next Rng
    ws.protect
Next ws
On Error GoTo 0
End Sub

如果在运行宏之前取消对工作表的保护,然后在以下情况下重新保护工作表,情况如何:

Sub Show_Comment()
On Error Resume Next
For Each ws In ActiveWorkbook.Sheets
    ws.unprotect
    Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments)
    For Each Rng In allCommentRng
        Rng.Comment.Visible = True
    Next Rng
    ws.protect
Next ws
On Error GoTo 0
End Sub

在尝试操作工作表之前,必须先解除工作表的保护,并在应用更改后恢复保护

  For Each ws In ActiveWorkbook.Sheets
      ws.Unprotect
      Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments)
      For Each Rng In allCommentRng
          Rng.Comment.Visible = True
      Next Rng
      ws.Protect
  Next ws
上面的示例意味着没有密码保护。要克服工作表的密码保护,请使用:

ws.Unprotect Password:="yourpasswordhere"
ws.Protect Password:="yourpasswordhere"

在尝试操作工作表之前,必须先解除工作表的保护,并在应用更改后恢复保护

  For Each ws In ActiveWorkbook.Sheets
      ws.Unprotect
      Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments)
      For Each Rng In allCommentRng
          Rng.Comment.Visible = True
      Next Rng
      ws.Protect
  Next ws
上面的示例意味着没有密码保护。要克服工作表的密码保护,请使用:

ws.Unprotect Password:="yourpasswordhere"
ws.Protect Password:="yourpasswordhere"

ws.protect
在范围内,我知道了!非常感谢:DNo问题,很高兴提供帮助。
ws.protect
在范围内,我知道了!非常感谢:没有问题,很高兴能帮忙。谢谢你的帮助!我需要将工作簿保存到受保护的文件夹中,因为我将与其他人共享此工作簿。但是,我不希望他们能够修改工作簿中的任何其他内容。他们只能单击按钮并显示评论。我已经解锁了按钮、合并单元格和注释,这样它们就不会受到保护的影响。但我不想让宏查看任何其他部分。对于密码部分,是否有可以在后台输入密码的宏?我已尝试添加密码,但当工作簿处于保护模式时,系统会提示我输入密码。如果其他人拥有此工作簿,他们将无权访问密码。因此,在取消保护和保护工作簿时,是否有一个宏可以在后台输入密码?再次感谢你的帮助,我明白了!非常感谢:谢谢你的帮助!我需要将工作簿保存到受保护的文件夹中,因为我将与其他人共享此工作簿。但是,我不希望他们能够修改工作簿中的任何其他内容。他们只能单击按钮并显示评论。我已经解锁了按钮、合并单元格和注释,这样它们就不会受到保护的影响。但我不想让宏查看任何其他部分。对于密码部分,是否有可以在后台输入密码的宏?我已尝试添加密码,但当工作簿处于保护模式时,系统会提示我输入密码。如果其他人拥有此工作簿,他们将无权访问密码。因此,在取消保护和保护工作簿时,是否有一个宏可以在后台输入密码?再次感谢你的帮助,我明白了!非常感谢你:D