将现有密码保护 sheet 作为未受保护的 sheet 复制到新工作簿不会使新工作sheet 不受保护

Question

将受保护的现有密码 sheet 作为未受保护的 sheet 复制到新工作簿，当用户尝试在新工作sheet 中输入数据时会出现以下错误。

Error: "the cell or chart you're trying to change is on a protected sheet"

在错误消息上单击“确定”。

请注意，此错误只会发生一次。在弹出的错误消息上单击“确定”并再次键入，然后 excel 允许您在单元格中键入数据并保存 sheet.

我们有一个 excel（格式 .xls）文件当前用于创建另一个 excel 传播sheet 当表单上的按钮处于同一传播时 sheet 被点击。它基本上将一个受密码保护的空白 sheet（模板）作为未受保护的 sheet 复制到一个新工作簿。下面的代码用于 excel 2007（使用 .xls 格式）。我们最近从 excel 2007 升级到 excel 2013 并且问题出现了。

Private Sub cmd_Click()
Dim jBook As Workbook
Dim jsheet As Worksheet

CurrentWorkBook = ActiveWorkbook.Name
Workbooks(CurrentWorkBook).Unprotect jWorksheetPassword
'catch all for errors
On Error GoTo ErrEnd  

Dim orginalScreenUpdating As Boolean
orginalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False

If Range("Language").Value = "2" Then
   'French
  Set jsheet = TemplateFR
Else
   'english
   Set jsheet = TemplateEN
End If

jsheet.Visible = xlSheetHidden
'jSheet.Visible = xlSheetVisible

'Delete this line
jsheet.Unprotect jWorksheetPassword

Set jBook = Workbooks.Add(xlWBATWorksheet)
jsheet.Copy After:=jBook.Sheets(1)
jBook.Sheets(2).Visible = xlSheetVisible

Application.DisplayAlerts = False
jBook.Sheets(1).Delete
Application.DisplayAlerts = True

jsheet.Visible = xlSheetVeryHidden

'Delete this line
jBook.Sheets(1).Unprotect jWorksheetPassword
'Delete this line
'jsheet.Protect Password:=jWorksheetPassword

NoErrEnd:
Workbooks(CurrentWorkBook).Protect Password:=jWorksheetPassword, Structure:=True, Windows:=False
Application.ScreenUpdating = orginalScreenUpdating
Unload Me
Exit Sub

ErrEnd:
Workbooks(CurrentWorkBook).Protect Password:=jWorksheetPassword, Structure:=True, Windows:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox DataTable.Range("MSG4").Value, vbCritical,    DataTable.Range("MSG4TITLE").Value
Unload Me

End Sub

Answer 1

以下代码行激活原始工作簿，这以某种方式清除了对 sheet 的复制保护，仅 excel 2013。在 Excel 2007 年，这会导致原始工作簿被激活并使用户感到困惑，因此检查 2013 年。

If Application.Version = "15.0" Then
    Workbooks(CurrentWorkBook).Activate
    'jBook.Activate
End If

这是一个恰好有效的 hack。如果有人找到更好的解决方案，请在此处也post解决。

完整代码清单如下：

Private Sub cmd_Click()
Dim jBook As Workbook
Dim jsheet As Worksheet

CurrentWorkBook = ActiveWorkbook.Name
Workbooks(CurrentWorkBook).Unprotect jWorksheetPassword
'catch all for errors
On Error GoTo ErrEnd
Dim orginalScreenUpdating As Boolean
orginalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False

If Range("Language").Value = "2" Then
    'French
    Set jsheet = TemplateFR
Else
    'english
    Set jsheet = TemplateEN
End If

jsheet.Visible = xlSheetHidden

Set jBook = Workbooks.Add(xlWBATWorksheet)
jsheet.Copy After:=jBook.Sheets(1)
jBook.Sheets(2).Visible = xlSheetVisible

Application.DisplayAlerts = False
jBook.Sheets(1).Delete
Application.DisplayAlerts = True

If Application.Version = "15.0" Then
    Workbooks(CurrentWorkBook).Activate
    'jBook.Activate
End If

jsheet.Visible = xlSheetVeryHidden

NoErrEnd:
Workbooks(CurrentWorkBook).Protect Password:=jWorksheetPassword, Structure:=True, Windows:=False
Application.ScreenUpdating = orginalScreenUpdating
Unload Me
Exit Sub

ErrEnd:
Workbooks(CurrentWorkBook).Protect Password:=jWorksheetPassword,     Structure:=True, Windows:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox DataTable.Range("MSG4").Value, vbCritical,     DataTable.Range("MSG4TITLE").Value
Unload Me


End Sub

将现有密码保护 sheet 作为未受保护的 sheet 复制到新工作簿不会使新工作sheet 不受保护

Copying existing password protected sheet to new workbook as an unprotected sheet does not make the new worksheet unprotected

excel

vba

excel-2013