-12

Помогите исправить мой код JAVA

Помогите исправить мой код JAVA Java, Обучение, Программирование, Компьютер, Помощь
Помогите исправить мой код JAVA Java, Обучение, Программирование, Компьютер, Помощь

Ошибка в том, что если я введу сразу двузначное число, делящееся на 5, то он его сложит. Не знаю, как это исправить. Помогите, пожалуйста

КОД:

package hometask;


import java.util.Scanner;


public class homeexample {

public static void main(String[] args) {

Scanner in=new Scanner(System.in);

int x,y;

y=0;

do {

x=in.nextInt();


if (x>10) {

y=x+x;

}else if ()


} while (x%5>0);


System.out.println(y);


}

}

Найдены дубликаты

+1
Чем while отличается от do while?
раскрыть ветку 2
0

Отличаются концепцией, предусловие: while - проверяем - выполняем, и постусловие: do while - выполняем - проверяем.

раскрыть ветку 1
0
Ну вот и ответ.
+1

эм, добавить условие делимости на 5 в if? ну и, вроде как y += x, а не y = x + x;

раскрыть ветку 4
+1

эм, добавить условие делимости на 5 в if?
Зачем?

y += x, а не y = x + x;
Ошибка ж в этом.

раскрыть ветку 3
0

Потомучто он просуммирует одно лишнее число. Если я правильно понял условие задачи, то число, до которого суммируют, само в сумму попадать не должно.

Если должно, то добавлять условие, конечно, не нужно.

раскрыть ветку 2
0

public static void main(String ... args) {

Scanner in = new Scanner(System.in);

int x;

int y = 0;

do {

    x = in.nextInt();

    if (x > 10) {

        y = y + x;

    }

} while (x % 5 > 0);

System.out.println(y);

}

0

Вот так по идее должно заработать, может где какую запятую пропустил, но тут IDE подскажет если что
package hometask;


import java.util.Scanner;


public class homeexample {


public static void main(String[] args) {


Scanner in=new Scanner(System.in);


int x,y;


y=0;

x=1;

while (x%5>0) {


x=in.nextInt();


if (x>10) {


y+=x;


} ;


System.out.println(y);


}


}

0

сразу видно ошибку - сделай y=y+x или y+=x. Сейчас у тебя в переменную y, если кладется, то кладется только х*2, сумма не копится. и сделать бесконечный цикл с условием выхода - делимость на 5

0
Магазин виндовс на панели, переключение окон, поиск... Кулхацкер(
Похожие посты
250

Отправка писем через Gmail, ЯндексПочта и @mail из Excel

Создать интеграцию Microsoft Excel с Outlook, легко, средствами VBA. Можно ли отправлять письма другими почтовыми сервисами? Например, через Gmail, самый популярный в мире почтовый сервис, от Google.

Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта

Ответ можно, используя настройки SMTP, IMAP, POP.

Макросы приложенные к данной статье дают возможность отправить отдельный лист или книгу с помощью CDO.

CDO является библиотекой объектов, которая предоставляет интерфейс Messaging Application Programming Interface (MAPI), позволяет отправлять и получать сообщения.

Решение для MS Office без Outlook.

Алгоритм настройки макросов

Копируйте код в Личную книгу макросов или в файл своей надстройки;

Добавьте в код адрес нужной почты и пароль:

.Item(msConfigURL & "/sendusername") = "ДОБАВЬТЕ ВАШУ ПОЧТУ"

.Item(msConfigURL & "/sendpassword") = "ДОБАВЬТЕ ПАРОЛЬ"

.From = "ДОБАВЬТЕ ВАШУ ПОЧТУ" ' От кого = username почты

Подключите в редакторе VBA (Alt+F11) библиотеку Microsoft CDO для Windows 2000:

Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта
Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта

Код макроса на GitHub

Отправить текущий активный лист, как вложение по эл.почте

Отправить текущую книгу, как вложение по эл.почте

Скачать файл с макросами

Копируйте код на русской раскладке клавиатуры, чтобы сохранить комментарии.

Особенности настройки почты

Как настроить доступ к Gmail в сторонних почтовых клиентах

Если вы используете двухэтапную проверку, следуйте инструкции:

Пароль при установленной двухэтапной проверке
Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта

А как же наши дорогие Яндекс.Почта и @mail?

Чтобы их использовать, удалите или закомментируйте в коде макроса строки .Item(msConfigURL & "/smtpserver") кроме:

Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта

.Item(msConfigURL & "/smtpserver") = "smtp.yandex.ru"

Отправка писем через Gmail, ЯндексПочта и @mail из Excel Microsoft Excel, Компьютер, Полезное, Программирование, Mail ru, Vba, Длиннопост, Gmail, Яндекс Почта

tem(msConfigURL & "/smtpserver") = "smtp.mail.ru"

В заключение, удобный макрос для открытия почты Gmail из Excel при помощи Send Keys:

Sub ActivateGmail() " Активировать почту Gmail
' Открыть
Handle = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
RetVal = Shell(Handle, 1)
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("https://mail.google.com/mail/u/0/#inb..."), True
Application.Wait Now + TimeValue("00:00:03")
SendKeys ("{ENTER}"), True
Application.Wait Now + TimeValue("00:00:02")
'Создать письмо
SendKeys ("C"), True
End Sub

Для браузера Chrome.

Чтобы сразу открывалось окно нового сообщения, в настройках включите Быстрые клавиши.

Измените Handle на путь вашего браузер, а SendKeys ("https://mail.google.com/mail/u/0/#inb...") на другой почтовый клиент, по логике должно работать.

Спасибо, что дочитали до конца!

Было полезно? Ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.

Показать полностью 4
282

Вывод списка файлов в папке на лист Excel

Перед вами стоит задача вывести списком содержимое папки? Этот пост для вас.

Вывод списка файлов в папке на лист Excel Microsoft Excel, Компьютер, Программирование, Полезное, Microsoft, Длиннопост

Вывести cписок файлов в папке можно макросом:

Sub FileListInFolder() 'Вывод содержимого папки на лист Excel
Dim V As String
Dim BrowseFolder As String
'открывает диалоговое окно выбора папки
With Application.FileDialog(msoFileDialogFolderPicker)
.title = "Выберите папку или диск"
.Show
On Error Resume Next
Err.Clear
V = .SelectedItems(1)
If Err.Number <> 0 Then
MsgBox "Вы ничего не выбрали!"
Exit Sub
End If
End With
BrowseFolder = CStr(V)
'добавляет лист и выводит на него шапку таблицы
ActiveWorkbook.Sheets.Add
With Range("A1:E1")
.Font.Bold = True
.Font.Size = 12
End With
Range("A1").Value = "Имя файла"
Range("B1").Value = "Путь"
Range("C1").Value = "Размер"
Range("D1").Value = "Дата создания"
Range("E1").Value = "Дата изменения"
'вызывает процедуру вывода списка файлов
'измените True на False, если не нужно выводить файлы из вложенных папок
ListFilesInFolder BrowseFolder, True
End Sub
Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)
Dim FSO As Object
Dim SourceFolder As Object
Dim SubFolder As Object
Dim FileItem As Object
Dim r As Long
Dim x
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.getfolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1 'находит первую пустую строку
'выводит данные по файлу
For Each FileItem In SourceFolder.Files
Cells(r, 1).Formula = FileItem.Name
Cells(r, 2).Formula = FileItem.Path
Cells(r, 3).Formula = FileItem.Size
Cells(r, 4).Formula = FileItem.DateCreated
Cells(r, 5).Formula = FileItem.DateLastModified
r = r + 1
x = SourceFolder.Path
Next FileItem
'вызывает процедуру повторно для каждой вложенной папки
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
Columns("A:E").AutoFit
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub

Копируйте код и сохраните его в Личной книге макросов.

Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.

Показать полностью
149

Как отключить изменение ширины столбцов Сводной таблицы в Excel

Настроили красивый отчет, но при обновлении данных столбцы съезжают?

Для отключения изменения ширины столбцов Сводной таблицы при обновлении данных, установите курсор на любую ячейку таблицы.

Нажмите правую кнопку мыши и в появившемся меню выберите Параметры сводной таблицы:

Как отключить изменение ширины столбцов Сводной таблицы в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Отчет, Длиннопост

На вкладке Макет и формат, уберите галку с пункта Автоматически изменять ширину столбцов при обновлении:

Как отключить изменение ширины столбцов Сводной таблицы в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Отчет, Длиннопост

Готово! Теперь ширина столбцов будет такой, какую вы задали.

Если, часто работаете с сводными, есть смысл использовать макрос:

Sub PivotStaticColumn() 'Отключение автоматического изменения ширины столбцов при обновлении
Dim pvtTable As PivotTable
On Error Resume Next
Set pvtTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
On Error GoTo 0
If Not pvtTable Is Nothing Then
ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).HasAutoFormat = False
Else
MsgBox "Выделите ячейку Сводной таблицы!", vbExclamation, "Подсказка"
End If
End Sub

