I
iashorty
I have written a macro to take one sheet from the file and save it. It is
password protected and I need to have it shared. How do I include the sharing?
OpOutputSave = Sheet3.Range("B35")
Sheets(Array("sheet 1", "sheet 2")).Select
Sheets("Sheet 2").Activate
Sheets(Array("Sheet 1", "sheet 2")).Copy
Sheets("Sheet 2").Select
Sheets("Sheet 2").Move Before:=Sheets(1)
ActiveWorkbook.SaveAs Filename:=OpOutputSave, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
password protected and I need to have it shared. How do I include the sharing?
OpOutputSave = Sheet3.Range("B35")
Sheets(Array("sheet 1", "sheet 2")).Select
Sheets("Sheet 2").Activate
Sheets(Array("Sheet 1", "sheet 2")).Copy
Sheets("Sheet 2").Select
Sheets("Sheet 2").Move Before:=Sheets(1)
ActiveWorkbook.SaveAs Filename:=OpOutputSave, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close