VB to insert a row in a password protected book

[lbradbury]

Hello,

I have this code, so simply add a line when a object button is pushed. However, I want to password protect the sheet, and naturally this vba does not work then. How do I write in a code that will allow for the rows to be inserted?

Sub addline()
'
    Rows("23:23").Select
    Selection.Copy
    Rows("24:24").Select
    Selection.Insert Shift:=xlDown
End Sub

 

[mrshl9898]

Sub addline()

Sheets("Sheet1").UnProtect Password:="myPassword"

    Rows("23:23").Select
    Selection.Copy
    Rows("24:24").Select
    Selection.Insert Shift:=xlDown

Sheets("Sheet1").Protect Password:="myPassword"

End Sub

 

[Peter_SSs]

- If your current code is working (apart from the sheet protection) then you don't need to specify the sheet name. The advantage of that is the code would still work even if the sheet name gets changed.
- Selecting in vba is rarely required and can slow your code.
- When inserting a whole row there is no need to specify to shift the others down as there is no other way for them to go.
- No need to double-up the row numbers or use quote marks in this case.

So an alternative is

Sub addline()
  With ActiveSheet
    .Unprotect Password:="myPassword"
    .Rows(23).Copy
    .Rows(24).Insert
    .Protect Password:="myPassword"
  End With
End Sub