首页 > 解决方案 > VBA使用密码提示取消保护所有工作表,但只有一次

问题描述

我正在尝试使用宏和密码提示取消保护工作簿中的所有工作表,但是希望用户只被提示一次。

这是代码:

Sub UnprotectAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
       ws.Unprotect
    Next ws
End Sub

是否可以提示用户一次输入所有工作表的密码,因为它是所有工作表的相同密码?

我知道密码可以输入密码。我已经使用一个宏来保护所有工作表,但是我希望在取消保护时出现提示,以避免用户误操作。

标签: excelvbaactivex

解决方案


推荐阅读