Период работы макроса.

[Klim Bassenger]

Сообщение от Hugo121

Но с бомбой по интернету конечно красивее, надо подумать

Я вот еще подумал, что можно сделать так:
У меня есть флэшка, у каждой флэшки есть серийный номер... Периодически задать интервал(раз в неделю, например), чтобы выскакивало нейтральное сообщение... Например, "Сегодня 23,07,2010г.".. Вроде просто сообщение, но знающий человек будет знать, что нужно в комп вставить свою флэшку... При открытии файла сделать проверку серийных номеров всех дисков (да или сразу съемных дисков) и если номер флэшки действительно мой, то продлить еще на неделю срок использования...
Но хотелось бы, конечно, бомбу... Зашел в нет, изменил кодовое слово и мучайтесь господа директора ручками перебирать массивы из 5000 строк...

[doober]

Сообщение от Klim Bassenger

Но хотелось бы, конечно, бомбу... Зашел в нет, изменил кодовое слово и мучайтесь господа директора ручками перебирать массивы из 5000 строк...

Я так и не понял,мы будем снимать кино,или нет.
Или будем шефов жалеть.Должно быть два решения или да.или нет.Третье-демогогия.И нести тяжело.и выбросить жалко

[Klim Bassenger]

Сообщение от doober

И нести тяжело.и выбросить жалко

Как ни странно, но тут именно такая ситуация... Удалить всё - это неприемлимо... А вот удалить без возможности восстановления все модули - это можно!!!!

Единственное, что скорее всего excel не даст просто так удалить модули... Скорее всего придется добавлять в надежные источники пользователя... А если файл будет на другом компе, то человек будет мыслить так: работало всё - и хорошо... Не буду я ничего изменять и никого никуда добавлять...
Экспортировать модули - не проблема!!!
Прислать их неа почту??? Только формы или все??

[doober]

Сообщение от Klim Bassenger

Единственное, что скорее всего excel не даст просто так удалить модули... Скорее всего придется добавлять в надежные источники пользователя..

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

[Klim Bassenger]

Отправил Вам на почту архив с модулями... Их, как я и предупреждал много... Оснеовная форма для работы - Это Userform3. Вот с ней и нужно что-то сделать...
http://klim.web-box.ru/WorkEnter - это ссылка... Там цифры 123465... Если их поменять,. то должно произойти что-то страшное!!!

[doober]

Почту отправил

[Klim Bassenger]

Спасибо!
Я посмотрел и ответил...
Может я и подлым делом занимаюсь... Но Вы сами видели сколько там всего и не за неделю было сделано... При чем забесплатно... Зачем свои трудв другим отдавать, раз по -хорошему не хотят...

[valerij]

Сообщение от Klim Bassenger

похерить данные за 2 года

А если все данные, каждый день дублируется, ну скажем на флешку?

[doober]

Вы просили функцию по определению заводских номер жестких дисков.
возможно она пригодится еще кому то.

Function Nomer_Drive() As String
Dim queryObj As Object
Dim ppid  As String

For Each queryObj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_DiskDrive WHERE InterfaceType='IDE'")

    ppid = ppid & "Надпись:" & queryObj.Caption & vbCrLf
      ppid = ppid & "Модель:" & queryObj.Model & vbCrLf
 ppid = ppid & "Заводской номер:" & queryObj.Signature & vbCrLf
 Next
Nomer_Drive = ppid

End Function

Добавил еще на USB,нашел на просторах

Function Nomer_USB()
Set objSWbemService = GetObject("winmgmts:\\.\ROOT\CIMV2")
  Set wmiDiskDrives = objSWbemService.ExecQuery("SELECT * FROM Win32_DiskDrive")
  For Each wmiDiskDrive In wmiDiskDrives
   If wmiDiskDrive.InterfaceType = "USB" Then 'IDE
   MsgBox "USB диск:" & wmiDiskDrive.Model
  MsgBox "Size:" & wmiDiskDrive.Size & " Байт"
    PnPID = wmiDiskDrive.PnPDeviceID
    
     MsgBox "заводской номер:" & Replace(Mid(PnPID, InStrRev(PnPID, "\") + 1), "&0", "")
    strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
    Set wmiDiskPartitions = objSWbemService.ExecQuery _
                       ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
                       strEscapedDeviceID & """} WHERE AssocClass = " & _
                       "Win32_DiskDriveToDiskPartition")
    For Each wmiDiskPartition In wmiDiskPartitions
    Set wmiLogicalDisks = objSWbemService.ExecQuery _
                       ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                       wmiDiskPartition.DeviceID & """} WHERE AssocClass = " & _
                       "Win32_LogicalDiskToPartition")
    For Each wmiLogicalDisk In wmiLogicalDisks
       MsgBox "логический диск:" & wmiLogicalDisk.DeviceID
    Next
   Next
   End If
  Next

End Function

___________________________________ _____________
PS Мое мнениетаково.Я бы за такую проделанную работу даже и не думал бы оставлять что то даром.

[segail]

Здравствуйте.
А как удалить форму через определенное количество дней после ее первого открытия?