[已解决]二段代码，放到加载宏文件中，无法使用

yjwdjfqb

Sub 公式保护()
    Dim sht As Worksheet, rng As Range
    On Error Resume Next
    For Each sht In ThisWorkbook.Worksheets
        With sht
            .Unprotect password:="***"    '撤销工作表保护
            .Range("A:IV").Locked = False    '取消所有单元格格式-保护-锁定选项
            With .UsedRange.SpecialCells(xlCellTypeFormulas)    '定位所有含有公式的单元格
                .Locked = True    '选中所有单元格格式-保护-锁定选项
                .FormulaHidden = True    '隐藏公式
            End With
           '.EnableSelection = xlNoRestrictions  '选取锁定单元
            .EnableSelection = xlUnlockedCells  '不选取锁定单元
            .Protect password:="***"    '保护工作表并设置密码
        End With
    Next
End Sub
Sub 撤消公式保护()
    Dim sht As Worksheet, rng As Range
    On Error Resume Next
    For Each sht In ThisWorkbook.Worksheets
        With sht
            .Unprotect password:="***"    '撤销工作表保护
            .Range("A:IV").Locked = False    '取消所有单元格格式-保护-锁定选项
            With .UsedRange.SpecialCells(xlCellTypeFormulas)    '定位所有含有公式的单元格
                .Locked = True    '选中所有单元格格式-保护-锁定选项
                .FormulaHidden = True    '隐藏公式
            End With
           '.EnableSelection = xlNoRestrictions  '选取锁定单元
            .EnableSelection = xlUnlockedCells  '不选取锁定单元
           ' .Protect password:="***"    '保护工作表并设置密码
        End With
    Next
End Sub


上面二段代码，放到加载宏文件中，无法使用

请大家帮帮我看下什么问题，帮帮修改下，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-24 13:26

加载宏内工作表都不可见的，你再保护也无意吧。
里面的thisworkbook貌似不需要吧，你肯定是对当前活动工作簿操作的。

跳转到最佳答案楼层

yjwdjfqb

请大家帮帮我看下什么问题，帮帮修改下，谢谢大家了!

hwc2ycy

加载宏内工作表都不可见的，你再保护也无意吧。
里面的thisworkbook貌似不需要吧，你肯定是对当前活动工作簿操作的。

yjwdjfqb

hwc2ycy 发表于 2014-2-24 13:26
加载宏内工作表都不可见的，你再保护也无意吧。
里面的thisworkbook貌似不需要吧，你肯定是对当前活动工作 ...

哦，就是呢，改成，当前活动工作表就OK了，感谢老师了！