excel文件打开时 vba满足条件弹窗提醒？ excel编程vba与宏编程

excel文件打开时 vba满足条件弹窗提醒？excel编程vba与宏编程

EXCL文件打开时vba设置的提醒窗如何引表作表用单元格文本内容?

vba就是用来完成这种重复劳动的。

vba代码使用方法：

按住ALT，依次按F11，I，M；粘贴代码至右侧窗口后按F5运行。

=======================================================

Sub 批量保护工作表()

For Each s In ThisWorkbook.Worksheets

With s

.Select

.Range("B2:Y99").Locked = False

.Range("B2").Select '冻结首行、首列。根据需要修改单元格坐标

ActiveWindow.FreezePanes = True

.Protect "123" '保护密码123，根据需要修改

End With

End Sub

如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可

因为文档中有宏，开启宏就可以了，操作方法如下：

1.打开office excel 2013,鼠标单击“文件”。

2.鼠标单击“选项”。

3.鼠标单击“信息中心”。

4.单击“信息中心设置”。

5.选择”宏设置“------启用所有宏”。

6.鼠标单击“确定”。宏启用完成。

使用VBA即可，代码如下：

Private Sub Workbook_Open()

Dim my_Range As Range

For Each my_Range In Worksheets(1).UsedRange

If my_Range.Column = 3 And my_Range = Date Then

MsgBox "到期了"

End If

End Sub