Jump to content

Hide Array and Excel - (Moved)


Recommended Posts

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:

#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

 

Link to post
Share on other sites
  • Moderators

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

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites

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

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2021-06-05 - Version 1.5.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (NEW 2021-06-14 - Version 1.6.5.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (NEW 2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (2019-12-03 - Version 1.5.1.0) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to post
Share on other sites

😊

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2021-06-05 - Version 1.5.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (NEW 2021-06-14 - Version 1.6.5.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (NEW 2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (2019-12-03 - Version 1.5.1.0) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...