这个表格无法粘贴任何内容，粘贴结果为空

shisan_month

这个表格用来打印制式合同，存为其他文件格式时，内容格式全变了，只有这个格式下内容才不会变，但问题是这个表格无法粘贴其他execel表格中复制的任何内容，粘贴之后是空的，啥也粘贴不上，求大神们看看啥原因？帮忙修复一下这个问题，谢谢！

爱疯

存为其他文件格式时，内容格式全变了，只有这个格式下内容才不会变


比如存为什么格式，比如什么内容遍历，这个格式是哪个？

爱疯

1楼附件一共有 49338 种非内置的单元格样式（Style对象），建议自己重做一个表

乐乐2006201506

工作表有密码保护，没密码就没办法。

乐乐2006201506

放到新建模块中，反应时间比较长，耐心等待，最后弹出用时对话框说明去保护成功。就可以写入数据了。
Sub RemoveShProtect()
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  Dim i7 As Integer, i8 As Integer, i9 As Integer
  Dim i10 As Integer, i11 As Integer, i12 As Integer
  Dim t As String
  Dim sh As Worksheet
  On Error Resume Next
  t = Timer
  For Each sh In Sheets
    sh.Activate
    For i1 = 65 To 66: For i2 = 65 To 66: For i3 = 65 To 66
    For i4 = 65 To 66: For i5 = 65 To 66: For i6 = 65 To 66
    For i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
    For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
    ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
    & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
  Next
  MsgBox "解除工作表保护!用时" & Format(Timer - t, "0.00") & "秒"
End Sub