Error 400

[Ambiguooous]

Hi to all ..

I want to know what is the problem with me in this code ?? because not accepted to run (error 400)

Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy")
End Sub

 

[Fluff]

Try

ws.UsedRange[COLOR=#ff0000].Value[/COLOR] = ws.UsedRange.Value

 

[nemmi69]

Error 400's are a bit funky. Best way to source the error is to step through the code. PS the code ran fine on my PC

 

[Ambiguooous]

.

 

[Ambiguooous]

Do you think the protection of the original file is related to ? because there is password on the workbook !!

 

[Ambiguooous]

Try

ws.UsedRange[COLOR=#ff0000].Value[/COLOR] = ws.UsedRange.Value

still the error is there

 

[Fluff]

If you have sheet protection, then you will need to remove it.
Record a macro of you unprotecting & reprotecting a sheet & see if you can add that to your code.

 

[Ambiguooous]

I removed the sheets protection from each sheet & replace it with a file password "when you want to open the workbook, it ask you the password" and it works however the new generated file needs the same password, what is the amendment i need in order to generate a new workbook "free password"



Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy")
End Sub

 

[Ambiguooous]

awaiting your advise as i need it urgently

 

[Ambiguooous]

I removed the sheets protection from each sheet & replace it with a file password "when you want to open the workbook, it ask you the password" and it works however the new generated file needs the same password, what is the amendment i need in order to generate a new workbook "free password"



Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy")
End Sub

Help Pleeeeeease !!