AUTOLAB Posted September 8, 2021 Posted September 8, 2021 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
Moderators Melba23 Posted September 8, 2021 Moderators Posted September 8, 2021 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 AUTOLAB 1 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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
water Posted September 8, 2021 Posted September 8, 2021 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 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.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 (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
AUTOLAB Posted September 8, 2021 Author Posted September 8, 2021 (edited) Nice! _Excel_Open(False) worked well for the Excel File. Edited September 8, 2021 by AUTOLAB
water Posted September 8, 2021 Posted September 8, 2021 😊 My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.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 (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now