取消保护单元格

我已经使用密码保护了我的表单，并且我尝试使用运行代码的按钮在另一个单元格中复制和粘贴某些内容，但是当我按下按钮时，它说我无法做任何事情，因为工作表被密码保护。如何在代码运行后使用按钮并重新保护工作表？下面是命令按钮的代码取消保护单元格

Private Sub CommandButton7_Click() 

'-----Output(FR) button------ 

'French Note 
Range("P11").Select Selection.Copy 
Range("P12").Select 
Selection.PasteSpecial Paste:=xlPasteValues 
CheckSpelling 


End Sub

来源

2016-09-15 sjk1193

使用[Worksheet.Protect方法（https://msdn.microsoft.com/en-us/library/office/ff840611.aspx）与'UserInterfaceOnly：= True'参数。 – Jeeped

还有一种使用类模块解除工作表保护的方法，只要类实例关闭，它就会重新保护工作表。没有提供答复，因为我不记得细节，并且找不到我从哪里拿过程。如果有人回忆并且有文件，您可以分享。 – nbayly

让我们假设P12是锁定版和片材是受保护的。我们不保护，进行更改，然后重新保护：

Sub CommandButton7_Click() 
    ActiveSheet.Unprotect Password = "obvious" 
    Range("P11").Select 
    Selection.Copy 
    Range("P12").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Selection.CheckSpelling 
    ActiveSheet.Protect Password = "obvious" 
End Sub

来源

2016-09-15 20:44:50

取消保护单元格

回答

相关问题