ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Fixing the number of Coloms and rows. (https://www.excelbanter.com/excel-discussion-misc-queries/125063-fixing-number-coloms-rows.html)

Hunter

Fixing the number of Coloms and rows.
 
How can I Fix the Rows (suppose I want only 30 row in my worksheet) number so
that no one (without a password) can change the length of rows...


Max

Fixing the number of Coloms and rows.
 
Below is one response to your multi-post in .worksheet.functions
(Please do not multi-post)

----
One play to restrict the scrolling area..

In a new book, try the sub below,
which is to be placed in the "ThisWorkbook" module

Right-click on the Excel icon just to the left
of "File" on the menu Choose "View Code"
(This will bring you direct into the "ThisWorkbook" module)

Copy Paste the sub below into the code window on the right

'--------
Private Sub Workbook_Open()
Worksheets("Sheet1").ScrollArea = "A1:B10"
End Sub
'--------

Save the book, then re-open it, and test it out.
The scroll area in Sheet1 will be restricted to the range as defined,
viz.: A1:B10

Adapt to suit ..
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"HUNTER" wrote:
How can I Fix the Rows
(suppose I want only 30 row in my worksheet) number so
that no one (without a password) can change the length of rows...


Nick Hodge

Fixing the number of Coloms and rows.
 
Hunter

You could set the scrollarea in a workbook_open event like

Private Sub Workbook_Open()
Sheet1.ScrollArea = "$A$1:$Z$50"
End Sub

This goes in the ThisWorkbook module

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"HUNTER" wrote in message
...
How can I Fix the Rows (suppose I want only 30 row in my worksheet) number
so
that no one (without a password) can change the length of rows...




All times are GMT +1. The time now is 08:41 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com