C
cottage6
I have a spreadsheet we send to numerous vendors that has all the formula
cells protected. We just received a file back from a vendor with incorrect
formulas in it that the vendor should not have been able to change. I'm
reasonably sure the file went to the vendor protected, and I'm trying to
figure out what happened. The file was created in Excel 2002 and works fine
in Excel 2000. The vendor has Excel 2003 which I don't have access to for
testing, and I'm wondering if the protection does not work in the newer Excel
version. I've included the code below. Thanks for any help on this.
Sheets("Period 1").Select
ActiveSheet.Unprotect Password:="vendorprotect"
Cells.Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
'Unprotect Weeks Performance and Plan Units
Range("T7:T120").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("V7:V120").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect Password:="vendorprotect", DrawingObjects:=True,
Contents:=True, Scenarios:=True
cells protected. We just received a file back from a vendor with incorrect
formulas in it that the vendor should not have been able to change. I'm
reasonably sure the file went to the vendor protected, and I'm trying to
figure out what happened. The file was created in Excel 2002 and works fine
in Excel 2000. The vendor has Excel 2003 which I don't have access to for
testing, and I'm wondering if the protection does not work in the newer Excel
version. I've included the code below. Thanks for any help on this.
Sheets("Period 1").Select
ActiveSheet.Unprotect Password:="vendorprotect"
Cells.Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
'Unprotect Weeks Performance and Plan Units
Range("T7:T120").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("V7:V120").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect Password:="vendorprotect", DrawingObjects:=True,
Contents:=True, Scenarios:=True