VB Projects and XLM Sheets cannot be saved in a macro-free workbook.

Hello XL Guru,
I got no idea why my new work book not working. While the old workbook i used the same code is doing fine but not this.

Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets

        wSheet.Protect Password:="123", _
        UserInterFaceOnly:=True
Next wSheet
End Sub

Sub SaveScreeningWithNewName()
    Dim NewFN As Variant
    ' Copy Screening to a new workbook
    Sheets(Array("Screening", "Agent-Sea", "Agent-Air", "B.Confirmation", "S.I.", "HBL")).Copy
    ActiveSheet.Shapes.Range(Array("****")).Delete
    NewFN = "\\CYCHUA-PC\Users\Public\Documents\Agent Record\" & Sheets(1).Range("G1").Text & Sheets(1).Range("H2").Value & " " & Sheets(1).Range("c3").Text & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
End Sub
Sub NextScreening()
    Sheets(1).Range("h1").Value = Range("h1").Value + 1
End Sub

Sub uncheck_all()
Dim sh As Shape
Application.ScreenUpdating = False
    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoOLEControlObject Then
        If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
      End If
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
      End If
    Next sh
Application.ScreenUpdating = True
End Sub

Sub ClearUnlockedCells()
 
    Dim wks As Worksheet
 
    For Each wks In ThisWorkbook.Worksheets
        On Error Resume Next
        wks.UsedRange.Value = vbNullString
        Err.Clear: On Error GoTo -1: On Error GoTo 0
    Next wks
 
    Set wks = Nothing
 
End Sub

When i test run on the macro, it kept showing message as titled mentioned above.
Greatly appreciated, if any1 would point out where my mistake is.

I understand that macro could not run on a protected sheets. After google for hours, i found this userinterface thingy, still no luck.

Thanks for your reply, Andy.

Tried that too, when i google around last 2 hours ago.
Window, pop out the message as " This extension can not be used with the selected file type. Change the file extension in the file name text......."

You mean this below?

Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets

        wSheet.Protect Password:="123", _
        UserInterFaceOnly:=True
Next wSheet
End Sub

Sorry to tell you. All of the code is i get help at excelforum and google.
I understand partially from your replied above. But not really get it what object to change or something. Very sorry on this, i am a nut in VBA.

Same there. I am okay with it, if my new saved file is macro-enable or not.

Before i come to board, i switch from .xslm and xslx. But both no luck.

I even un-protect all of my 14 sheets and test it to run again. But still the same.

Ok, got it now. Partially okay on my code for now. Just that my saved file name does not work as coded.

Hold a sec., need to get rid of that.

Excelobject.png

You mean "Thisworkbook" suppose to be listed on the left circled area?

Hi Andy, all set and good to go.
Just that, i understand if i have another query, i should post a new thread again. If it is convenience for you, hope that you are able to advise me a little.

Sheet(1) cell H1 is my reference number and newly saved file name.
Is it possible to make exception on the below code, not to clear the contents on H1, so that another code of mine to +1 on the value is workable.

Code - Clear Contents

Sub ClearUnlockedCells()
 
    Dim wks As Worksheet
 
    For Each wks In ThisWorkbook.Worksheets
        On Error Resume Next
        wks.UsedRange.Value = vbNullString
        Err.Clear: On Error GoTo -1: On Error GoTo 0
    Next wks
 
    Set wks = Nothing
 
End Sub

Code +1 on H1

Sub NextScreening()
    Sheets(1).Range("h1").Value = Range("h1").Value + 1
    uncheck_all
End Sub