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
Yes got it, but active sheet is password protected, any solution for that.
On Tue, Sep 10, 2013 at 8:29 PM, De Premor d...@premor.net wrote:
If you want to select current sheet, Use* ActiveSheet *to select it,
not ActiveWorkbook
*ActiveSheet*.Unprotect
bla...bla...bla...
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
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
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 d...@premor.net wrote:
Ups Sorry, i've forgot a line code for unlocking you sheet protection
See at Line 4
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
?,
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