Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help on checkbox and textbox on userform
1. i got 4 checkbox in a frame. when a user click commandbutton1 i need it
to check if checkbox1.value = true then print sheet1 if checkbox2.value = true then print sheet2 etc through to checkbox4 2. when user click commandbutton2 i need it to check if textbox1.value = "user2". if it does i need sheet6 unprotected. (is protected with password "user1"). the value of textbox2 must be placed in cell (F33). sheet6 protected with password "user1". thanx guys Phillip |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help on checkbox and textbox on userform
Hi Philip
The code below is one way of doing it Option Explicit Dim i As Integer Dim Ctrl As Control Private Sub CommandButton1_Click() For i = 1 To 4 Set Ctrl = UserForm1.Controls("CheckBox" & i) If Ctrl.Value = True Then Sheets(i).Activate ActiveWindow.SelectedSheets.PrintOut _ Copies:=1, Collate:=True End If Set Ctrl = Nothing Next i End Sub Private Sub CommandButton2_Click() If TextBox1.Value = "user2" Then With Sheets(6) .Unprotect ("user1") .Cells(33, 6).Value = TextBox2.Value .Protect ("user1") End With End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
checkbox and textbox help needed | Excel Programming | |||
Action Event, CheckBox, Add Row and Textbox | Excel Discussion (Misc queries) | |||
link a checkbox in a sheet to a checkbox on a userform? | Excel Programming | |||
Excel VBA - Userform Checkbox/Textbox Problem | Excel Programming | |||
UserForm TextBox to ActiveSheet TextBox over 256 characters | Excel Programming |