Жизненно: пообещали начальнику выполнить проект или презентацию, но сроки «горят» и времени остается все меньше. Как заставить вашего босса думать, что вы ни в чем не виноваты, и избежать наказания? Можно пойти на небольшую хитрость и отправить ему поврежденный файл, который он не сможет открыть.
Если повезет, босс подумает, что возникли какие-то технические неполадки и, возможно, оставит вас в покое. По крайней мере, у вас появится еще немного времени для доработки проекта. Провернуть эту небольшую аферу вам поможет бесплатный сервис Corrupt a file.
Проект способен испортить практически любой тип файлов, будь то Word, Excel, презентация или даже целый архив с документами. Главное — правильно подготовить файл перед отправкой.
Во-первых, помните о том, что размер файла должен соответствовать его предполагаемому содержимому. Вы же не собираетесь отправлять боссу файл размером 5 Кб, если он ждет от вас многостраничную презентацию? В противном случае ему сразу станет ясно, что ваш документ — пустышка. Поэтому перед загрузкой не поленитесь правильно рассчитать будущий размер документа.
Например, если готовый проект по задумке должен состоять из 10 страниц текста, можно подогнать это количество, скопировав первый попавшийся текст в интернете и вставив его в документ несколько раз подряд.
Также стоит придумать для файла какое-нибудь правдоподобное название и только после этого можно загружать файл на сайт.
Как испортить файл с помощью «Corrupt a file»
- Перейдите на главную страницу сервиса Corrupt a file.
- Кликните по кнопке «From your computer» внизу сайта, чтобы загрузить файл через Проводник Windows или Finder на Mac OS.
- Выберите файл на жестком диске вашего компьютера и нажмите «Открыть».
- Вернитесь на сайт и нажмите кнопку «Corrupt file». После обработки сервис вернет вам «битый» документ, который можно будет скачать или загрузить в облако.
- Нажмите «Download your corrupt file», чтобы скачать файл на компьютер.
При попытке открыть файл на экране появится техническая ошибка и ваш заказчик, скорее всего, подумает, что проблема с его стороны. Главное, не пренебрегать его доверием. Если будете использовать такой прием слишком часто, наверняка босс вас раскусит и задаст вам хорошую трепку!
bybalyuba Пользователь Сообщений: 5 |
Как сделать файл Excel неоткрываемым? Нужно чтобы файл Excel был, но уже никогда не мог открыться. Не хочу чтобы мною созданные таблицы с формулами просто так достались другим. Изменено: bybalyuba — 29.03.2018 14:02:50 |
wowick Пользователь Сообщений: 972 |
А причем тут Ексель? Это уже на уровне файловой системы задача… Если автоматизировать бардак, то получится автоматизированный бардак. |
PooHkrd Пользователь Сообщений: 6602 Excel x64 О365 / 2016 / Online / Power BI |
Зачем?! Что за файл? Чем не мог открыться? Вот горшок пустой, он предмет простой… |
БМВ Модератор Сообщений: 21383 Excel 2013, 2016 |
Обычно у всех обратный вопрос, «Есть файл, но не открывается, как открыть?» bybalyuba, вы поясните, что и для чего. А так — испортить его структуру и попрощаться с ним. По вопросам из тем форума, личку не читаю. |
Казанский Пользователь Сообщений: 8839 |
#5 29.03.2018 11:54:46 bybalyuba, наберите в любом текстовом окне какую-нибудь абракадабру, скопируйте.
А это будет следующая тема от ТС Изменено: Казанский — 29.03.2018 11:55:57 |
||
Wiss Пользователь Сообщений: 1028 |
Казанский, а разве пароль на открытие не ломается специальными прогами? bybalyuba, открываете файл в любом HEX редакторе и пишите всё что угодно в любом месте. Сохраняете. Всё. Файл безнадёжно испорчен. Изменено: Wiss — 29.03.2018 13:02:49 Я не волшебник, я только учусь. |
bedvit Пользователь Сообщений: 2477 Виталий |
#7 29.03.2018 13:27:44
А есть эффективный алгоритм слома, кроме брутфорса(лет на 100, если пароль нормальный)? «Бритва Оккама» или «Принцип Калашникова»? |
||
Дмитрий Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#8 29.03.2018 13:29:20
Только если пароль простой, например 1. А в остальных случаях(если пароль составлен по всем правилам) защита на открытие книги очень надежная и даже спец.прогам нужен не один день на взлом. А то и месяцы, годы…И то при наличии достаточных мощностей. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
vikttur Пользователь Сообщений: 47199 |
Баба Люба деду Васе подлянку готовит? |
bedvit Пользователь Сообщений: 2477 Виталий |
Дмитрий, я собственно про тоже. Не знаю эффективных алгоритмов, к примеру и .rar по этой же причине за приемлемое время не сломать (если пароль не «123»). «Бритва Оккама» или «Принцип Калашникова»? |
bybalyuba Пользователь Сообщений: 5 |
vikttur
, да, да именно так, я не хочу чтобы начальнику достались мною созданные таблицы. |
bybalyuba Пользователь Сообщений: 5 |
#12 29.03.2018 13:58:00
Файл excel, не хочу чтобы мои таблицы достались просто так другим. |
||
vikttur Пользователь Сообщений: 47199 |
… включая данные, которые внесены в эти таблицы… Об этом Вы не думаете? |
bedvit Пользователь Сообщений: 2477 Виталий |
#14 29.03.2018 14:04:27 bybalyuba, ваша идея не совсем понятна. Что за таблицы? Какому руководству? Какие данные в таблице. Если это рабочие данные, то что значит
? «Бритва Оккама» или «Принцип Калашникова»? |
||
bedvit Пользователь Сообщений: 2477 Виталий |
С одной стороны есть авторские права на собственные разработки, которыми автор волен распоряжаться как пожелает, и данные рабочего процесса, за которые вам платят, права на эти данные предполагаю, за заказчиком. «Бритва Оккама» или «Принцип Калашникова»? |
bybalyuba Пользователь Сообщений: 5 |
Вобщем никто помочь не хочет. Спасибо, что просветили об авторских правах… |
Дмитрий Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#17 29.03.2018 14:17:50
а читать все ответы не пробовали? Вам уже дали рекомендации(посты 5 и 6), что еще хотите, чем еще помочь надо? Придти к Вам и все сделать за Вас, что ли? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
bedvit Пользователь Сообщений: 2477 Виталий |
bybalyuba, вам просто напомнили что нужно разумно подходить к проблеме. Никто вам не отказал, и даже наоборот, пути указали… «Бритва Оккама» или «Принцип Калашникова»? |
На сколько мне известно, запароленный файл эксель взламывается легко. Есть спец скрипт на VBA который убирает защиту книги. |
|
БМВ Модератор Сообщений: 21383 Excel 2013, 2016 |
#20 29.03.2018 14:48:19 Михаил Комиссаров,
=
и странно читать
если даже в этой теме написано обратное. см. от #8 . У вас есть примеры простого взлома пароля нормальной сложности? По вопросам из тем форума, личку не читаю. |
||||||
bybalyuba Пользователь Сообщений: 5 |
#21 29.03.2018 14:58:20
Я прочитала |
||
Дмитрий Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#22 29.03.2018 15:09:45
видимо, не очень внимательно. Я указал в каких сообщениях Вам дали верное направление. Но от Вас не было ни единого уточняющего вопроса по ним.
Откуда информация такая?
А Вы не путаете, случаем, защиту листа и книги, и защиту НА ОТКРЫТИЕ? Это разные вещи. Защита листа и книги через вкладку Рецензирование — да, ломается даже скриптом VBA. А защита на открытие — фигушки. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||||
bedvit Пользователь Сообщений: 2477 Виталий |
Михаил Комиссаров, вы путаете взлом пароля на файл Excel(на открытие файла) и взлом пароля на защиту книги (и листа), которые до 2007 Excel ломались очень легко. «Бритва Оккама» или «Принцип Калашникова»? |
Дмитрий Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#24 29.03.2018 15:18:23
поправка — до 2010 включительно. Собственно, и сейчас не так сложно, т.к. не очень стойкие там алгоритмы. Вопрос в том, что из VBA это сложно сделать, т.к. из VBA метод Unprotect вызывается весьма медленно, начиная с 2013 Excel. Что делает практически бесполезными все коды, которые на этом основаны, т.к. работать будут безумно медленно. Изменено: Дмитрий Щербаков — 29.03.2018 15:19:29 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
Пытливый Пользователь Сообщений: 4587 |
Мне кажется все эти экзерсисы — лишнее. Если расстаетесь с конфликтом и охота, чтобы потом к вам пришли и просили доделать/досчитать — проще в файлах алгоритм расчета слегка того… А почему считает неправильно? А я почем знаю, чего вы там делали без меня? Кому решение нужно — тот пример и рисует. |
Дмитрий Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#26 29.03.2018 15:22:42
Согласен. Но если человек хочет — почему нет? Изменено: Дмитрий Щербаков — 29.03.2018 15:23:49 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
bedvit Пользователь Сообщений: 2477 Виталий |
Дмитрий, спасибо за информацию, познавательно. В общем-то защита листа и книги больше сделана на «править где и что нужно, что бы не тыкнули в ненужное», инфо забрать можно и с защищенного листа. Главное файл открыть, а дальше не важно, где пароли для проекта VBA, для листа, для книги, инфо читается на раз. «Бритва Оккама» или «Принцип Калашникова»? |
БМВ Модератор Сообщений: 21383 Excel 2013, 2016 |
#28 29.03.2018 15:39:45 Offtop
Добавлю, что даже если сделано в не рабочее время и на собственном ПК и по собственной инициативе, а после внедрено в продуктив, то трудно доказать что это было именно так. Хотя в суд наверно никто не пойдет, а вот в зависимости от некоторых обстоятельств, с паяльником могут люди с узким лбом и широкими плечами подойти и потребовать вернуть файлы :-). Да, и самое главное, все конечно от компании зависит и от ИТ. Теневое копирование, резервные копии если есть, то делает ваши усилия по разрушению ваших файлов бессмысленными, и кому будет гемор, а в зависимости чего и как, так это только у системного администратора. то есть насолите вы не начальнику, а тому с кого он спросит. Изменено: БМВ — 29.03.2018 15:55:03 По вопросам из тем форума, личку не читаю. |
||
Jack Famous Пользователь Сообщений: 10852 OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome |
#29 29.03.2018 15:45:32 Господа, а я, видимо, один не понимаю, какой вообще толк делать файл неоткрываемым??? Неужели такого понятия, как «передача дел» не существует? А если файл не открывают (не проверяют), тогда тем более зачем его делать неоткрываемым? Создать пустой файл с нужным названием и всё. bybalyuba, что-то мне подсказывает, что грандиозность ваших «моделей» может быть сильно преувеличена, а риски себе проблемы найти весьма высоки. В этой ситуации правда не на вашей стороне. Подумайте несколько раз прежде чем копать яму кому-то — неровен час, сами в ней окажетесь… А так я согласен с Пытливым в том, что полностью рабочие таблички, но считающие некорректно — куда больший геморрой (чем же вам там так насолили-то…).
какая точная формулировка! Изменено: Jack Famous — 29.03.2018 15:50:11 Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄ |
||
Anchoret Пользователь Сообщений: 1060 Anchoret |
#30 29.03.2018 23:33:57 Согласен с Дмитрием Щербаковым — файл без разработчика умрет очень быстро. Либо из-за устаревшей структуры/реализации, либо файл/проект убьют пользователи этим файлом/проектом пользующиеся. П.С.: Не был на работе 4 дня, уже что-то там навернули… |
If you are here to find out how to corrupt a file so it won’t open on PC/Mac, you might be thinking that it will be a complex task involving dozens of steps and consuming a big chunk of your time. However, that is definitely not the case. You can corrupt a file within no time and save your day.
Method 1. Change File Extensions to Corrupt a File on Mac and PC
File extensions are the indicators that tell the operating system about the nature of files and how to run them. Changing these extensions can confuse the operating system about the file type and fail to run the file. Here is how you can change file extensions to corrupt a file:
Step 1. Press the Windows button and search for folder options.
Step 2. Once you are in the folder options, click on the tab named ‘View».
Step 3. Now, you will see a box in front of a command saying Show file extensions; tick this box.
Step 4. Now go to the file you want to corrupt, and it will have an extension name at the end; suppose it is a word file with the extension name Docx.
Step 5. Right-click on the file and rename it.
Step 6. Don’t rename it fully; just change its extension name and press enter.
Now, the operating system won’t be able to run this file. Moreover, whenever anybody tries to run this file, it will show an error.
Method 2. Corrupt A File Using Notepad On Windows
Corrupting a word or PDF file with Windows built-in notepad is like a walk in the park. It will take you less than one minute to corrupt the file and save your reputation from getting ruined. Here is how you can corrupt a file using Notepad on Windows:
Step 1. First of all, right-click on the file you want to corrupt and open it with a notepad. Notepad might take a long time to run due to the file type so keep waiting.
Step 2. Once the notepad is opened, you will see tons of strange commands you have never seen before; you just have to select 10-12 lines of the command from either start, mid or bottom and erase it.
Step 3. After erasing, save the file and close the notepad app. Again it might take longer than usual to close and keep a notepad file.
Step 4. Run the file through any file viewer, and you will find that the file is corrupt and can’t be opened. This simple method will take 1-2 minutes to fully complete
Method 3. Using an Online File Corrupter to Corrupt a File on Mac and PC
Some bosses or professors are clever enough to find out that the file has been manipulated and corrupted on purpose, which might land you in big trouble. Therefore, to stay on the safe side and don’t let anybody detect that you have purposely corrupted the file, you can use an online tool corrupt-a-file.net.
This is an online tool that is free to use and corrupts your file in no time. Here is how you can use it:
Step 1. Visit their website (https://corrupt-a-file.net/).
Step 2. Scroll down and click on «From Your Computer» just below the select the file to corrupt.
Step 3. Now, navigate to the file you want to corrupt, click on it and upload it to the website.
Step 4. Then, click on the corrupt file option and wait for a moment.
Step 5. Your file will be corrupted and saved at your desired location.
Method 4. Use File Compression Tool
Using the file compression tool is another easy method to corrupt any file on purpose. The best means to compress the file is Winrar Archiver, and you can download it online for free. After installing this tool, you can follow these steps:
Step 1. Right-Click on the file you want to corrupt and click on «Compress».
Step 2. When the compression is almost 90% completed, pause and cancel the compression.
Step 3. Canceling at 90% will cause the compressor to create a new file, but as the compressed file does not contain full data from the previous one, it won’t run.
How to Repair Corrupted Files with File Repair Tool
You can corrupt a file for multiple uses; just make sure to create a copy file just in case you need to access the data in the future. If somehow, you corrupted a file or a virus caused it to be corrupt, you can land in big trouble. Now, accessing this corrupted file would be the biggest goal of your life, and EaseUS Data Recovery Wizard will help you achieve it.
EaseUS file repair tool that can repair all corrupted files within the blink of an eye. It can repair corrupted Excel, Word, PPT, and PDF documents. What’s more, it still supports fixing broken videos and images.
Now, free download this data repair and recovery tool to fix any damaged files. It can handle many other tasks and make your life easy. On the other hand, it is also a cost-effective option because many of the file repairing tools on the internet are available at hefty prices.
Step 1. Launch EaseUS Data Recovery Wizard. Select a disk location where the corrupted files are saved. Click «Scan» to start finding the broken files. EaseUS file repair tool allows you to fix damaged documents, videos, and pictures in differnet formats.
Step 2. After scanning, you can quickly find corrupt data by file type. If you want to repair damaged Word, Excel, or PDF, select Documents and filter a specific category. For pictures and videos repair, all the common types are suppored, including JPEG, PNG, BMP, MOV, MP4, GIF, and more.
Step 3. EaseUS file repair software will automatically fix broken files. You can preview the repaired files before recovery. Last, click «Recover» and save the recovered files to a different location to avoid data overwriting.
Conclusion
There are multiple ways to corrupt your file and ease your problem. However, suppose you are a college or university student. In that case, we won’t suggest you corrupt the file because many educational institutes are aware of this trick and have strict rules against them.
However, you can use multiple methods, including changing file extensions, using an online file corrupting tool, or compressing the file. However, if you didn’t create the backup of your file and accidentally corrupted it right away, you still got the services of EaseUS to repair your corrupted file easily. EaseUS Data Recovery Wizard is feature-rich software that can provide you with many other benefits along with repairing your file.
Мы не будем вдаваться в обсуждение, зачем может понадобиться повреждать файл, насколько это правильно или неправильно — у каждого свои причины. Но испортить файл, в общем, несложно.
Как повредить файл
В случае с файлом Word, добавьте в него столько текста, сколько должно быть в вашем конечном файле, чтобы размер файла не вызывал подозрений.
Автор считает, что эти материалы могут вам помочь:
Независимо от типа файла, алгоритм действий будет один и тот же. Вам нужно открыть файл в текстовом редакторе и внести любые изменения. К примеру, для этой цели отлично подойдет «Блокнот», который есть в любой версии Windows.
Внимание! Перед внесением изменений в файл, обязательно сделайте его резервную копию, ведь он может понадобиться вам в дальнейшем.
Итак, нажмите правой кнопкой мыши на нужном файле и выберите в меню пункт «Открыть с помощью». Скорее всего, Блокнот не будет предложен для открытия документа, поэтому нажмите «Выбрать другое приложение» и найдите в списке «Блокнот»:
Если ваш файл довольно большой, его открытие Блокнотом может занять какое-то время. В результате вы увидите примерно такую картину:
Теперь вам нужно в самом начале файла написать несколько любых символов, на любом языке. Для верности, это можно еще сделать и в других частях документа:
Сохраните документ и попробуйте его открыть обычным способом, к примеру, через Microsoft Word. Вы увидите такую ошибку:
Есть альтернативный вариант повреждения файла – воспользоваться специальным сервисом corrupt-a-file.net.
Вам нужно будет загрузить файл на сайт, нажать на кнопку «Corrupt File» и скачать фал с результатом.
Если у вас остались вопросы – задавайте, мы с радостью вам поможем!
Каждый раз, когда вы делитесь этой статьей в социальной сети, ее автор становится немного счастливее! Пожалуйста нажмите на одну из кнопок выше!
Если Вам по той или иной причине понадобилось сделать так, чтобы файл не открывался, то это делается быстро и легко без помощи каких-либо специализированных приложений, и мы расскажем Вам об этом!
Как сделать чтобы файл не открывался — как повредить файл
Один из самых простых способов — это открыть файл через Блокнот (эта программа вообще имеется на любом компьютере) или WordPad и изменить исходный код. Делается это так:
- Щелкаем правой кнопкой мыши по нужному файлу, наводим курсор на Открыть с помощью и в списке нажимаем Блокнот (если Блокнота нет в списке, то жмем Выбрать другое приложение и там в списке ищем Блокнот
- Если файл большой, то открытие займет какое-то время. Ждем. Откроется окно с набором непонятных символов. Добавляем немного от себя — произвольные символы в произвольных местах — просто стучим по клавиатуре, сохраняем файл и закрываем.
- При попытке открыть файл обычным двойным щелчком мыши видим примерно следующее:
- Даже удалив добавленные нами изменения в Блокноте, восстановить и открыть файл просто так уже не получится. Соответственно никто не сможет его открыть.
Загрузить PDF
Загрузить PDF
Из этой статьи вы узнаете, как повредить файл с помощью бесплатного онлайн-сервиса. Преднамеренно поврежденный файл может пригодиться в ряде случаев, самым распространенным из которых является отправка якобы готового, но поврежденного файла учителю, руководителю или клиенту, чтобы выиграть больше времени для работы над документом.
Шаги
-
1
Убедитесь, что файл выглядит правдоподобно. Если вы собираетесь повредить файл, чтобы отправить его кому-то и таким образом выиграть время для работы над документом, убедитесь, что файл имеет соответствующий размер и/или формат.
- Например, если готовым файлом должен быть 10-страничный документ Word, введите текст на 10-ти страницах (например, скопируйте и вставьте любой текст), чтобы файл действительно содержал 10 страниц текста.
-
2
Создайте резервную копию исходного файла. Хотя исходный файл поврежден не будет, всегда есть вероятность того, что вы случайно удалите исходный файл вместо поврежденного, когда воспользуетесь им.
- Чтобы создать резервную копию исходного файла, щелкните по нему, нажмите Ctrl+C (Windows) или ⌘ Command+C (Mac), чтобы скопировать файл, перейдите в другую папку и нажмите Ctrl+V или ⌘ Command+V, чтобы вставить файл.
-
3
Откройте сайт сервиса Corrupt-a-File. Перейдите на страницу https://corrupt-a-file.net/ в веб-браузере компьютера. С помощью этого сервиса можно повредить MP3-файлы, документы Word, таблицы Excel и так далее.
-
4
Щелкните по FROM YOUR COMPUTER (С компьютера). Это желтая кнопка посередине страницы. Откроется окно Проводника (Windows) или Finder (Mac).
-
5
Выберите файл. Перейдите в папку с файлом, который хотите испортить, а затем щелкните по нему, чтобы выбрать.
-
6
Нажмите Открыть. Эта кнопка находится в правом нижнем углу окна. Файл будет загружен на сайт сервиса Corrupt-a-File.
-
7
Прокрутите вниз и нажмите CORRUPT FILE (Повредить файл). Эта кнопка находится внизу страницы. Начнется процесс повреждения файла.
- Процесс займет от нескольких секунд до нескольких минут в зависимости от размера файла.
-
8
Нажмите DOWNLOAD YOUR CORRUPTED FILE (Скачать поврежденный файл), когда появится запрос. Поврежденный файл скачается на компьютер.
- В зависимости от настроек браузера, вам, возможно, сначала придется нажать «Сохранить» или выбрать папку для загрузки.
Реклама
Советы
- Современные компьютеры и программы крайне редко повреждают файлы, поэтому если такой файл отправить одному и тому же человеку более одного раза, скорее всего, это вызовет подозрения.
Реклама
Предупреждения
- Помните, что многие учителя, работодатели и другие люди знают о том, что файл можно повредить, чтобы выиграть время, поэтому этот «фокус» уже не такой эффективный.[1]
Реклама
Об этой статье
Эту страницу просматривали 37 372 раза.
Была ли эта статья полезной?
Как испортить или повредить файл (или инфо в нем) в зависимости от количества установленных открытий его. Нужен макрос или есть другие варианты
Подскажите.
Можно макросом, но макросы должны быть разрешены на нужной машине.
ЗЫ Вредительство?
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Сергей, я посмотрел ссылки и нашел макрос:
Private Sub Workbook_Open()
If Format(Date, «dd.mm.yyyy») = «12.08.2009» Then
Delete_All_Code_And_Macro_in_ThisBook
End Sub
Так то оно так, только чуточку не так.
Тоесть, если «12.08.2009» я книгу не открою то и ничего не произойдет.
Нужно чуточку иначе, верно?
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
А что, если в
Private Sub Auto_Open()
установить счетчик. И после 10-го открытия сделать то, что написал Сергей?
Выбрать для этой цели любую удаленную ячейку например АА333
Private Sub Workbook_Open()
Range(«AA333») = Range(«AA333») + 1
If Range(«AA333»)>77 Then
Delete_All_Code_And_Macro_in_ThisBook
End Sub
Если это действие «Delete_All_Code_And_Macro_in_ThisBook» рабочее (я не проверял) то через 77 открытий оно сработает.
Товарищ Эрнесто, если Сергей не поможет то постараюсь завтра создать и скинуть файлик. Только, что ж такого ценного в ДЕМОВЕРСИИ если она даже без макросов.
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
А чем Sub Workbook_Open отличается от Sub Auto_Open ?
Не знаю. Но знаю как отключить Auto_open. Если к примеру в нем срабатывает парольный вход в книгу.
Delete_All_Code_And_Macro_in_ThisBook не работает.
Всем до завтра.
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Ну таблицу-то можно испортить по-любому. А коды защищены паролем. А как отключить Auto_Open ?
До завтра
Цитата: Wasilic от 21.01.2010, 19:32
Скинул. Будешь должен!
Да, не учел одного обстоятельсва, если листы защищены, то в макросе перед каждым листом допиши строку
Sheets(«Лист1»).Unprotect
Sheets(«Лист2»).Unprotect
Sheets(«Лист3»).Unprotect
и т.д.
Супер, все работает. Большое тебе спасибо. Удивительный Мир Excel для себя открываю.
(А по дате можно скинуть чуть позже, или сегодня ?)
Даже фильмом «Паутина 3» пожертвовал. Не расчитаешся.
Смотри. А VBA однако учи.
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Цитата: Wasilic от 21.01.2010, 20:20
Даже фильмом «Паутина 3» пожертвовал. Не расчитаешся.
Смотри. А VBA однако учи.
У меня два вопроса:
1. Файл «Вопрос 1», после того как инфо «грохнулась» выскакивает эта табличка. Жмеш end и она исчезнет, но как сделать что бы она не появлялась вообще, т.к.несет информацию о действии макроса.
2. Файл «вопрос 2», если нажать на выскачившую табличку debug , то появляется сам макрос и выделено желтым (данный лист не очистился). Что не правильно ?
Возможно лист «заявка» тоже защищен.
Поставь перед ним — Sheets(«заявка»).Unprotect
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
У меня два вопроса:
1. Файл «Вопрос 1», после того как инфо «грохнулась» выскакивает эта табличка. Жмеш end и она исчезнет, но как сделать что бы она не появлялась вообще, т.к.несет информацию о действии макроса.
2. Файл «вопрос 2», если нажать на выскачившую табличку debug , то появляется сам макрос и выделено желтым (данный лист не очистился). Что не правильно ?
[/quote]
Сам спросил и сам ответил: Табличка выскакивает потому что макрос сталкивается с проблемой, которая не решилась, в частности очищаемом листе есть объедененные ячейки, которые макрос не может удалить и соответственно не очищается весь лист. Желтым выделяется та самая проблема.
От сюда следует вопрос, как очистить лист с объедененными ячейками ?
У себя проверил, все работает.
Сделай проще
If Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
Application.Quit
End If
Книга после указанной даты просто не откроется. Но, вернув системную дату в компе до указанной на отключение — откроется.
По счетчику — никогда.
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Цитата: Wasilic от 25.01.2010, 11:04
У себя проверил, все работает.
Сделай прощеIf Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
Application.Quit
End IfКнига после указанной даты просто не откроется. Но, вернув системную дату в компе до указанной на отключение — откроется.
По счетчику — никогда.
Куда этот макрос вставить (лист, книга, модуль) или это дополнение к существующему. Я пока «туговат» в этих дебрях…
В тот же макрос. Только все что между
If Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
И
End If
заменить на: Application.Quit
чтобы было так:
If Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
Application.Quit
End If
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Цитата: Wasilic от 26.01.2010, 09:12
В тот же макрос. Только все что междуIf Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
И
End Ifзаменить на: Application.Quit
чтобы было так:
If Sheets(«Лист1»).Range(«AA333») <= Date Then ‘ date — текущая дата
Application.Quit
End If
Вот как ты и сказал:
Private Sub Workbook_Open()
Range(«AA333») = Range(«AA333») + 1
If Sheets(«Лист1»).Range(«AA333») <= «25.01.2010» Then
Application.Quit
End If
End Sub
Но у меня выскакивает табличка о закрытии файла, я жму на крестик (ни ДА ни ОТМЕНА) и с файлом все в порядке.
Выложи свою версию файла и с датой и с колич.открытий.
Без Application.Quit все работает
Трудно учиться а учить еще труднее.
Ну посмотри свое сообщение.
Range(«AA333») = Range(«AA333») + 1 — это для подсчета количества окрывания книги.
а это
If Sheets(«Лист1»).Range(«AA333») <= «25.01.2010» Then
Application.Quit
End If
проверка по дате
У тебя уже есть мой рабочий E-mail «smz……».
Заархивируй и скинь свою таблицу. Не думаю что ее инфа мне пригодится.
Если не можешь.
Разбирайся.
Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.
Цитата: Wasilic от 27.01.2010, 16:29
Трудно учиться а учить еще труднее.
Ну посмотри свое сообщение.
Range(«AA333») = Range(«AA333») + 1 — это для подсчета количества окрывания книги.
а это
If Sheets(«Лист1»).Range(«AA333») <= «25.01.2010» Then
Application.Quit
End If
проверка по датеУ тебя уже есть мой рабочий E-mail «smz……».
Заархивируй и скинь свою таблицу. Не думаю что ее инфа мне пригодится.
Если не можешь.
Разбирайся.
Разобрался…Спасибо. С закрытием книги эффективнее , но информация то остается в книге. Нужно что бы книга закрылась и все в ней удалилось. Как быть ?
Как сделать так чтобы файл не открывался никакой программой
В Windows 7, Windows 8 и Windows 10 многие типы файлов зарегистрированы таким образом, чтобы при их открытии по умолчанию запускалась определенная программа. Например, при открытии текстовых файлов (с расширением TXT) обычно запускается Блокнот. Вы можете выбрать программу, которая будет запускаться при открытии файлов определенного типа, а также задать ее параметры, используемые по умолчанию.
В меню Пуск выберите пункт Параметры.
Щелкните Приложения > Приложения по умолчанию.
Щелкните приложение, которое вы хотите изменить, а затем выберите его из списка. Новые приложения также можно найти в Microsoft Store. Необходимо установить приложение, чтобы выбрать его для использования по умолчанию.
Чтобы выбрать приложения, используемые по умолчанию для определенного типа файла, прокрутите страницу вниз и щелкните ссылку Выбор стандартных приложений для типов файлов.
Как сделать чтобы файл не открывался — как повредить файл
Если Вам по той или иной причине понадобилось сделать так, чтобы файл не открывался, то это делается быстро и легко без помощи каких-либо специализированных приложений, и мы расскажем Вам об этом!
Как сделать чтобы файл не открывался — как повредить файл
Один из самых простых способов — это открыть файл через Блокнот (эта программа вообще имеется на любом компьютере) или WordPad и изменить исходный код. Делается это так:
- Щелкаем правой кнопкой мыши по нужному файлу, наводим курсор на Открыть с помощью и в списке нажимаем Блокнот (если Блокнота нет в списке, то жмем Выбрать другое приложение и там в списке ищем Блокнот
- Если файл большой, то открытие займет какое-то время. Ждем. Откроется окно с набором непонятных символов. Добавляем немного от себя — произвольные символы в произвольных местах — просто стучим по клавиатуре, сохраняем файл и закрываем.
- При попытке открыть файл обычным двойным щелчком мыши видим примерно следующее:
- Даже удалив добавленные нами изменения в Блокноте, восстановить и открыть файл просто так уже не получится. Соответственно никто не сможет его открыть.
1 комментарий к “ Как сделать чтобы файл не открывался — как повредить файл ”
Любой не форматирующий редактор.
Дело в тругом: как сделать это с содержимым папки — чтобы не тратить время на «ручное» редактирование каждого файла.
Требования:
Приезжает комиссия, надо чтобы файлы в определенной папке не открывались (дата и время файлов необходимо сохранить).
Как поменять программу для открытия файла?
Часто так бывает, что один и тот же тип файлов можно открывать разными программами (например, изображения). Но не всегда та или иная программа вам подходит. В этой статье показано как одноразово или навсегда поменять программу для открытия разных типов файлов.
Как одноразово открыть файл программой не по умолчанию
Чтобы одноразово открыть файл не стандартной программой следуйте инструкциям ниже:
- Нажмите правой кнопкой мыши по нужному файлу.
- В отрывшемся меню выберите «Открыть с помощью» и выберите программу из списка. Если нужной программы нет в списке предложенных, то:
- Нажмите «Выбрать программу..» (Внизу списка).
- Выберите нужную программу в открывшемся окне.
- Снимите галочку с «Использовать выбранную программу для всех файлов такого типа» и нажмите «ОК». Если программы, которую вы хотите использовать нет в этом окне, значит нажмите «Обзор…», найдите и выделите программу, затем нажмите «Открыть». Когда программа выбрана, нажмите «ОК».
Изменение программы для файла по умолчанию
- Нажмите по нужному файлу правой кнопкой мыши и выберите «Свойства».
- В открывшемся окне перейдите на вкладку «Общие».
- Напротив пункта «Приложение:» нажмите кнопку «Изменить».
- Снова отроется окно «Выбор программы», в нем выделите или найдите через кнопку «Обзор…» нужную программу.
- Проследите, чтобы стояла галочка на «Использовать выбранную программу для всех файлов такого типа».
- Нажмите «ОК».
Теперь выбранный вами файл и все файлы такого типа всегда будет открываться выбранной вами программой.
См. также нашу более новую статью о том, как сопоставить файлы с программами.
0
— 06.06.2012 — 10:59
У меня такая задача, может кто поможет решить.
Существует локальная сеть предприятия. На всех компах есть файл таблицы excel с определённой базой данных. Базу обновляю я и через время она расползается по всей сетке по всем компам путём копипаста. Начало работы с файлом начинается с нажатия на кнопку гиперссылки внутри файла. Задача что-то сделать с файлом, чтобы к определённой дате он испортился (удалился, стёрлись, заменились данные, не важно). Не знаю как реализовать этот механизм. Может макрос кто поможет написать, или как то по другому?
Если я не в той теме пишу, укажите правильную. Заранее спасибо.
1
— 06.06.2012 — 13:03
Как насчет «Rights Management Services»? Он же AD RMS.
2
— 06.06.2012 — 15:59
Значит-с, так. Если самозачищаемых файлов много — можно сделать их самоуничтожаемыми при открытии в заданный день или отстоящий на N дней, при открытии не там, не тем пользователем, не на том компьютере, не в рабочее время итп — это достаточно легко. Если файло один и очень секретный — то расползающиеся тараканы это плохо — надо работать с файлом ТОЛЬКО на сервере.
Вот идеи:
1) Можно макросом запретить диалог SaveAs «Сохранить как», для 80% юзеров это уже достаточно. Искать в иностранной книге Трюки и эффекты (код выложен на сайте изд-ва)
2) Можно, при открытии книги, неотключаемым в Excel даже по Ctrl+Break автомакросом читать путь, и если путь не-сервер — а) забивать содержимое бессмыслицей б) сохранять в) удалять. Если просто сразу файл удалить методом kill — он почти 100% восстановим, хотя в корзину он не попадает. Это пункт помогает в остальных 19% случаев.
3) Но можно открыть XLS не в Excel, а в OpenOffice/LibreOffice или пересохранить его в XLSX идр «немакросные» форматы. И автомакрос при этом не сработает. Поэтому нужна подстраховка — Разрешить открывать только в Excel, путем стойкого «несовместимого» шифрования.
…
Макроссы может здесь наваять, а Вопросы по RMS лучше задавать на форуме «Сети».
3
— 09.06.2012 — 11:21
2-economist >А можешь написать макрос в этом файле если кину по почте?
4
— 11.06.2012 — 23:10
Могу — какой именно вариант идеи? Я введу в макросе условное имя и/или IP адрес сервера. Надо будет после размещения у себя на серваке закомментировать нужные строки кода и проверить работоспособность в случае переписывания на другую машину. В принципе, мне не нужен ваш секретный файл, но имя его мне понадобится, если оно слишком специфично — переименуйте попроще. Тогда в мой файл достаточно будет переместить листы из вашего, пересохранить с заменой — и вуаля…
5
— 13.06.2012 — 08:33
‘———————————————-
Private Sub Workbook_Open()
‘ (c) economist Все как есть — без гарантий!
‘ Макрос в книге при открытии файла читает имя компа и сравнивает его с РАЗРЕШЕННЫМ
‘ и если совпадения нет — «самоуничтожается» путем перезаписи с пустым содержимым всех листов
‘ Макрос вставить в после Alt+F11 в объект ЭтаКнига
‘ Проверить на пустом файле, введя бессмылице в ячейки листов, убедиться что после открытия НЕ на сервере ячейки очистились
‘ затем уже сделать на рабочем (можно путем переноса листов вручную)
‘ Если неизвестно имя компьютера-сервера — узнать у сисадмина!
Dim legalServer As String
Dim HostName As String
legalServer = «SERVERNAMEUPPERCASE» ‘ ВВЕДИТЕ разрешенный сервер, на котором файл живет (в верх регистре)
HostName = CreateObject(«WScript.Network»).ComputerName ‘ узнали имя компа
If legalServer <> HostName Then ‘ если сервер нелегален, то
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
sh.Cells.ClearContents
Next sh
ThisWorkbook.Save
End If
End Sub
6
— 13.06.2012 — 08:39
Можно отследить имя сервера и по его IP-адресу, но если в он «динамически» выдается — будут некоторые сложности в реализации (придется лезть в кущеряки, типа оснасток WMI, а там высока вероятность что злой админ запретил их). Кстати, Макрос не заработает если у вас админ запретил и Wscript. Тогда надо ему какбэ намекнуть что он не прав, и его параною можно вылечить…
7
— 13.06.2012 — 15:21
Автор, побольше бы исходных данных.
Цитата:
Сообщение от Рюкзак
определённой базой данных
Из таблиц есть прямая связка к БД?
Цитата:
Сообщение от Рюкзак
Базу обновляю я
Способ обновления? Простое копирование?
В организации есть какие-либо домены и прочее?
Можно сделать скрипт, который при первом запуске будет осуществлять поиск файлов с каким либо признаком (можно даже по содержимому файла, например содержимому гиперсылки) и удалять подобные файлы. Ну или какой-то подобный механизм.
А еще лучше посмотреть в сторону оптимизации предоставления информации пользователям.
8
— 13.06.2012 — 16:15
+5: Я вот тут поразмыслил — в мой макрос нужно добавить вот еще что — чтение/сравнение пути самой книги XLS. Иначе файл будет самоочищаться при любом доступе извне. Завтра допишу.
9
— 13.06.2012 — 17:49
Постановка задачи неверная и попадает под статью УК. Так что правильный подход в этом случае следующий где то на своем сервере разместить такие «ценные» данные, а пользователям предоставлять доступ к ним по сети через клиентское приложение или web интерфейс. Использовать нормальную клиент-серверную БД, а не страдать фигней с excel файлом. Доступ для пользователей сделать платным т.е. заплатил — получил логин и пароль действительный в течении определенного времени, о чем пользователь должен быть уведомлен. Естественно можно сделать контроль чтобы под одним логином не лезло несколько особо хитрых пользователей.
10
— 14.06.2012 — 05:12
Если закрыт Wscript можно использовать такой код
Private Declare Function GetComputerNameA Lib «kernel32» _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function WNetGetUserA Lib «mpr.dll» _
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Function GetComputerName() As String
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) <> 0 Then
GetComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) — 1)
End If
End Function
Function GetUserName() As String
Dim sUserNameBuff As String * 255
sUserNameBuff = Space(255)
Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) — 1)
End Function
11
— 14.06.2012 — 09:11
Вот исправленный макрос под задачи автора — грохать открытое не там.
Private Sub Workbook_Open()
‘ (c) economist. Как есть — без гарантий!
‘ ************************************************** ************************************************** *********************************
‘ ******* Самоудалялка XLS-VBA, если открыли файл не там где можно *****
‘ ************************************************** ************************************************** *********************************
‘ Макрос в книге при открытии файла XLS определяет ГДЕ находится сам XLS-
‘ файл, с поддержкой всех видов путей (буквы диска, LAN, UNC)
‘ и если не там где РАЗРЕШЕНО — «самоуничтожается» путем перезаписи с
‘ пустым содержимым всех листов. Задать легальный сервер (имя, IP)!
‘ Макрос вставить в после Alt+F11 в объект ЭтаКнига
‘ Проверить на пустом файле, введя бессмылицу в ячейки листов, убедиться что после открытия НЕ на сервере ячейки очистились
‘ затем уже сделать на рабочем (можно путем переноса листов вручную)
‘ Если неизвестно имя/IP компьютера-сервера — узнать у сисадмина!
‘ TODO: Если сеть одноранговая с дин.-IP — подумать
Dim legalServerIP As String ‘ создали перем для IP «разрешенного» сервера XLS
Dim legalServer As String ‘ создали перем для имени «разрешенного» сервера XLS
Dim NetPath, RealPath ‘ создали перем для IP адреса компа, с которого реально открыт файл XLS
Dim fso As New Scripting.FileSystemObject ‘ создали перем для файловых объектов
Dim sh As Object ‘ премененная для затирания листов
legalServerIP = «10.0.0.10» ‘ ВВЕДИТЕ IP — адрес разрешенного сервера XLS, на котором файл живет (в верх регистре)
legalServer = «Server1» ‘ ВВЕДИТЕ DNS-имя разрешенного сервера XLS (первая буква обычно большая)
DriveXLS = Left(ThisWorkbook.Path, 1) ‘ прочли имя диска (м.б. сетевого), если открыли через сеть —
NetPath = Split(ThisWorkbook.Path, «») ‘ разбили путь на части
‘ Файл в Windows можно открыть по разному:
‘ А — C локального диска (с любой буквой)
‘ Б — С сетевого диск (с любой буквой)
‘ В — Через UNC — то есть \server1folderfilename.xls
‘ Г — или без DNS имен — то есть \XXX.XXX.XXX.XXXfolderfilename.xls
‘ Поэтому в программе будет ветвление — первый символ — диск или
‘ Для \server1folderfilename.xls и \10.0.0.100folderfilename.xls
If DriveXLS = «» Then ‘ если вдруг открыли файл через сетевое окружение
RealPath = NetPath(2) ‘ прочли ИМЯ сервера server1
If (legalServer <> RealPath And legalServerIP <> RealPath) Then
For Each sh In ThisWorkbook.Sheets
sh.Cells.ClearContents
Next sh
ThisWorkbook.Save
End If
End ‘ закончили случай с \server и \XXX.XXX.XXX.XXX
End If
‘ Для локальных дисков С:-F: и сетевых G:-Z: (к примеру) C:folderfilename.xls и G:folderfilename.xls
If DriveXLS <> «» Then ‘ если это буква диска
NetPath = Split(fso.Drives(DriveXLS).ShareName, «»)
On Error Resume Next ‘
RealPath = NetPath(2) ‘ прочли ИМЯ сервера server1
If (legalServer <> RealPath And legalServerIP <> RealPath) Then
For Each sh In ThisWorkbook.Sheets
sh.Cells.ClearContents
Next sh
ThisWorkbook.Save
End If
On Error GoTo 0
End If ‘ закончили случай с буквами диска
End Sub
12
— 14.06.2012 — 09:13
Очень форуму не хватает подсветки кода, или хотя бы моноширинности. В моей вики просто глаз радуется от «цветника», здесь же — как будто школьник напЫсал…
13
— 14.06.2012 — 12:55
Рюкзак — замечу также, что работа с XLS с самих рабочих станций предполагается прямо на сервере, а не борьба с уже расползшимися тараканами по сети.
…
Тут Naix и TVV1 говорят что инструментарий (Excel) неподходящий — вполне возможно. Но есть хорошие примеры одновременной(!) работы в одном(!) файле Excel 3-5 активных пользователей (с парольной защитой, журналированием/откатом изменений) и это не просто «туповвод», а работа с развернутыми формами, справочниками (все сделано на формулах/диапазонах), и реализовать такое на СУБД+морде выйдет на несколько месяцев и сотню+две тысяч рублей ЗП с налогами дороже, чем просто самоуничтожалка, быстро приучающая юзверей работать с сетевой шарой.
Для полнофункционального решения в Excel еще надо бы:
а) написать перехватчик Ctrl+Break (чтобы не остановить макрос) (легко гуглится)
б) заблокировать кодом SaveAs (легко гуглится)
в) стойко запаролить файл и сам модуль (разными паролями)
г) предупредить юзера модальным окном, чтобы он не пытался сделать копии с файла
д) заблокировать на время работы макроса прорисовку интерфейса (Application.ScreenUpdating=False), а то юзер увидит как его циферки быстренько исчезают. Впрочем, педагогический эффект внушаиитттьь…
14
— 14.06.2012 — 13:25
з) Вспомнил еще, что если в Excel отключить заблокировать макросы, то файл откроется не очистившись. Но на каждую жп найдется и лерка и метчик. Добавить так:
Dim sh As Object ‘ переменная для затирания листов
‘ сильно скрыть листы 1-2 (последний должен быть видимым, если что — добавить ручками)
‘ такое скрытие в Excel без макроса не раскрыть
ThisWorkbook.Sheets(1).Visible = xlSheetVeryHidden
ThisWorkbook.Sheets(2).Visible = xlSheetVeryHidden
а далее после каждого ThisWorkbook.Save добавить
ThisWorkbook.Save
ThisWorkbook.Sheets(1).Visible = True
ThisWorkbook.Sheets(2).Visible = True
PS Данные из ячеек скрытого листа, зная пароль все равно можно прочитать безо всякого программирования, просто отобразив их формулами, ссылающимися на книгу/лист/ячейку, но 99% юзверей об этом трюке не знают. К тому же можно их сделать неактуальными/неправильными по какому-нить алгоритму.
15
— 16.06.2012 — 10:46
‘ (c) economist. Как есть — без гарантий!
‘ ******* Самоудалялка XLS-VBA, если открыли файл не там где можно *****
‘ Макрос в книге при открытии файла XLS определяет ГДЕ находится сам XLS-
‘ файл, с поддержкой всех видов путей (буквы диска, LAN, UNC)
‘ и если не там где РАЗРЕШЕНО — «самоуничтожается» путем перезаписи с
‘ пустым содержимым всех листов. Задать легальный сервер (имя, IP)!
‘ Макрос вставить в после Alt+F11 в объект ЭтаКнига
‘ Проверить на пустом файле, введя бессмылицу в ячейки листов, убедиться что после открытия НЕ на сервере ячейки очистились
‘ затем уже сделать на рабочем (можно путем переноса листов вручную)
‘ Если неизвестно имя/IP компьютера-сервера — узнать у сисадмина!
‘ TODO: Если сеть одноранговая с дин.-IP — подумать
‘ (с) daxy. Расширение функционала
‘ Отключено сохранение книги Файл-Сохранить как
‘ Теперь работаем со всеми листами книги
‘ При загрузке книги без макросов не отображаются листы с данными, а отображается лист с приветствием.
Option Explicit
Const legalServerIP As String = «10.0.0.10» ‘ ВВЕДИТЕ IP — адрес разрешенного сервера XLS, на котором файл живет (в верх регистре)
Const legalServer As String = «Server1» ‘ ВВЕДИТЕ DNS-имя разрешенного сервера XLS (первая буква обычно большая)
Const
PR As String = «ВКЛЮЧИТЕ МАКРОСЫ!» ‘ ИМЯ КНИГИ НАПОМИНАЛКИ
Dim sh As Object
Dim fso As Object
Private Sub Valid_Server()
‘ Файл в Windows можно открыть по разному:
‘ А — C локального диска (с любой буквой)
‘ Б — С сетевого диск (с любой буквой)
‘ В — Через UNC — то есть \server1folderfilename.xls
‘ Г — или без DNS имен — то есть \XXX.XXX.XXX.XXXfolderfilename.xls
‘ Поэтому в программе будет ветвление — первый символ — диск или
‘ Для \server1folderfilename.xls и \10.0.0.100folderfilename.xls
Set fso = CreateObject(«Scripting.FileSystemObject») ‘в отличии от Dim fso As New Scripting.FileSystemObject не требует включения референсов в библу VBA
Dim NetPath, RealPath, DriveXLS As Variant ‘ создали перем для IP адреса компа, с которого реально открыт файл XLS
DriveXLS = Left(ThisWorkbook.Path, 1) ‘ прочли имя диска (м.б. сетевого), если открыли через сеть —
NetPath = Split(ThisWorkbook.Path, «») ‘ разбили путь на части
On Error Resume Next
If DriveXLS = «» Then ‘ открыли файл через сетевое окружение
RealPath = NetPath(2) ‘ прочли ИМЯ сервера server1
If (legalServer <> RealPath Or legalServerIP <> RealPath) Then Kill_And_Save ‘была видимо ошибка, не И а ИЛИ надо но не утверждаю
Else ‘Открыли файл с буквами диска
NetPath = Split(fso.Drives(DriveXLS).ShareName, «»)
RealPath = NetPath(2) ‘ прочли ИМЯ сервера server1
If (legalServer <> RealPath Or legalServerIP <> RealPath) Then Kill_And_Save
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Workbook_Save
Cancel = True
End Sub
Private Sub Workbook_Save()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
WorkSheets_VeryHidden
ThisWorkbook.Save
WorkSheets_Visible
DeletePR
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub WorkSheets_Visible()
For Each sh In ThisWorkbook.Sheets
ThisWorkbook.Sheets(sh.Name).Visible = True
Next sh
DeletePR
End Sub
Private Sub WorkSheets_VeryHidden()
AddPR
For Each sh In ThisWorkbook.Sheets
If sh.Name <>
PR Then ThisWorkbook.Sheets(sh.Name).Visible = xlSheetVeryHidden
Next sh
End Sub
Private Sub AddPR()
DeletePR
Sheets.Add
Sheets(ActiveSheet.Name).Name = PR
Sheets(PR).Tab.Color = vbRed
Range(«A2») = «ВКЛЮЧИТЕ МАКРОСЫ!»
Range(«A1», «K3»).Select
Selection.Interior.Color = vbRed
Selection.Font.Size = 48
End Sub
Private Sub DeletePR()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(PR).Delete
Application.DisplayAlerts = True
End Sub
Private Sub Kill_And_Save()
If MsgBox(«Обнаружен не разрешенный носитель для этой книги» & vbCr & «Удалить данные на листах?», vbYesNo) = vbNo Then Exit Sub ‘Чтобы не удалить данные при проверке, в реальной работе строчку удалить
For Each sh In ThisWorkbook.Sheets
sh.Cells.ClearContents ‘ClearContents оставляет примечание и прочее
Next sh
Workbook_Save
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
WorkSheets_Visible
Application.ScreenUpdating = True
Valid_Server
End Sub
16
— 16.06.2012 — 19:06
dax — отлично! VBA способен в офисе изменить сам характер труда, а каждый «шкодер» должен поощряться за любую инициативу! Как работодатель я этому следую издавна, но на пути автоматизации много бревен в глазах и роялей в кустах…
17
— 21.06.2012 — 20:16
Ахи….ть!!!! :О Куда это всё вставлять?!
18
— 21.06.2012 — 20:43
Я понял что я далёк от слова макрос. Люди, всё на много проще!!! Бся база данных состоит из кучи вордовских файлов лежащих в папке на которые простые гиперссылки из файла эксель. Никакими мудрёными эскюэлями и даже аксесами там не пахнет. Эту всю хрень пользуясь своими мягко говоря скудными знаниями экселя и паинтбраша:) слепил я и никакие статьи мне за удаление не грозят. Просто наши начальники нашли это очень удобным и все работники пользуются базой которую я создал фактически для себя. А вот со мной хотят поступить очень не честно. За то что я отказался идти на корпоратив, а главное сдавать деньги на это началась на меня травля. Было бы за дело ёптать! В общем хочу если меня уволят позлорадствовать.
Суть вот в чём. Все работники никакие не програмисты и от слоб БазаДанных падают в обморок. Так что самая простая и глупая подлянка вряд ли будет замечена и должна сработать. Хочу сделать так, чтоб в какой нибудь клеточке экселя белыми чернилами на белом фоне (ну чтоб не видно было) стояла дата порчи этого файла. По умолчанию стоял какой нибудь 31.12.2100. Но если меня увольняют, я туда вписываю дату эдак через месяцок после сегодня, сохраняю. Со временем файл расползается по всем компам и в указанную дату ТРАХ!!!! ))))) Привет от меня! Файл вылодил тут:
http://depositfiles.com/files/kodt4603c
19
— 21.06.2012 — 23:28
to18
Если ты слепил это в рабочее время и за это получал зарплату и использовал для этого свое рабочее место, то вопрос очень спорный
Потом то что ты описал попадает даже не под одну статью, а под несколько
http://www.zakonrf.info/uk/272/
http://www.zakonrf.info/uk/273/
20
— 21.06.2012 — 23:35
to18 И еще вопрос как ты думаешь куда денется макрос из xls файла и сколько потребуется времени в случае разбора полетов для выявления причины исчезновения данных.
21
— 22.06.2012 — 07:28
Рюкзак — прямо какие-то «Заметки отечественного западлостроения» :-))
В терминологии программистов это называется «закладка». Довольно распространенный прием, «страховка» на случай неплатежа/увольнения. За рубежом считается очень дурным тоном, но там и реалии несколько другие.
…
А ваша причина конфликта настолько смешна, что огород городить не советую и помогать не буду. Ходить или нет на корпоратив — дело каждого, и вы это право подтвердили, в другой раз травить не будут. Лучше вашу злость конвертировать в упорство, направить его на обучение, изучить макросы и написать такое полезное для конторы приложение, что вас будут на корпоративы возить/кормить/поить бесплатно. Вот тогда и «закладка» будет уместна, а сейчас — несерьезно.
…
TVV1 — в Excel нет ничего невозможного. Есть как минимум 2 способа.
1) Если включено доверие к объектной модели VBA — любой модуль VBA можно удалить самим VBA по волшебной команде:
Application.ThisWorkbook.VBProject.VBComponents.Re move Application.ThisWorkbook.VBProject.VBComponents.It em(«Module1»)
Сила это команды настолько велика, что она может убить даже тот модуль, в котором сама находится!
2) Макрос может самоуничтожиться вместе с самим XLS-файлом. В коде VBA создаем BAT-файл вида ..del base.xls, запускаем его и закрываем excel. Батник срабатывает и… Все: ни файла, ни макроса. Корзина тоже пуста. Хотя правильнее сначала перезаписать файл бессмыслицей того же объема, тогда поиски ни к чему не приведут.
22
— 22.06.2012 — 07:31
В п. 21 в коде вкрались пробелы:
Application.ThisWorkbook.VBProject.VBComponents.Re move_
Application.ThisWorkbook.VBProject.VBComponents.It em(«Module1»)
…
Если модулей несколько — то циклом, или перебором коллекции (особенно при нестандартных именах или коде в объектах — листах, Workbook итд).
23
— 22.06.2012 — 09:12
19-TVV1 >Не в рабочее! Дома составил. И мне за это ничегошеньки не платили, так что думаю не попадаю. А по поводу макроса, ну вычислят, ну поймут, ну и что? Я ничего никому не обещал и к этому времени буду уволен.21-economist > мне тоже очень смешно что меня за такую фигню до увольнения доводят ((((
24
— 25.06.2012 — 14:09
23 У нас такое было. Дамочка удалила все свои наработки и уничтожила все отчеты на бумажных носителях перед увольнением. Бегали по ментовкам, писали какие-то бумажки, 70 тыщ. на лапу адвокату и следователю давали, а наказать злодейку так и не смогли.
25
— 25.06.2012 — 15:29
Рюкзак, запомни самое главное правило:
Хорошо всегда там, где нас нет.
Так что… если тебя хотят «слить» — используй свою контору как средство поиска работы, согласись и возьми рекомендательное письмо, и флаг тебе в руки.
…но сдаётся мне ты лукавишь. Ни разу не видел такого, чтобы человека сливали из-за того что не пошел на корпоратив.
26
— 03.03.2015 — 07:27
Не может быть-)