多个不受保护的VBA代码

'unprotect sheets for CDRF (1) 
Sheets("CDRF File (1)").Unprotect Password:="hammer" 

Set wsCopyFrom = ActiveWorkbook.Worksheets("STP_Data") 
Set wsCopyTo = ActiveWorkbook.Worksheets("CDRF File (1)") 

Entity Name 
wsCopyTo.Range("B11") = wsCopyFrom.Range("E30") 

'unprotect sheets for CDRF (1) 
    Sheets("CDRF File (1)").Unprotect Password:="hammer" 

    CIF 
    wsCopyTo.Range("K11") = wsCopyFrom.Range("F30") 

    'unprotect sheets for CDRF (1) 
    Sheets("CDRF File (1)").Unprotect Password:="hammer" 

    'TIN 
    wsCopyTo.Range("M11") = wsCopyFrom.Range("G30")

嗨。所以我的问题是为什么我需要取消保护每一行复制和粘贴。在我只需要一行代码就可以获得所需的结果之前，我必须在每次需要粘贴时都取消保护。多个不受保护的VBA代码

如果有人有任何见解，请让我知道。

来源

2017-02-10 Peter Nguyen

使用'随着... END随着Statement' – 0m3r

这只是我的代码的一部分在代码中开始子和结束。 –

可以显示您的完整代码？ – 0m3r

尝试ThisWorkbook.Worksheets("Sheet1").Unprotect Password:="password"

你用了Sheets("CDRF File (1)").Unprotect Password:="hammer"和

Save the Workbook此代码，然后

ThisWorkbook.Worksheets("Sheet1").Protect Password:="password"

来源

2017-02-13 20:01:01 0m3r

多个不受保护的VBA代码

回答

相关问题