i want to copy the original column to the next column then hide column hide the first column

[bhandari]

http://tinypic.com/r/amdso7/9

My code is only working when it is unprotcted,i wanto work my code when it is protected

i have added my macro to 2 pictures
1 picture to add columns
2.Code not working properly

iam attaching here with image which is protected.

Sub addcolumns1()
Dim numcol As String
numcol = InputBox("Enter number of columns to insert:", _
  "Number of Column?")
If numcol = "" Then
    MsgBox ("No value entered")
    Exit Sub
End If
Range("S1").Resize(, numcol).EntireColumn.Insert
Columns(18).EntireColumn.Copy Range("S1").Resize(, numcol)


End Sub

As well as i am looking for deleting the entire column which is added by above code by input box

 

[Johnny Thunder]

you can add a line to unprotect the worksheet as the code runs and then re-protect so that no one messes anything up.

Here is a code another user posted to get the lines for the protect/unprotect

Sub ProtectAll
Dim

 sh As Worksheet
Dim myPassword AsString
myPassword = "password"

ForEach sh In ActiveWorkbook.Worksheets
sh.Protect Password:=myPassword
Next sh

EndSub

Sub UnprotectAll()
Dim sh As Worksheet
Dim myPassword AsString
myPassword = "password"

ForEach sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:=myPassword
Next sh

End Sub

 

[bhandari]

Thnaks for your code,its working propely.
but i dont want to protect complete sheet,some of the columns need to unprotect