Re: ]] XL-mania [[ two coloum password with different password....excel 2003

 

Modification:
InputBox for password (using InputBox function) is changed > UserForm.
With TextBox in UserForm : password can be displayed as "*******"
or other character you want.

'=== Standard Module ===
Function UserValidation(ColNo As Integer) As Boolean
Dim PassX As String
PassX = IIf(ColNo = 2, passB, IIf(ColNo = 4, passD, ""))
UserForm1.Show
UserValidation = IIf(Pswd = PassX, True, False)
End Function

'====UserFORM Module====
Private Sub OKButton_Click()
Pswd = TxtPwd
If Not TxtPwd = "" Then Unload Me Else TxtPwd.SetFocus
End Sub

'=== sheet1 MODULE ===
' remain unchanged


  

On Sun, Jul 26, 2009 at 6:15 PM, siti <setiyowati.devi@gmail.com> wrote:

assuming: Column_1 = C column, Column_2 = E column
'===makro in Standard MODULE===
Public Const SheetPswd As String = "ZIGEN"  '<<-- please reName
Public Const passC As String = "passforC"   '<<-- please reName
Public Const passE As String = "passforE"   '<<-- please reName
Public isEditC As Boolean
Public isEditE As Boolean
etc-------------------

On Sat, Jul 25, 2009 at 8:23 AM, Zigen X <zigenx@yahoo.com.sg> wrote:

 

HI XL Mania,

How to create two different password protected coloum ?

Password should be different because it will be edited by two different users...

Please explain and thanks in advance......refer to the attachment for more info...

 

Rgds,

__._,_.___

Messages in this topic (3) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN!        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Recent Activity

•  44
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___