Hide Array and Excel - (Moved)

[AUTOLAB]

Hello AutoIt community,

I would like to be able to use this script to create a user account to which only certain people (in an Excel list) have access.

How can Excel as well as the array be hidden from the user?

I know "GUICtrlSetState(-1,$GUI_HIDE)" doesn`t work ...

 

My Skript:

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Excel.au3>

#Region ### START Koda GUI section ### Form=
Global $Form_Benutzeraccount = GUICreate("Benutzeraccount", 300, 100, 600, 200)
$Label_Willkommen = GUICtrlCreateLabel("Herzlich Willkommen!", 30, 10, 112, 20)
$Button_Registrieren = GUICtrlCreateButton("Registrieren", 30, 60, 107, 25)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Button_Login = GUICtrlCreateButton("Login", 160, 60, 99, 25)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label1 = GUICtrlCreateLabel("Neu hier:", 30, 40, 112, 20)
$Label2 = GUICtrlCreateLabel("Bereits registriert:", 160, 40, 170, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_Login
            _Login()
        Case $Button_Registrieren
            _Registrieren()
    EndSwitch
WEnd

Func _Registrieren()
Global $Form_Reg = GUICreate("Registrieren", 300, 100, 600, 200)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Username:", 30, 8, 55, 20)
$Label2 = GUICtrlCreateLabel("Passwort:", 30, 32, 67, 20)
$Input1 = GUICtrlCreateInput("", 114, 8, 121, 21)
$Input2 = GUICtrlCreateInput("", 114, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Registrieren", 113, 56, 121, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form_Reg)
            ExitLoop
        Case $Button1
            Local $var = "C:\Users\Admin\Desktop\Benutzeraccount\Berechtigte_Benutzer.xlsx"
            Local $Eingabe = GUICtrlRead($Input1)
            Local $Excel_open = _Excel_Open()
            Local $Workbook_open = _Excel_BookOpen($Excel_open, $var)
            Local $read_B = _Excel_RangeFind($Workbook_open, $Eingabe)

            If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: Berechtigte_Benutzer", "Error." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
            _ArrayDisplay($read_B, "Excel UDF: Berechtigte_Benutzer", "", 0, "|", "Sheet|Name|Cell|Value|Formula|Comment")
            GUICtrlSetState(-1,$GUI_HIDE);FEHLER: Befehl wird nicht ausgeführt.
            $searchArray = _ArraySearch($read_B, $Eingabe, 0, 0, 0, 0, 1, -1, True); Resultat 3 = True und -1 = False
            GUICtrlSetState(-1,$GUI_HIDE);FEHLER: Befehl wird nicht ausgeführt.
            If $searchArray = "-1" Then
            MsgBox(0,"Array-Inhalt","Sie haben leider keine Zulassung zu einem Benutzerkonto.")
            EndIf
            If $searchArray = "3" Then
            Local $Benutzeraccount = "\Benutzeraccount\"
            $username_neu = GUICtrlRead($Input1)
            $passwort_neu = GUICtrlRead($Input2)

            If FileExists("C:\Users\Admin\Desktop\Benutzeraccount\" & $username_neu & "\" & "Name_" & $username_neu & ".txt") Then
            MsgBox(16, "Fehler!", "Account existiert schon!" & @CRLF & @CRLF & "Wenn sie ihr Passwort vergessen haben," & @CRLF & "müssen sie sich einen neuen Account" & @CRLF & "mit anderen Zugangsdaten zulegen.")
            _Registrieren()
            EndIf

            DirCreate("C:\Users\Admin\Desktop\Benutzeraccount\" & $username_neu)
            FileWrite("C:\Users\Admin\Desktop\Benutzeraccount\" & $username_neu & "\" & "Name_" & $username_neu & ".txt", $username_neu & @CRLF)
            FileWrite("C:\Users\Admin\Desktop\Benutzeraccount\" & $username_neu & "\" & "Passwort_" & $passwort_neu & ".txt", $passwort_neu & @CRLF)
            MsgBox(0, "Erfolgreich!", "Sie haben sich erfolgreich Registriert," & @CRLF & "loggen sie sich jetzt bitte ein.")
            GUIDelete($Form_Reg)
            _Login()
            EndIf
    EndSwitch
WEnd
EndFunc

 

[Melba23]

Moved to the appropriate forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team

[water]

Please have a look at the help file, function _Excel_Open. The “visible” parameter is what you need. 

[AUTOLAB]

Ok I`ll try. Thank You water!

[AUTOLAB]

Nice! _Excel_Open(False) worked well for the Excel File.

Edited September 8, 2021 by AUTOLAB

[water]

😊