木之本少爷 发表于 2021-12-18 23:30:00

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

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

滚兔子 发表于 2021-12-27 13:33:56

函数没办法

魏无牙 发表于 2022-3-23 03:50:00

试一试,代码置放在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
页: [1]
查看完整版本: 某行有空格，则不能保存或者另存为