Private Sub CommandButton1_Click()
Dim Faute As Long
If Me.TextBox1 = "" Then Exit Sub
ActiveWorkbook.Unprotect
On Error Resume Next
Sheets(Me.TextBox1.Text).Visible = True
Faute = Err.Number
On Error GoTo 0
If Faute > 0 Then
Sheets("Datos").Copy before:=Sheets("Final")
ActiveSheet.Name = Me.TextBox1
Else
MsgBox "Hoja que existe ya"
End If
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub