Защита на изменение шрифтов и размеров ячеек.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Защита на изменение шрифтов и размеров ячеек. (Формулы/Formulas)

JaguarKo

Дата: Пятница, 27.02.2015, 11:37 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Здравствуйте,

Можно ли как то защитить изменение шрифтов и размеров ячеек.
Проблема в том что когда пересылаю файл другим людям у них стоит другой шрифт из-за это вбиваемые данные не влезают в ячейку.
Может есть какой то макрос который привяжет определенный шрифт к листу?

Ответить

Nic70y

Дата: Пятница, 27.02.2015, 17:03 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9131

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

используйте Courier New - не ошибетесь.
если на "компе" нет того шрифта, что вы хотите - его не будет!

ЮMoney 41001841029809

Ответить

МВТ

Дата: Пятница, 27.02.2015, 20:10 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

UPD
В обработчик событий листа вставьте вот такой код
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      With Target.Font
      .Name = "Times New Roman"
      .Size = 12
      .Bold = False
      .Italic = False
      End With
      Target.ColumnWidth = 12
End Sub

[/vba]
И да, необходимо, чтобы шрифт был установлен в системе, как и писал Nic70y

Сообщение отредактировал МВТ - Пятница, 27.02.2015, 20:54

Ответить

JaguarKo

Дата: Суббота, 28.02.2015, 04:33 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Nic70y, Здравствуйте, мне нужно что бы стоял шрифт Calibri.

Ответить

JaguarKo

Дата: Суббота, 28.02.2015, 04:35 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

МВТ, Здравствуйте,

Нужно на лист нажать правой кнопкой и зайти в Исходный текст, и туда вставить? И потом сохранить как макрос, правильно?

Ответить

Nic70y

Дата: Суббота, 28.02.2015, 08:46 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9131

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

http://joxi.ru/Q2Kx7WviwbRvAj

Цитата JaguarKo, 28.02.2015 в 04:35, в сообщении № 5

И потом сохранить как макрос

http://joxi.ru/52aQYGVsb9nl20

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 28.02.2015, 08:46

Ответить

JaguarKo

Дата: Суббота, 28.02.2015, 08:53 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Nic70y, Здравствуйте,

Не получилось, когда открыл этот файл на другой машине он открылся под другим шрифтом. Нужный мне шрифт присутствует на том компе.
У меня офис на русском, на других машинах офис на китайском, там все файлы он открывает в своем шрифте.

Ответить

Nic70y

Дата: Суббота, 28.02.2015, 09:06 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 9131

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

.Name = "Calibri"
.Size = 11

[/vba]попробуйте изменить эту часть

или так (наверное) в модуле книги
[vba]

Код

Private Sub Workbook_Open()
     With Cells.Font
     .Name = "Calibri"
     .Size = 11
     .Bold = False
     .Italic = False
     End With
End Sub

[/vba]

К сообщению приложен файл: 6747130.xlsm (13.4 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 28.02.2015, 09:19

Ответить

Manyasha

Дата: Суббота, 28.02.2015, 09:24 | Сообщение № 9

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

JaguarKo, макрос MBT работает при изменении листа, т.е., если они изменят ячейку, то ее шрифт поменяется на Ваш.
Если язык офиса по умолчанию стоит китайский, при открытии файла шрифт будет тоже китайским. Либо меняйте язык в настройках на русский/английский, либо при открытии книги добавьте
[vba]

Код

Private Sub Workbook_Open()
     For i = 1 To Sheets.Count
         With Sheets(i).UsedRange
            .Font.Name = "Calibri"
            .Font.Size = 12
            .ColumnWidth = 12
         End With
     Next i
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

МВТ

Дата: Суббота, 28.02.2015, 17:13 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Manyasha, согласен, подразумевал, что лист уже отформатирован под определенный шрифт исходя из первоначального поста:

Цитата JaguarKo, 27.02.2015 в 11:37, в сообщении № 1

Проблема в том что когда пересылаю файл другим людям у них стоит другой шрифт из-за это вбиваемые данные не влезают в ячейку.

Ответить

Защита на изменение шрифтов и размеров ячеек. (Формулы/Formulas)

Страница 1 из 1
1