Копируйте нужный код и сохраните его в Личной книге макросов.

Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.

Спасибо, что дочитали до конца!

Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.

Еще готовые решения:

Удаление пустых строк в Excel

Удаление пустых столбцов Excel

Показать полностью 1
328

Макрос для удаления пустых строк в Excel

Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?

Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .

Исключая "ручной привод", максимально просто решает проблему, такой макрос:

Макрос для удаления пустых строк в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Офис, Длиннопост

Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:

Sub DelEmptyRows() 'Удаление пустых строк на активном листе

Dim i As Long

Dim rMay1 As Range

Dim rMay2 As Range

Set rMay1 = Application.Range(ActiveSheet.Range("A1"), _

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))

Application.ScreenUpdating = False

'удаляем пустые строки

For i = 1 To rMay1.Rows.Count

If WorksheetFunction.CountA(rMay1.Rows(i).EntireRow) = 0 Then

If rMay2 Is Nothing Then

Set rMay2 = rMay1.Rows(i).EntireRow

Else

Set rMay2 = Application.Union(rMay2, rMay1.Rows(i).EntireRow)

End If

End If

Next

If rMay2 Is Nothing Then

MsgBox "Пустых строк не найдено.", vbInformation, "Информация"

Else:

rMay2.[Delete]

End If

Application.ScreenUpdating = True

End Sub

В продолжение к посту  Макрос для удаления пустых столбцов в книгах Excel.

Показать полностью
56

Создаём Личную книгу макросов VBA

Вам необходимо использовать один и тот же макрос (пользовательскую функцию) в разных рабочих книгах? Нет ничего проще, сохраните его в Личной книге макросов, файл которой имеет название — PERSONAL.XLSB. Он скрыто открывается при запуске программы MS Excel и доступен только на вашем ПК.

Создание и сохранение кода в Личной книге макросов

1. В строке состояния, нажмите иконку записи макроса:

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Или на вкладке Разработчик ► Запись макроса (Код):

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Если вкладка Разработчик отсутствует, нажмите в Строке меню или на Панели инструментов правую кнопку мыши и выберите в меню вариант Настройка ленты...:

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

В окне настройки, установите галку Разработчик:

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

2. В открывшемся диалоговом окне Запись макроса, из выпадающего списка Сохранить в: выберите вариант Личная книга макросов, нажмите на кнопку :

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

На вкладке Разработчик ► Остановить запись (Код).

3. Закройте текущую книгу нажав Сохранить в диалоговом окне:

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Файл Личной книги макросов создан.

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Чтобы узнать путь к файлу, откройте новую книгу, нажмите клавиши ALT + F11, редакторе Visual Basic (VBE) вставьте в «Project-VBAProject» (PERSONAL.XLSB) макрос:

Sub ПутькФайлу()
ActiveCell.Value = ThisWorkbook.Path
End Sub

В любом случае, книга PERSONAL.XLSB находится в папке XLSTART , которую можно найти с помощью поиска в проводнике Windows.

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Закройте VBE и выполните макрос в окне MS Excel.

В любом случае, книга PERSONAL.XLSB находится в папке XLSTART, которую можно найти с помощью поиска в проводнике Windows.

Добавление макросов

Если вы хотите написать свой макрос (пользовательскую функцию) или добавить готовый из интернета, откройте редактор VBE (ALT + F11), выберите папку «Project-VBAProject» (PERSONAL.XLSB) и вставьте в модуль нужный код. Уже записанные в книгу макросы удалять не нужно, они не будут конфликтовать между собой, если в одном модуле не хранить макросы с одинаковыми именами.

Подпрограммы, размещенные в Личной книге макросов, можно просмотреть в окне Список макросов, открыв его из любой рабочей книги MS Excel (Alt + F8):

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Они будут перечислены с приставкой PERSONAL.XLSB!.

Пользовательские функции в этом окне не отображаются:

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Пользовательские функции, размещенные в Личной книге макросов, доступны для просмотра, выбора и вставки их в ячейки рабочего листа через Мастер функций, расположены в категории Определенные пользователем. Выбираются и вставляются в ячейки так же, как и все остальные функции.

Вызов процедур из Личной книги макросов осуществляется, как и запуск процедур из любой другой рабочей книги.

Удаление Личной книги макросов

Для удаления, найдите с помощью поиска в проводнике папку XLSTART и удалите из нее файл PERSONAL.XLSB.

Особенности работы с Личной книгой макросов

1. Возможны сложности, у корпоративных пользователей, т.к. файл в системной папке скрытой, для решения, обратитесь к своему Системному администратору;

2. На слабых компьютерах, при использовании, MS Excel будет запускаться медленнее;

3. Периодически очищайте от старых и ненужных макросов.

Показать полностью 7
139

Макрос для удаления пустых столбцов в книгах Excel

При выгрузке из 1С, часто файлы содержат пустые столбцы (в т.ч. и скрытые), которые мешают дальнейшей обработке данных. Приходится удалять их руками, что совсем не продуктивно. Макрос решит задачу мгновенно.

Копируйте код и сохраните его в Личной книге макросов.

Sub ColumnDel()
'Удаляем пустые столбцы
Dim i As Long
Dim rgMy1 As Range
Dim rgMy2 As Range
Set rgMy1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
For i = 1 To rgMy1.Columns.Count
If WorksheetFunction.CountA(rgMy1.Columns(i).EntireColumn) = 0 Then
If rgMy2 Is Nothing Then
Set rgMy2 = rgMy1.Columns(i).EntireColumn
Else
Set rgMy2 = Application.Union(rgMy2, rgMy1.Columns(i).EntireColumn)
End If
End If
Next
If rgMy2 Is Nothing Then
MsgBox "Не найдено пустых столбцов", vbInformation, "Для информации"
Else:
rgMy2.[Delete]
End If
Application.ScreenUpdating = True
End Sub

Открыть редактор VBA Alt +F11:

Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

Вызвать меню для выполнения или изменения макросов Alt + F8:

Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

На выполнение макроса можно назначить "Горячие клавиши", нажав в окне Параметры:

Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост

В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.

Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.

Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.

Показать полностью 2
973

Ответ на пост «Как снять защиту с листа или книги Excel» 

Судьба свела с довольно частыми просьбами пользователей о снятии защиты от редактирования с таблиц и иногда документов, что вдохновило на небольшой скрипт на питоне, автоматизирующий этот процесс для файлов MS Excel (.xlsx) и MS Word (.docx). Если вам нужно снять блокировку с файлов старого формата (.xls и .doc), просто пересохраните их в новом формате

Установка и использование

Для использования данного скрипта вам понадобится Python (скачать с официального сайта), он и будет запускать данный скрипт. Просто запускаем установщик, жмём Install Now и ждём завершения установки

Далее скачиваем сам скрипт. Если Python установился удачно, скрипт должен запускаться автоматически

Есть два варианта использования скрипта:

• Перетащить файл для разблокировки прямиком на скрипт:

Ответ на пост «Как снять защиту с листа или книги Excel» Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Пароль, Ответ на пост

• Запустить скрипт двойным кликом и во всплывающем окне выбрать нужный файл:

Ответ на пост «Как снять защиту с листа или книги Excel» Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Пароль, Ответ на пост

