excel 在受保护的工作表上运行宏时遇到问题

mkh04yzy  于 11个月前  发布在  其他
关注(0)|答案(1)|浏览(112)

我试图通过单击按钮来运行一个简单的宏,但是当我在工作表受保护的情况下单击按钮时,什么也没有发生。当我取消保护工作表并单击按钮时,宏运行没有问题。
这里是宏是问题:

Sub ApproveAllPending()
    Columns("B").Replace What:="Pending", _
                            Replacement:="Approved", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
End Sub

字符串
我看到几个帖子与我.protect UserInterfaceOnly:=True,但我无法得到工作.
编辑:
我也试着加了这个,也不管用。
Sheet1.保护密码:=“password”,UserInterFaceOnly:=True

ibps3vxo

ibps3vxo1#

  • 根据需要更新密码
Option Explicit
Sub ApproveAllPending()
    Sheet1.Unprotect Password:="mypw"
    Sheet1.Columns("B").Replace What:="Pending", _
                            Replacement:="Approved", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False

    Sheet1.Protect Password:="mypw"
End Sub

字符串

  • 如果您更喜欢使用UserInterFaceOnly,则应将代码放置在Workbook_Open事件中。这是因为工作簿在重新打开后会丢失UserInterFaceOnly设置。
Option Explicit

Private Sub Workbook_Open()
    Sheet1.Protect Password:="mypw", UserInterFaceOnly:=True
End Sub

相关问题