Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lock out worksheet
I have a macro that will e-mail a worksheet to coworkers. Is there a wa that I can lock out this e-mail so recipients can only read the shee and not make any changes -- parteegolfe ----------------------------------------------------------------------- parteegolfer's Profile: http://www.excelforum.com/member.php...fo&userid=3195 View this thread: http://www.excelforum.com/showthread.php?threadid=52363 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lock out worksheet
same protection you have anywhere else.
lock all the cells and protect the sheet. locking cells is done through format=cells, protection tab protecting the sheet is done through tools=Protection=Protect sheet. If you have excel 2002 or later, you can also uncheck the first two options so the user can't select in the sheet. Then save the copy of the workbook. -- Regards, Tom Ogilvy "parteegolfer" wrote: I have a macro that will e-mail a worksheet to coworkers. Is there a way that I can lock out this e-mail so recipients can only read the sheet and not make any changes? -- parteegolfer ------------------------------------------------------------------------ parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951 View this thread: http://www.excelforum.com/showthread...hreadid=523633 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lock out worksheet
Is there a way to do this with code to lock the sheet that is create here which is to e-mailed in this macro? I know I van protect th original however I would like the e-mailed copy only protected. PROTECTION SOMEWHERE HE Sub Mail_Range() Dim source As Range Dim dest As Workbook Dim strdate As String Set source = Nothing On Error Resume Next Set source = Range("A1:J100").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If source Is Nothing Then MsgBox "The source is not a range or the sheet is protect please correct and try again.", vbOKOnly Exit Sub End If Application.ScreenUpdating = False Set dest = Workbooks.Add(xlWBATWorksheet) source.Copy With dest.Sheets(1) .Cells(1).PasteSpecial Paste:=8 ' Paste:=8 will copy the column width in Excel 2000 and higher ' If you use Excel 97 use the other example .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False End With strdate = Format(Now, "dd-mm-yy h-mm-ss") With dest .SaveAs "Selection of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail "", "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Su -- parteegolfe ----------------------------------------------------------------------- parteegolfer's Profile: http://www.excelforum.com/member.php...fo&userid=3195 View this thread: http://www.excelforum.com/showthread.php?threadid=52363 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to lock cell and worksheet? | Excel Discussion (Misc queries) | |||
Lock worksheet, based on dropdown selection prior worksheet | New Users to Excel | |||
Lock Zoom of Worksheet. | Excel Programming | |||
Permantly lock a worksheet | Setting up and Configuration of Excel | |||
How to lock worksheet formatting? | Excel Worksheet Functions |