无法保存工作表

liulang0808

保存部分，未作处理，建议自行遍历调整

增加的是表格事件，做了输入的限制
楼主可以根据自己的需求调整

水中的月光

liulang0808 发表于 2016-1-18 10:31
保存部分，未作处理，建议自行遍历调整

增加的是表格事件，做了输入的限制

怎么回事，一直出错，我在7楼上传的附件中，有代码的，只是代码只管一行，我想向下的行次，也按第2行规则，

水中的月光

请用七楼的附件，进行测试，如果删除B2或C2中的内容，表格将无法保存，，向下的行次，也按第2行的代码规则，

水中的月光

急求高手破解。

liulang0808

水中的月光 发表于 2016-1-18 10:44
怎么回事，一直出错，我在7楼上传的附件中，有代码的，只是代码只管一行，我想向下的行次，也按第2行规则 ...

弹出的提醒窗口，是因为数据没有填写，设置的提醒

水中的月光

liulang0808 发表于 2016-1-18 10:57
弹出的提醒窗口，是因为数据没有填写，设置的提醒

老师你下载一下我在七楼发的附件，你试着清除一下B2或C2的数据，再保存，文件会提示无法输入，其代码在WOKEBOOK  中的BEFORESAVE

水中的月光

liulang0808 发表于 2016-1-18 10:57
弹出的提醒窗口，是因为数据没有填写，设置的提醒

并且提醒的次数太多

水中的月光

水中的月光 发表于 2016-1-18 11:17
并且提醒的次数太多

只需要在最后保存时，提醒不符合规则的单元格未填写，无法保存

水中的月光

看来真的很难做出来，，，，

liulang0808

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Set sh = Sheets(1)
    r = sh.Cells(Rows.Count, 1).End(3).Row
    On Error Resume Next
    Set rng1 = sh.Range("b1:c" & r).SpecialCells(xlCellTypeBlanks)
    If Err.Number = 0 Then
        If Not rng1 Is Nothing Then
            Cancel = True
            MsgBox rng1.Address(0, 0) & ": 还未填写"
        End If
        Err.Clear
    End If
End Sub