[已解决]工作表被保护

cwq-999

Private Sub Worksheet_Activate()
      If Sheets("办公室").ProtectContents = True Then
         If MsgBox("工作表被保护了，你要解除工作表的保护吗？", vbYesNo + vbQuestion, "提示") = vbYes Then
            Sheets("办公室").ProtectContents = False
         End If
      Else
        MsgBox "工作表没有添加保护"
      End If
End Sub
出错了，帮我看下错在哪？
错在不能撤消工作表保护

最佳答案

月排行榜 / 总排行榜

ybchxj2010

2012-8-16 21:31

你看看是不是这个效果！

跳转到最佳答案楼层

ybchxj2010

你看看是不是这个效果！

cwq-999

这就是我想要的结果