insert password

**max_max** · 01-26-2014, 02:12 PM

Hello to all,
ask help for a curiosity.
I have a workbook that appears at startup with a notice of welcome userfom.
This userform can close immediately with the close button or wait until the end of the scrolling text.
You can change this?:
----------------------------------------------------------------------------------------------------------------------
instead of the close button to add a box in which to enter a password (already established in VBA) and if I enter the exact file you start otherwise closes.
--------------------------------------------------------------------------------------------------------------------
Thanks in advance.
I hope I explained.
I attach the sample file.
In advance thank you.
max_max

==========================================================================================

Ciao a tutti,
chiedo un aiuto per una curiosità.
Ho un workbook che all'avvio compare un avviso di benvenuto con userfom.
Questa userform posso chiuderla subito con il pulsante chiudi o aspettare la fine del testo scorrevole.
è possibile questa modifica?:
----------------------------------------------------------------------------------------------------------------------
al posto del pulsante chiudi aggiungere una casella in cui inserire una password (già stabilita in VBA) e se la inserisco esattamente il file si avvia altrimenti si chiude.
--------------------------------------------------------------------------------------------------------------------
Grazie in anticipo.
Spero di essermi spiegato.
Allego il file di esempio.
In anticipo ringrazio.
max_max

prova password.xls

**Leith Ross** · 01-27-2014, 09:59 PM

Ciao max_max,

In the attached workbook, the UserForm has been modified for the password. The UserForm is modal, the close X has been removed, closing the Userform using ALT+F4 is disabled, and the user's login Id is used to lookup the password on a new sheet "Elenco".

This sheet holds the allowed user ids and their passwords. If the password and user id do not match then the workbook closes. You should set this sheet's Visible property to xlSheetVeryHidden. This prevents the user from making the worksheet visible. This property can only be changed using the VB Editor. You can change it to xlSheetVisible when you need to edit the list.

The workbook closing feature has been disabled to allow you to setup the user ids and passwords. Once you have done this, you will need to edit the OK button code on the UserForm. Remove the comment character from the beginning of the line marked in bold and save the change.

Private Sub CommandButton1_Click()
  
  ' OK Button
  
    Dim pwd     As Variant
    Dim Rng     As Range
    Dim RngEnd  As Range
    Dim UserId  As String
    Dim Wks     As Worksheet
    
        Set Wks = Worksheets("Elenco")
        
        Set Rng = Wks.Range("A2:B2")
        Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
        If RngEnd.Row < Rng.Row Then GoTo CloseForm Else Set Rng = Wks.Range(Rng, RngEnd)
        
          ' Look up the user id and password.
            UserId = Environ("USERNAME")
            pwd = Application.VLookup(UserId, Rng, 2, 0)
            
            If pwd = TextBox1 Then
                MsgBox "Login Successful!"
            Else
                MsgBox "Login Failed. This Workbook will now Close.", vbExclamation + vbOKOnly
                ' Remove the comment character (single quote) from the line below after you have edited Elenco.
                'ThisWorkbook.Close SaveChanges:=False
            End If
            
CloseForm:
        Unload Me
        
End Sub

**max_max** · 01-28-2014, 03:05 PM

Hello Leith Ross,
Thank you for your help.
there is an error here in module remove_close:
error.jpg
max_max
-----------------------------------------------
Ciao Leith Ross,
grazie per l'aiuto.
C'è un errore qui nel modulo remove_close:
error.jpg
max_max

**Leith Ross** · 01-28-2014, 03:33 PM

Ciao max_max,

Replace the code in the module Remove_Close_X_From_Menubar with the code below.

'// API calls for 32 bit Windows //

' Redraw the Icons on the Window's Title Bar
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long

' Get the handle to the Active Window.
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
  
' Get the current window style
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

' Set the new window style
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Sub RemoveCloseX()

    Dim hwnd    As Long
    Dim RetVal  As Long
  
    Const WS_SYSMENU    As Long = &H80000
    Const GWL_STYLE     As Long = (-16)
  
        hwnd = GetForegroundWindow
        WndStyle = GetWindowLong(hwnd, GWL_STYLE)
        RetVal = SetWindowLong(hwnd, GWL_STYLE, WndStyle And (Not WS_SYSMENU))
        RetVal = DrawMenuBar(hwnd)
    
End Sub

**max_max** · 01-28-2014, 03:57 PM

Hello,
I entered it into Sheet2 (elenco):
nomeutente = massimo
password = 123456
does not work.
I attach the file
max_max
---------------------------------------
Ciao,
ho inserito nel foglio2 (elenco):
nomeutente = massimo
parola di accesso = 123456
non funziona.
Allego il file.
max_max

errror2.jpg
prova password ver 1.xls

**Leith Ross** · 01-28-2014, 04:53 PM

Hello max-max,

I believe I have corrected all the problems. Try the attached workbook below and let me know the results.

**max_max** · 01-28-2014, 05:08 PM

Hello Leih Ross,
now it's perfect!
Thank you very much.
Greetings from Italy.
max_max
----------------------
Ciao Leih Ross,
ora è perfetto!
Grazie mille.
Un saluto dall'Italia.
max_max

**Leith Ross** · 01-28-2014, 04:03 PM

Hello max_max,

Is massimo your Windows logon id?

Edit: I just look at the workbook. There is no sheet named "Elenco".

**max_max** · 01-28-2014, 04:26 PM

My windowsusername is "massimo".

**max_max** · 01-28-2014, 04:44 PM

Error run time 13
Type Mismatch

--------------------------------------------------------------------
' Look up the user id and password.

UserId = "WindowsUserName" '<<<<< changed here
'UserId = Environ("USERNAME")

pwd = Application.VLookup(UserId, Rng, 2, 0)

If pwd = TextBox1 Then '<<<<<< error here
MsgBox "Login Successful!"
Else
MsgBox "Login Failed. This Workbook will now Close.", vbExclamation + vbOKOnly
' Remove the comment character (single quote) from the line below after you have edited Elenco.
ThisWorkbook.Close SaveChanges:=False
End If
--------------------------------------------------------------------

max_max

**Leith Ross** · 01-28-2014, 05:13 PM

Ciao Massimo,

Siete i benvenuti. Sono lieto di potervi aiutare.
(Still learning Italian)

**max_max** · 01-28-2014, 05:19 PM

I hope my English is understandable in this forum.
The translation is done with google translator.
Hello,
max_max
--------------------------------------------------------
Spero che il mio inglese in questo forum sia capibile.
La traduzione è fatta con google traduttore.
Ciao,
max_max

insert password

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Re: insert password

Thread Information

Users Browsing this Thread

Similar Threads

Protecting cells so that a password is required only to Insert Comment.

Protecting cells so that a password is required only to Insert Comment.

External web query to insert password

Insert signature image - password protected

insert password protected spreadsheet

Bookmarks

Bookmarks

Posting Permissions