How to Control the userForms and their Comand Button

Hello Sir,

in my last post i was asked to Mr. stojk89 sir to create / insert a new sheet automatically when i enter the name in Listed range

He explained me with beautiful solutions and with good example work book

the code is

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range
    Dim n As Integer
    Dim SheetExists As Boolean
    If Target.Cells.Count > 1 Then Exit Sub

    On Error GoTo ResetApplication
    Application.EnableEvents = False

    Set isect = Intersect(Target, Range("B:B"))

    If Not isect Is Nothing And Target <> "" Then
        For n = 1 To Sheets.Count
            If Sheets(n).Name = Target Then
                SheetExists = True
                Exit For
            End If
        Next
        If Not SheetExists Then
            ThisWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

            ActiveSheet.Name = Target

            Me.Activate
            Target.Select
            Sheets("Sandhya Enterprises").Range("A:Z").Copy Sheets(Target.Value).Range("A1")
            
            With Sheets(Target.Value)
                .Range("B2").Value = .Name
            End With
            Sheets(Target.Value).Activate
        End If
    End If

ResetApplication:
    Err.Clear
    On Error GoTo 0
    Application.EnableEvents = True
    Set isect = Nothing
End Sub

Which base sheet is coping for new sheet, in the base sheet i insert the array formula

when i insert a new name in list then the sheet is copied and pasted in with inserted name

when i protect the base sheet then it will working but the formulas are not working it's coping as like text of the base sheet

so how can i copy the base sheet with formulas when the sheet is protected

if possible Kindly suggest

With Regards

Patnaik

Please use CODE tags for inserting Codes
This part of code needs to be changed:
From

Target.Select
Sheets("Sandhya Enterprises").Range("A:Z").Copy Sheets(Target.Value).Range("A1")

With Sheets(Target.Value)

To

Target.Select
Sheets("Sandhya Enterprises").Unprotect Password:="passwod" 'replase password with actual password
Sheets("Sandhya Enterprises").Range("A:Z").Copy Sheets(Target.Value).Range("A1")
Sheets("Sandhya Enterprises").Protect Password:="passwod" 'replase password with actual password

With Sheets(Target.Value)