Hi,
I have an Excel 2013 sheet with a button that unlocks a sheet and saves that sheet without the formulas and button, (values only), to a new workbook then locks the new sheet but it leaves the original sheet unlocked. I need a way for it to also re-lock the original sheet. I'm just trying to dummy proof this for someone that keeps deleting stuff.
Big thanks to those who have helped me get this far with it.
This is my macro so far:
Thanks,![]()
Sub SaveAs4ab() ActiveSheet.Unprotect "Password" ActiveSheet.Copy Set newbk = ActiveWorkbook newbk.ActiveSheet.Cells.Copy newbk.ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues InitialName = Format(Date, "mm-dd-yy") & ".xlsx" FName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _ fileFilter:="Excel Files (*.xlsx), *.xlsx") newbk.SaveAs Filename:=FName newbk.ActiveSheet.Buttons.Delete Range("L2").Select ActiveSheet.Protect "Password" End Sub
Foos Master
"Foosball is Therapy"
Bookmarks