code error if file is shared

[kashyap]

Hi, I have the below code but when I share workbook it does't work.. any help pls

Sub UnP()
Dim wks As Worksheet
Dim strPassword

strPassword = InputBox("Enter the password", "Password")

ActiveSheet.Unprotect Password:=strPassword
Range("A4:I1000").Select
Selection.Locked = False
ActiveSheet.Protect contents:=False
ActiveSheet.Protect Password:=ActiveSheet.Range("P1").Value
Application.Goto Reference:="R4C1"
Selection.End(xlDown).Select

On Error GoTo 0

End Sub

 

[RoryA]

You cannot protect or unprotect sheets in a shared workbook. Additionally, Shared Workbooks are notoriously unreliable and I'd recommend you avoid them if at all possible.

 

[kashyap]

But unfortunately, it should be shared.. ist't there a way out of this..?

 

[RoryA]

Not without unsharing the workbook, changing the protections and reprotecting it.

 

[kashyap]

Atleat is it possible to lock and unlock cells?

 

[RoryA]

That requires protecting and unprotecting the sheets, which you can't do.

 

[kashyap]

Oh..! is there any other ways to make a sheet read only in shared file?

What is the use of [FONT=Verdana, Arial, Helvetica]ActiveWorkbook.UnprotectSharing[/FONT]