某行有空格，则不能保存或者另存为

木之本少爷

如图如附件
在指定活动区域
如果某行有空格，则不能保存或者另存为
不用VBA，就用函数或者条件格式或者数据验证什么的，可以实现吗？

指定区域不能有空格 新建行不能有空格2.rar (7.22 KB, 下载次数: 115)

2021-12-18 23:30 上传

点击文件名下载附件
指定区域不能有空格 新建行不能有空格2.rar

滚兔子

函数没办法

魏无牙

试一试,代码置放在THISWORKBOOK 下
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountBlank(Sheets("sheet1").Cells(1).CurrentRegion) Then
MsgBox "文件无法保存 原因是资料没有填满", vbCritical
Cancel = True
End If
End Sub