hi,
the following code starts with unprote the sheet and end with protected
sheet, now the problem is anybody can unprotect the sheet and do
something in the sheet . to avoid that i wanted to protect the sheet
with my own password say 'nowfal'. Is it possible to do that . if so
please help me in this matter .


Sub FCY2()
'
' FCY2 Macro
' Macro recorded 15/07/2004 by Musandam
'

'
ActiveSheet.Unprotect
Sheets("BILL").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("RECORD").Select
Range("A2:AH12000").Select
Selection.Copy
Range("A3").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False,
_
IconFileName:=False
Range("C2:H2").Select
Selection.ClearContents
Range("J2:L2").Select
Selection.ClearContents
Range("N2").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=6
Range("O2:R2").Select
Selection.ClearContents
Range("T2:W2").Select
Selection.ClearContents
Range("Y2:AB2").Select
Selection.ClearContents
Range("AD2:AG2").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
Range("D2").Select
ActiveSheet.Protect DrawingObjects:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub


--
nowfal
------------------------------------------------------------------------
nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003
View this thread: http://www.excelforum.com/showthread...hreadid=386565