В обоих случаях вас должно встретить уведомление о результате операции:

Ответ на пост «Как снять защиту с листа или книги Excel» Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Пароль, Ответ на пост

Буду рад прочитать замечания и предложения в комментариях. Туда же и сообщения о непредвиденных ошибках

Скрипт мой, тег моё)

7709

Как снять защиту с листа или книги Excel

Поставили защиту и забыли пароль? Или по другой причине, вам нужно снять защиту с листа или книги Excel. Нет ничего проще.

Как снять защиту с листа или книги Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост, Пароль

Первый способ, используя Блокнот

1. Переименуйте файл, изменив расширение с .xlsx на .zip.

Для отображения расширений файлов в названиях выберите в окне навигации Файл ► Изменить параметры попок и поиска:

Как снять защиту с листа или книги Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост, Пароль

В открывшемся окне, на вкладке Вид, уберите галку Скрывать расширения для зарегистрированных типов файлов:

Как снять защиту с листа или книги Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост, Пароль

2. Откройте архив. Перейдите в папку xl ► worksheets:

Как снять защиту с листа или книги Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост, Пароль

3. Копируйте, в папку с исходным файлом, файл sheet1, или тот который у вас защищен, или файл workbook.xml из папки xl, если защита на книге.

4. Нажмите на файл правой кнопкой мыши (п.к.м) ► Открыть с помощью ► Блокнот. При помощи поиска (Ctrl+F) найдите строку:

* Для снятия защиты с листа: <sheetProtection и удалите целиком текст строки в файле <sheetProtection ..........> вместе со скобками;

* Для снятия защиты с книги: <workbookProtection и удалите целиком текст строки в файле <workbookProtection ..........> вместе со скобками.

5. Сохраните файл(-ы) и перенесите его обратно в архив.

6. Верните файлу исходное расширение .xlsx.

Защита снята.

Второй способ, через с Google Диск

1. Откройте в браузере Google Диск (нужно иметь аккаунт).

2. Перетащите в него защищённый файл.

3. Кликните п.к.м на него и выберите Открыть с помощью ► Google Таблицы:

Как снять защиту с листа или книги Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост, Пароль

4. Сохраните файл: Файл ► Сохранить как таблицу Google.

5. В открывшемся окне, выберите Файл ► Скачать ► Microsoft Excel.

Готово. Защита будет снята и с листов и с книги целиком.

Интересное по теме Excel:

ВПР (вертикальный просмотр)

Трюки с листами книги

Мгновенное заполнение

"Умные" таблицы в Excel

Показать полностью 3
427

Как снять защиту с VBAProject в Excel

Поставили пароль на VBAProject и забыли его? Есть файл с макросами, хотите в них разобраться, но проект защищён? Не беда, сломаем за 5 минут.

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

Пошаговая инструкция:

1. Закройте файл, сделайте его копию на случай Fuck Up.

2. Измените расширение файла .xlsm на .zip (пкм Переименовать или F2):

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост
Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

3. Откройте zip файл, найдите папку xl и в ней файл vbaProject.bin:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

4. Перетащите файл vbaProject.bin из архива:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

5. Откройте его с помощью Notepad++ :

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

6. При помощи поиска (Ctrl+F) найдите строку DPB и замените в ней букву B на любую другую, сохраните и закройте файл:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост
Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

7. Перенесите обновленный файл vbaProject.bin обратно в архив, закройте архив.

8. Измените расширение файла .zip в .xlsm.

9. Откройте файл, в появившемся диалоговом окне нажмите Да:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

10. Откройте Visual Basic (Alt+F11) или вкладка Разработчик ► Visual Basic, в появившемся диалоговом окне нажмите Ок:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

11. Окне редактора выберите Tools ► VBAProject Properties...:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

12. На вкладке Protection уберите галку Lock project for viewing и сохраните файл:

Как снять защиту с VBAProject в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Работа, Аналитика, Видео, Длиннопост

Готово!

Не сработало? Поможет бесплатная надстройка MACROTools VBA Excel, а надстройка EXCELTools автоматизирует ваши рутинные и монотонные операции в MS Excel.

