区域内必填，否则不能保存（已找到代码，求修改一点点）

freshbd

在论坛内找到了离任版主的回答
但这里的红色代码是指定的单元格，我想换成指定区域，C3：D15和C20:D30该怎么做呢？
ps：请原谅我提出这么弱的问题吧，求解答

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'ThisWorkbook
    With Sheets(1) '如果这是第一个工作表，则可以With Sheets(1)
       If Len(.[b6]) = 0 Or Len(.[b10]) = 0 Or Len(.[b12]) = 0 Or Len(.[g6]) = 0 Or Len(.[g8]) = 0 Or Len(.[g10]) = 0 Then
            MsgBox "单元格值未填写全！请重新检查。"
            Cancel = True
        End If
    End With
End Sub

山菊花

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If WorksheetFunction.CountA(Sheets(1).Range("C3:D15,C20:D30")) < 48 Then
        MsgBox "单元格值未填写全！请重新检查。"
        Cancel = True
    End If
End Sub

freshbd

谢谢版主慷慨出手！

wangyaofirst

freshbd 发表于 2015-12-27 19:19
谢谢版主慷慨出手！

你好，同样的问题，但是有个很简单的矛盾，我自己的空表格式也无法保存啊。发给别人是必填，可我自己空表的保存不上啊。你有这个问题吗？怎么解决的

山菊花

wangyaofirst 发表于 2018-10-11 18:37
你好，同样的问题，但是有个很简单的矛盾，我自己的空表格式也无法保存啊。发给别人是必填，可我自己空表 ...

要保存自己的空表很容易。
1、切换为设计模式，如图：




2、取一自己电脑独有的特征，写入代码。如下发前后的文件名可以不一样，文件夹可能会不同，某文件夹下可能会有独有的文件，等：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Environ("computername") = "ZHU" Then Exit Sub '如果系统用户名为ZHU，退出程序
    If WorksheetFunction.CountA(Sheets(1).Range("C3:D15,C20:D30")) < 48 Then
        MsgBox "单元格值未填写全！请重新检查。"
        Cancel = True
    End If
End Sub

aman1516

CountA，很多基础的东西都不曾懂，get一下

wangyaofirst

山菊花 发表于 2018-10-11 22:14
要保存自己的空表很容易。
1、切换为设计模式，如图：

受教了，谢谢版主！