vba解除保护工作表，语法

sogo777

1. Sub 罗列()
   
2. ActiveSheet.Protect Password:="1", userInterFaceonly:=True
   
3.    ThisWorkbook.Sheets("星期一").Range("B:B").ClearContents
   
4.    ThisWorkbook.Sheets("1").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期一").Range( _
   
5.         "b2"), Unique:=True
   
6.    ThisWorkbook.Sheets("星期二").Range("B:B").ClearContents
   
7.    ThisWorkbook.Sheets("2").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期二").Range( _
   
8.         "b2"), Unique:=True
   
9.    ThisWorkbook.Sheets("星期三").Range("B:B").ClearContents
   
10.    ThisWorkbook.Sheets("3").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期三").Range( _
    
11.         "b2"), Unique:=True
    
12.    ThisWorkbook.Sheets("星期四").Range("B:B").ClearContents
    
13.    ThisWorkbook.Sheets("4").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期四").Range( _
    
14.         "b2"), Unique:=True
    
15.    ThisWorkbook.Sheets("星期五").Range("B:B").ClearContents
    
16.    ThisWorkbook.Sheets("5").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期五").Range( _
    
17.         "b2"), Unique:=True
    
18.    ThisWorkbook.Sheets("星期六").Range("B:B").ClearContents
    
19.    ThisWorkbook.Sheets("6").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期六").Range( _
    
20.         "b2"), Unique:=True
    
21.    ThisWorkbook.Sheets("星期日").Range("B:B").ClearContents
    
22.    ThisWorkbook.Sheets("7").Range("c2:c65535").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("星期日").Range( _
    
23.         "b2"), Unique:=True
    
24. End Sub
    

复制代码

各位老师，帮忙看下，我这个宏如果不启用工作表保护就可以顺利运行，如果启用了工作表保护，加上了第一句代码ActiveSheet.Protect Password:="1", userInterFaceonly:=True 这样应该可以操作锁定的工作表
可是为什么还是400错误呢？

sogo777

顶上去 哪些高手帮你看看

蓝桥玄霜

一般是在第一句解除密码，最后再加密码。
不建议使用密码。

sogo777

蓝桥玄霜 发表于 2014-4-26 12:25
一般是在第一句解除密码，最后再加密码。
不建议使用密码。

多谢老师 那是不是无法实现了 具体应该怎么操作呢