I have a piece of code that works perfectly; however, when I try to protect the code via VBAProject – Project Properties, the code errors at the CSV save point (bolded below). I have tried changing from activeworkbook to thisworkbook, but I have the same issue. Is there a way to protect the code and still change the workbook to csv? Thank you.
Case "Save":
Range("Q11").Copy
Range("Q11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
If Range("Q8") = 9999 Then
Worksheets("G").Range("Q:Q").NumberFormat = "General"
Worksheets("G").Range("B:B").NumberFormat = "0000000"
ActiveWorkbook.SaveAs Filename:= _
"P:\Property\2023 B Upload \B9999\" & Range("Q11") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name = "Pre-calculated Copy" Then
Application.DisplayAlerts = False
Worksheets("Pre-calculated Copy").Delete
Application.DisplayAlerts = True
End If
Next Sheet
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Upload Copy"
Worksheets("G").Range("A1:H" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Worksheets("Upload Copy").Range("A1").PasteSpecial Paste:=xlPasteFormats
Worksheets("Upload Copy").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Upload Copy").Select
Worksheets("Upload Copy").Range("B:B").NumberFormat = "0000000"
Worksheets("Upload Copy").Range("F:F").Select
Selection.Style = "Comma"
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:= _
"P:\Property\2023 B Upload \B9999\" & Range("Q11") & ".csv", _
FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWorkbook.Save
End If
If Range("Q8") = 7777 Then
Case "Save":
Range("Q11").Copy
Range("Q11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
If Range("Q8") = 9999 Then
Worksheets("G").Range("Q:Q").NumberFormat = "General"
Worksheets("G").Range("B:B").NumberFormat = "0000000"
ActiveWorkbook.SaveAs Filename:= _
"P:\Property\2023 B Upload \B9999\" & Range("Q11") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name = "Pre-calculated Copy" Then
Application.DisplayAlerts = False
Worksheets("Pre-calculated Copy").Delete
Application.DisplayAlerts = True
End If
Next Sheet
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Upload Copy"
Worksheets("G").Range("A1:H" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Worksheets("Upload Copy").Range("A1").PasteSpecial Paste:=xlPasteFormats
Worksheets("Upload Copy").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Upload Copy").Select
Worksheets("Upload Copy").Range("B:B").NumberFormat = "0000000"
Worksheets("Upload Copy").Range("F:F").Select
Selection.Style = "Comma"
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:= _
"P:\Property\2023 B Upload \B9999\" & Range("Q11") & ".csv", _
FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWorkbook.Save
End If
If Range("Q8") = 7777 Then