can any one help me with protect sheet

[bhandari]

Private Sub Workbook_V1_Open()
Dim Wks As Worksheet

    For Each Wks In ThisWorkbook.Worksheets(1)
        Wks.Protect Password:="Engineer", UserInterFaceOnly:=True
    Next

End Sub

Private Sub protect_sheet()
    ActiveSheet.Protect Password:="Engineer", Drawing Objects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub unprotect_sheet()
    ActiveSheet.Unprotect Password:="Engineer"
End Sub

im trying to protect sheet getting error:438 object doesn't matched
can any one help me with this

 

[Joe4]

This does not look correct to me:

    For Each Wks In ThisWorkbook.Worksheets(1)

Why would you be looping through a single sheet?

If you want to loop through all sheets, try:

    For Each Wks In ThisWorkbook.Worksheets

 

[KRKComputers]

Here is what I am using and it works just fine. However this will only lock and unlock cells that are selected to be locked.

[/CODE]

Private Sub Worksheet_Activate()
 ThisWorkbook.Worksheets("FULL INFORMATION").Unprotect Password:="PASSWORD"
'Unprotect

  ThisWorkbook.Worksheets("FULL INFORMATION").Protect Password:="PASSWORD"
'Protect
End Sub

Hope this helps or gives you an idea

Regards
Kevin


[QUOTE="bhandari, post: 4977057, member: 415070"][CODE]
Private Sub Workbook_V1_Open()
Dim Wks As Worksheet

    For Each Wks In ThisWorkbook.Worksheets(1)
        Wks.Protect Password:="Engineer", UserInterFaceOnly:=True
    Next

End Sub

Private Sub protect_sheet()
    ActiveSheet.Protect Password:="Engineer", Drawing Objects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub unprotect_sheet()
    ActiveSheet.Unprotect Password:="Engineer"
End Sub

im trying to protect sheet getting error:438 object doesn't matched
can any one help me with this[/QUOTE]

 

[bhandari]

its working if i remove worksheets(1)

For Each Wks In ThisWorkbook.Worksheets

there is a issue with using this code
i must run code separately by using command button because there are few objects which is generating sheets by "xlsheetveryhidden".

 

[bhandari]

Run Time error 1004
the cell or chart you are trying to change is on a protected sheet,To make a change,Unprotect the sheet,You might be Requested to enter a password.

Any one help me with this error

Private Sub Worksheet_Activate()
 ThisWorkbook.Worksheets("INPUT").Unprotect Password:="PASSWORD"
'Unprotect
ActiveSheet.Protect Password:="PASSWORD", DrawingObjects:=True, Contents:=True, Scenarios:=True
  ThisWorkbook.Worksheets("INPUT").Protect Password:="PASSWORD"
'Protect
End Sub

 

[KRKComputers]

The cell or the area that you are trying to make changes to is locked. Make sure to select that it is not locked and all should be good.

If you are trying to make changes to the entire sheet you will need to unlock have a wait and make changes then lock again.

Regards
Kevin

Run Time error 1004
the cell or chart you are trying to change is on a protected sheet,To make a change,Unprotect the sheet,You might be Requested to enter a password.

Any one help me with this error

Private Sub Worksheet_Activate()
 ThisWorkbook.Worksheets("INPUT").Unprotect Password:="PASSWORD"
'Unprotect
ActiveSheet.Protect Password:="PASSWORD", DrawingObjects:=True, Contents:=True, Scenarios:=True
  ThisWorkbook.Worksheets("INPUT").Protect Password:="PASSWORD"
'Protect
End Sub

 

[bhandari]

i got the solution
can you please add this to my code ,Except this columns "AE:AT,X" i want to protect whole sheet
please find the below code

Sheets("INPUT").Protect Password:="Engineer", DrawingObjects:=True, Contents:=True, Scenarios:=True

its protecting whole sheet, except 3 columns i want to protect sheet