Results 1 to 2 of 2

Thread: Protected Sheet and Cell Formating
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Jun 2018
    South Africa
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)

    Default Protected Sheet and Cell Formating

    I created a document, Job Card, for our technicians to fill in after completion of work. There is plenty formulas in there as well as certain size constraints for printing purposes. Therefore I protected the sheet with a password. Pretty straight forward.
    Some of the technicians want to be able to change the font for the sections that they fill in. (Kind of a personal signature/personality thing) I have no issues with that. Firstly I would like to create a VBA code for them to be able to do this. I will create my code by selecting all the ranges that they is filled in, including those with the formulas that is locked. They must choose the font name, and enter that into a provided space/cell and run the code by means of a form control button. One of my issues that I currently have is that when some fonts are chosen, the cell width or height are automatically adjusted. I would like to prevent this, as this will affect the print region. Especially if the cells are now bigger than before.

    Is there some code that I can use to prevent the cells from auto size with a font change?

    Thanks in advance for your assistance.

  2. #2
    Board Regular Gerald Higgins's Avatar
    Join Date
    Mar 2007
    Post Thanks / Like
    3 Post(s)
    0 Thread(s)

    Default Re: Protected Sheet and Cell Formating

    Oh wow, if this was me I definitely would NOT want to allow users to change the font to suit themselves.
    But if you want to do that, why not include within your existing code, some new code towards the end to reset the row height / column width back to whatever they should be.
    The following is my SIGNATURE. It's not part of any question or solution I'm posting. If it IS your solution, you've got a very weird problem !

    Sub Macro()
    ActiveCell = "IY" & Right(Application.Name, 5)
    With ActiveCell.Characters(Start:=2, Length:=1).Font
    .Name = "Webdings"
    .Color = 255
    End With
    End Sub

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts