Yes, working fine.
Can you please explain me
Birth.Interior.Pattern = xlSolid
PANo.Interior.Pattern = xlSolid
and when we are entering Birthdate using other than "/" it gives error,
instead of debug error, can we put error message.
Regards
On Tue, Sep 10, 2013 at 8:48 PM, De Pr
If you sheet protected by a password, you can add a password on next
statement
Before doing some change on sheet, add this line
ActiveSheet.Unprotect "MySheetPassword"
and after done with it, lock it again by using the same password
ActiveSheet.Protect "MySheetPassword"
Pada 10/09/2013 2
Yes got it, but active sheet is password protected, any solution for that.
On Tue, Sep 10, 2013 at 8:29 PM, De Premor wrote:
> If you want to select current sheet, Use* ActiveSheet *to select it,
> not ActiveWorkbook
>
> *ActiveSheet*.Unprotect
>
> bla...bla...bla...
>
> *ActiveSheet*.Protect
If you want to select current sheet, Use*ActiveSheet *to select it, not
ActiveWorkbook
*ActiveSheet*.Unprotect
bla...bla...bla...
*ActiveSheet*.Protect
Pada 10/09/2013 21:52, ITP Abdulgani Shaikh menulis:
Dear Sir,
This sheet is again giving problem, please see attachments. When I am
addi
Thnks its working fine.
Can you do something for 2 issue, I know it require lil bit time
Or do partly & guide me, i will try for it
Once again thnks
On Sep 2, 2013 7:16 PM, "De Premor" wrote:
> Ups Sorry, i've forgot a line code for unlocking you sheet protection
>
> See at Line 4 and last li
Ups Sorry, i've forgot a line code for unlocking you sheet protection
See at Line 4 and last line that i've bold
Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
*Sheet5.Unprotect
*If IsEmpty(Birth) Then
Birth.Interior.Col
Try this
Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox("Birth Date is empty, Do you want to enter data now
?", vb
