![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
求解:MFC中CToolBar工具条中如何设置提示信息的字体?? 70
1个回答
2015-07-24
展开全部
完整代码如下:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' 撤消所有工作表的保护
For each sht in Thisworkbook.Worksheets
sht.Unprotect
Next sht
Application.DisplayAlerts = False ' 禁止显示提示窗口
MyFilename = "AAA-" & Format(Date, "yymmdd") & ".xlsx"
ThisWorkbook.SaveAs Filename:=MyFilename, FileFormat:=xlNormal ' 另存为
' 恢复所有工作表的保护
For each sht in Thisworkbook.Worksheets
sht.Protect
Next sht
Application.DisplayAlerts = True ' 允许显示提示窗口
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' 撤消所有工作表的保护
For each sht in Thisworkbook.Worksheets
sht.Unprotect
Next sht
Application.DisplayAlerts = False ' 禁止显示提示窗口
MyFilename = "AAA-" & Format(Date, "yymmdd") & ".xlsx"
ThisWorkbook.SaveAs Filename:=MyFilename, FileFormat:=xlNormal ' 另存为
' 恢复所有工作表的保护
For each sht in Thisworkbook.Worksheets
sht.Protect
Next sht
Application.DisplayAlerts = True ' 允许显示提示窗口
End Sub
追问
在CV6.0 的MFC中 CToolBar工具条设置提示信息的字体,你确信是这么设置????
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询