[已解决]问题

llplj

请问下Excel中能不能实现以下的功能：
我有一张信息表需要其他人去填写，其中有几个必填的地方，那么我是否能在表中做什么设置使得如果填写的人没有填写完所有的 必填项的话就无法保存这份Excel的文件？
另：是否可以通过一个选项判断那几个是必须填写的选项。因为两种情况下表中必填的选项是不一致的。
已经上传附件了 另外我想问下 因为可能这个必填项可能会有变动 是否我可以在做好了之后自己可以修改哪些地方时必填的地方？谢谢!!

最佳答案

月排行榜 / 总排行榜

zsx720629

2011-12-17 15:09

请将必填内容删除后试验，如果满意，请最佳

跳转到最佳答案楼层

zsx720629

请将必填内容删除后试验，如果满意，请最佳

windimi007

试试看行不行吧！请启用宏。{:912:}

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     ThisWorkbook.Close False
   
4. End Sub
   
5. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
6.     Dim arr
   
7.     Dim i As Byte
   
8.     arr = Range("A3:C49")
   
9.     For i = 1 To UBound(arr)
   
10.         If arr(i, 3) = "*" Then
    
11.             If IsEmpty(arr(i, 2)) Then
    
12.                 MsgBox arr(i, 1) & "项目不能为空！"
    
13.                 Cancel = True
    
14.                 Exit Sub
    
15.             End If
    
16.         End If
    
17.     Next i
    
18. End Sub
    

复制代码

llplj

zsx720629 发表于 2011-12-17 15:41
请将必填内容删除后试验，如果满意，请最佳

谢谢你的答案 非常迅速 给了最佳了！

llplj

windimi007 发表于 2011-12-17 15:43
试试看行不行吧！请启用宏。

非常感谢你 你的答案也很好 只是有一个同学先回答了我的问题 我把最佳给了她！再次感谢你的帮助！