如何解决excel中出现的“本工作簿不能再使用其它新字体”问题，在网上搜了很多都无法解决

这是抄的别人的，你慢慢看看吧，将你的问题输入百度，会有好多：

解决方法：因为产生的原因比较多，解决方法也不单一，所以请遇到这样的问题的朋友，试一下下面的方法。

1. 全选整个工作表，重新选一下字体，就可以将字体改颜色了。这个方法就是我遇到的情况，改不了字体颜色的解决方法。

2.你可以新建一个excel档案，把原档案复制粘贴到新档案后保存即可正常使用。

3.检查一下: 开始------控制面板-------字体,看看这个文件夹的字体是否完整，是否存在EXCEL被引用的字体，最好就是用上面第一个方法将表中的字体设置为最常用的字体，就可以排除这个检查了。

4.在EXCEL中一次点击菜单“编辑”-“定位”-“定位条件”-“对象”-“确定”，这个时候如果 发现有对象，，把它一拉大，原来就是给缩小的图表，于是将图表删除，一切就正常了。

5.上述问题有可能是由于自动缩放字体造成的，解决办法就是修改注册表来预防系统默认自动缩放字体。对于已经存在错误的工作表，可以通过修改图表格式-取消自动缩放字体，或者编制宏命令来解决。%

禁用现有图表中的自动字体缩放
方法 （1）：禁用每个图表中的“自动缩放”
1） . 选择一个图表。
2）. 在格式菜单上，单击图表区。
3）. 单击字体选项卡。
4）. 单击以清除自动缩放复选框。
5）. 单击确定。
6）. 为工作簿中的每个图表重复这些步骤。

方法 二：以编程方式禁用工作簿中所有现有图表的“自动缩放”
以编程方式禁用工作簿中所有现有图表的“自动缩放”，

请执行下列步骤：1）. 启动 Excel 并打开导致错误信息的文件。
2）. 在“工具”菜单上，指向“宏”，然后单击“Visual Basic 编辑器”（或按 Alt+F11）。
3）. 在 Visual Basic 编辑器中，从“插入”菜单中选择“模块”。
4）. 在模块中键入或粘贴以下代码： Sub AutoScale_Off()
Dim ws As Worksheet, co As ChartObject, i As Integer
Dim ch As Chart
For Each ws In ActiveWorkbook.Worksheets

' Go through each worksheet in the workbook

For Each co In ws.ChartObjects

'In each chart turn the Auto Scale font feature off

i = i + 1
co.Chart.ChartArea.AutoScaleFont = False
Next co
Next ws

For Each ch In ActiveWorkbook.Charts

'Go through each chart in the workbook

ch.ChartArea.AutoScaleFont = False
i = i + 1
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub
5）、点保存按钮保存刚才编写的宏，回到工作簿界面，点击“工具宏宏”，选中 AutoScale_Off（也就是我们刚才编写的宏的名称），点执行，一切搞定。

选中所有单元格，编辑--清除--格式，OK。