venkat1426
New Member
- Joined
- Jan 25, 2018
- Messages
- 6
Hi
i tried this one..
i am getting error "Run-time error '1004';The Password you supplied is not correct. Verify that the caps lock key is off and be sure to use the correct capitalization"
I am using this code.
Sub Autpen()
Application.ScreenUpdating = False
For Each ws In Sheets
With ws
.Unprotect Password:="123"
.Protect Password:="123", UserInterfaceOnly:=True
ActiveSheet.Protect AllowFiltering:=True
.EnableOutlining = True
End With
Next ws
Application.ScreenUpdating = True
End Sub
can you please help me on this.
Thanks
i tried this one..
i am getting error "Run-time error '1004';The Password you supplied is not correct. Verify that the caps lock key is off and be sure to use the correct capitalization"
I am using this code.
Sub Autpen()
Application.ScreenUpdating = False
For Each ws In Sheets
With ws
.Unprotect Password:="123"
.Protect Password:="123", UserInterfaceOnly:=True
ActiveSheet.Protect AllowFiltering:=True
.EnableOutlining = True
End With
Next ws
Application.ScreenUpdating = True
End Sub
can you please help me on this.
Thanks