解锁工作簿中的工作表时,是否可以显示错误/提醒消息?

时间:2019-12-14 11:14:23

标签: excel

我正在尝试为一个基于excel的流程找到一个备份创建解决方案。
我想到的一个想法是锁定工作簿的工作表,并在解锁工作表时向用户显示提醒消息,以使他们在保存修改后的工作簿之前不会忘记将工作表打印为pdf。 /> 解锁后自动打印pdf也可以解决。
有办法做到这两者之一还是全部?
谢谢。

1 个答案:

答案 0 :(得分:0)

使用VBA,在ThisWorkbook模块中插入以下代码:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then
        If Not Worksheets("Sheet1").Range("A2") = "Printed" Then
            MsgBox ("You haven't printed the book")
        End If
    End If
End Sub

代码:If Not Worksheets("Sheet1").Range("A2") = "Printed" Then就像一个布尔值,您可以探索更多。