XLorate by davesexcel

Private Sub CommandButton1_Click()
    If TextBox1 = "Password" Then
        Sheets("Worksheet1").Visible = True
        MsgBox "Wrong Password"
    End If
    Unload Me
End Sub

In the textbox Properties Window, find PasswordChar and type in *

The UserForm Codes

Click the Shape to Show the UserForm

Macro to Open UserForm

When a selection is made from the ComboBox, we need something to happen so that the textboxes fill.

Draw Button on UserForm and name it btn_Close

Select Label and Draw it on the UserForm, then in the Label Properties Window Change the Caption

If you have not done so yet, add the Developer Tab to the Ribbon

excel add developer tab

First one must learn how to Create an Excel UserForm

How to create a userform in excel, userform excel create, draw form,draw userform

This page is dedicated to UserForm inquiries

Create Userform,How to Create UserForms,Excel UserForms,Find criteria using combobox in userform

Code to add textboxes to a UserForm

Private Sub CommandButton1_Click()
    Dim Ctrl As MSForms.Control
    Dim N As Long
    Dim msg As String

    For Each Ctrl In UserForm1.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            N = N + 1
        End If
    Next Ctrl

    For i = 1 To N
        msg = msg & Me.Controls("TextBox" & i).Value & vbCr
    Next i
    MsgBox msg

End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim TbxAdd As Control
    Dim x As Integer
    Dim cnT As Integer
    Dim s As String
    Dim Rws As Long
    Rws = Cells(Rows.Count, "A").End(xlUp).Row

    x = 0
    For cnT = 1 To Rws
        s = "Textbox" & cnT
        Set TbxAdd = Me.Controls.Add("Forms.TextBox.1", s)
        With TbxAdd
            .Width = 30
            .Height = 15
            .Left = 10
            .Top = 0 + 24 * (cnT - 0.5)
        End With
        UserForm1.Controls(s).Value = Cells(cnT, 1)
        x = x + 1

    Next cnT
    Me.Height = 172 / 6 * Rws
End Sub

dynamically create textboxes, automatically creating textboxes,add textboxes excel, vba to add textboxes, add many textboxes

Add TextBoxes to a UserForm with VBA

Draw a textbox and Button on a new UserForm

create paswoord box,password,excel password,vba password

Password UserForm

Private Sub btn_Close_Click()
'close the UserForm
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim Rws As Long, Rng As Range
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range(Cells(2, 1), Cells(Rws, 1))
    cbo_Country.List = Rng.Value
End Sub

Private Sub cbo_Country_Change()
    Dim Rws As Long, PopRng As Range, WebRng As Range, CtRy As Range
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range(Cells(2, 1), Cells(Rws, 1))
    Set CtRy = Rng.Find(what:=cbo_Country, lookat:=xlWhole)
    Set PopRng = CtRy.Offset(0, 2)   'set PopRng
    Set WebRng = CtRy.Offset(0, 3)  'set WebRng
    Txt_Pop = PopRng
    Txt_NetUsers = WebRng

End Sub

Adding a Button to your Worksheet

We can add a button or any kind of shape to the worksheet so that when clicked on, the code will run

When the UserForm Pops up, we want the combobox to populate, so we need to add code the the UserForm Initialize Code

Right click the button and select view code, add code to the button.

Draw The Combobox and name it cbo_Country

Change Caption to Country Name

This is a Blank UserForm

In Developer Tab select Visual Basics

We need to start with some Data