Hi

1. Unprotect the sheet, do your stuff and re-protect it.

me.unprotect Password:="JustMe"
'your code
me.protect Password:= "JustMe"

2. I would create a template sheet within the workbook, set up with formulas
and other standard information. Once the template sheet is as desired make
it invisible.
Then insert a new sheet and copy the template to new sheet.
Finally add the new vendor to the tally sheet and adjust formulas.

Hopefully this example will get you started:

Sheets("Template").Visible = False ' Only needed to hide the sheet
"Template"
Set newSh = Sheets.Add(after:=Sheets(Sheets.Count))
NewVendor = InputBox("Enter name of new vendor :")
If NewVendor = "" Then GoTo Finito
newSh.Name = NewVendor
Sheets("Template").Range("A1.H100").Copy Destination:=newSh.Range("A1")
' Insert vendor in tally sheet and adjust formulas

Finito:
Set newSh = Nothing

Regards,
Per

"DesertRatFloatingInTheOcean"
.com skrev i meddelelsen
...
I need some help with two things.

1. I know this is probably a very basic question but any help anyone can
give me would be greatly appreciated. I have a work book that I made for
keeping up with rental costs. I need to be able to have the workbook
locked
from formating and deleting formulas. I want to place a button at the top
of
all the sheets that will add five rows at a time to the last row. Here's
the
other part when it adds the rows they need to have the same formatting and
the updated formulas in them.

Everytime I have tried a macro it doesnt work.

2. This workbook also has a tally sheet with all the names of our vendors
and their running totals for each and a grand total for all. I need
another
button to add a new sheet that is a blank of the rental sheet. And at the
same time update the tally sheet with the new sheets name and total amount
and update the the formula I have to add the grand total.

I hope that makes sense and someone can help.

Thanks