При желании проект можно поддержать рублем.

Хотите научиться самостоятельно писать макросы и разбираться в VBA, но не знаете с чего начать? Лучший канал на YouTube по этой теме:

Показать полностью 9 1
19795

Ну мам, я программирую

По мотивам поста Карьера программиста. Начало.

Ну мам, я программирую Детство, Компьютер, Хакеры, Программирование, Длиннопост, Первый пост

Мой брат сисадмин, старше меня лет на 16, от того с юных лет в квартире всегда обитал какой-либо представитель пк.


Всю школьную пору мне не давали сидеть за компом больше часа в день, а играть то хотелось.


- На компе стоял пароль.

+ Догадался вечером не отключать комп, а отключать только монитор.

* Спалился на том, что ночью за комп сел брат.



- Мать вечером стала выключать комп.

+ Создал отдельного пользователя, жил из под него.

? Брат заметил отдельного пользователя.



- Выдали пользователя без права на создание других.

+ Уловил момент и с авторизованного админа создал новую учетку

? Спалился


+ Взял телефон брата с ужасной камерой, положил на верх компьютерного стола, включил запись (она длилась максимум 3 минуты), сверху разбросал книги. 15 минут разглядывания видео, Profit

!! Повторялось очень долго)



- Брат сдался менять пароль, мать стала забирать кабель питания

+ Она его прятала в квартире, час поиска, провод мой

!! Провод, раз в пару недель менял местоположение.

? Слишком много раз спалился.



Однажды общался с котом лежа на маминой кровати, сказал ему: если ты скажешь мне где кабель, я отдам тебе все кошачьи витаминчики. Он их очень любил. Он зевнул, положил лапы на мамину подушку. Я проверил под подушкой, под одеялом, под простыню. Вуаля под матрасом был кабель. Кот съел все витамины, вечером получил по ушам от мамы за то, что их якобы украл.



- Провод стал уезжать из дома.

+ Взял запасной кабель у друга.

- Провод друга познал участь собрата

- Другие запасные аналогично

+ Купил пару новых

- Мама открыла змеиный зоопарк кабелей питания, гастролирущий с ней на работу.



- Брат сменил в биосе загрузочный диск.

+ Я не правильно понял то, что мне говорил биос, подумал, что в компе что-то не соединенно. Соединил разного напряжения маму с папой, провод очень туго заходил в разьем, в итоге мат-плата умерла, после этого я выучил, что туго в компе ничего не должно соединяться, запахло гарью.



!! Вроде проиграл этот бой, но нннет, теперь брата прекратил технические манипуляции с компом, ибо "Этот мелкий такими темпами квартиру так сожжет к фигам"

- Комп стали запирать в маминой комнате, а там на дверях стояла обычная ручка с ключиком.

+ Нашел ключик



- Ключ присоединился к гастролям кабелей

+ Нашел инструкцию, как с помощью двух ножей открывать замок.


Как итог я победил эту войну, и спокойно себе играл и изучал программирование, хоть мама и не верила, что за компом я могу чему-то учиться, от компа меня пытались изолировать только по вечерам..


Закончил учебу, поступил в вуз, отучился на программиста, проработал в одной крупной компании 3 года. Перешел на фриланс.


Теперь у меня ноут, к которому я цепляю два моника, и тот старый комп, за который я так долго воевал.


Старый комп использую как простенький сервер. Контактирую с ним только через SSH. Он стоит себе в углу комнаты, и никому не мешает.


На днях простудился, и вот уже какой день работаю над парой проектов в плоть до утра. Девушке сильно не нравится то, что я больной не веду постельный лежим. Сегодня проснулся днем, девушка на работе. В телефоне сообщение: "Я забрала твой ноут, дай организму отдохнуть".


Стряхнул быль со своего старого компа, прикрутил к серверу пользовательский интерфейс, зашел на пикабу, увидел похожую историю, решил поделиться своей!


Хоть моей стационарный старичек уже не торт, но я пойду поработаю, ЯжПрограммист.


Всем всех благ!

Показать полностью
Похожие посты закончились. Возможно, вас заинтересуют другие посты по тегам: