Protect Workbook Worksheets, Few Worksheets to be moved/copied, editable but NOT to be renamed,

[SamDsouza]

Hello

I would like to have the following options
1. Few worksheets to be copied manually ie by Right clicking/Selecting on Sheet Tab and Moving/copying without renaming the worksheet

2. Not able to change the name of worksheets when Right Clicked/ Selected on Sheet Tab (All worksheets)

3. Able to Edit Few worksheets whichever i want. Also to be Moved/Copied without renaming the worksheet

Which subroutine i have to code in ThisWorkbook or Particular named worksheet module so that i achieve my above 3 targets

Code: in ThisWorkbook

Private Sub Workbook_Open()
   ThisWorkbook.Protect Password:="MyPassword", Structure:=True, Windows:=True
   Worksheets("Project-Ini").Activate
   Worksheets("Project-Ini").Protect Password:="MyPassword"
End Sub

The above was executed and when Right clicked on SheetTab "Project-Ini"
the following items got disabled ie
Insert, Delete, Rename, Move or Copy, Tab Color, Hide unhide
Also tried from outside ie without VBA coding I protected worksheet "Project-Ini" again with password what happend was the cells were locked and not able to modify

How can i achieve above three goals when structre and windows is password protected and also i protect worksheet thru VBA coding
have explored few threads in this forum but not satisfying

SamDsouza